Une couleur non détectée en VBA !

Résolu/Fermé
Valerie54001 Messages postés 135 Date d'inscription mardi 22 novembre 2016 Statut Membre Dernière intervention 22 avril 2024 - 27 mai 2022 à 00:21
yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 28 mai 2022 à 12:06
Bonjour la communauté,

Je vais essayer d'être la plus claire possible !!!

Nous avons 2 tableaux en A1:C3 et K1:M3
A1:B2 et K1:L2 des Noms Japon et France
en C3 et M3 c'est des nombres qui génèrent l'affichage des valeurs sélectionnées en feuilles Bibli. et Bibli.2

Le changement de couleur n'est pas un événement. Le texte de la cellule de couleur Jaune signifie cela sera '' Japon'' ou ''France'' $E$ de sélectionné dans feuilles Bibli. et Bibli.2 et redescendre les résultats dans ''Test''.

Le problème est sans couleur qui devrait sélectionné '' NUL'' $E$ dans feuilles Bibli. et Bibli.2 et redescendre les résultats dans ''Test''.


Pour y jeter un œil :)

https://www.cjoint.com/c/LEAwiAUVt8v

Merci par avance!!!!
A voir également:

11 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
Modifié le 27 mai 2022 à 17:45
Re,

Donc votre soucis est de distinguer quelle cellule a change et en fonction de ceci:
C1/M1 pour Bibli. et C2/M2 pour Bibli.2

Par contre votre affaire de couleur, en ligne 2 un des deux pays peut etre en jaune de meme en ligne 1.
Qui met la couleur?

Un point:
        With Sheets("Bibli.2")
            der = .Cells(.Rows.Count, "E").End(xlUp).Row
            vil = IIf(Cells(2, sel.Column - 2).Interior.Color = 65535, Cells(2, sel.Column - 2).Value, Cells(1, sel.Column - 1).Value)


Cells(1 si pas de couleur doit etre Cells(2 car c'est C2 qui est en compte

Le test couleur est fait sur A1 ou A2 pas sur B1 ou B2 qui changent contrairement aux colonnes K/L ou c'est la colonne K!!!
Ca marche comment vos couleurs
1
Valerie54001 Messages postés 135 Date d'inscription mardi 22 novembre 2016 Statut Membre Dernière intervention 22 avril 2024 1
27 mai 2022 à 18:32
Trés bien , le choix de mise en couleur m'appartient indirectement.

Je vais essayer d'expliquer au mieux :)

Mais avant tout, tu dois savoir qu'il peut seulement y avoir qu'une seule cellule pouvant être jaune donc pas les deux A1 et A2 et donc pareil pour B1 et B2.
Lorsqu'une cellule est jaune, tu as compris qu'elle sera celle qui sera dans Bibli. ou Bibli.2 à sélectionner!
Lorsqu'il y aucune couleur , c'est bien '' Nul'' qui sera dans Bibli. ou Bibli.2 à sélectionner!

Le chiffre figurant en C1 et C2 est tout simplement le résultat de l'addition des nombres d'une date avec 9 le chiffre maximum possible à atteindre :
ma formule de base est =SI(AE1="";"";MOD(SOMMEPROD(--STXT(TEXTE(AE1;"jjmmaaaa");LIGNE($1:$8);1))-1;9)+1)
Oui je sais tu ne vois pas AE1 dans cette feuille :) car elle ne fait pas partie de mon problème :)

Pour le cas 1 de A1:B2
Japon France match joué le 10/08/1911 ( soit 1+0+0+8+1+9+1+1= 21 =>2+1= 3 ! +C1 ) la France a gagné donc je la sélectionne en jaune.
Le code va chercher dans Bibli. les différentes possibilités avec France en colonne E et le Chiffre en colonne D ( 3 car C1 )
en $E$:$F$
France Japon match joué le 21/11/1946 ( soit 2+1+1+1+1+9+4+6= 25 =>2+5= 7 ! +C2) la France a fait match nul donc pas de couleur !
Le code va chercher dans Bibli.2 les différentes possibilités avec Nul en colonne E et le Chiffre en colonne D ( 7 car C2 )
en $H$:$I$
Tu conviendras que ces dates sont fictives, c'est pour que tu comprennes un peu plus le problème.

Voilà ce que je cherche à obtenir !

Qu'en dis-tu ?
1
yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 477
27 mai 2022 à 18:36
Si j'ai compris, tout simplement:
si l'un des deux est jaune, il faut prendre celui-là, sinon il faut prendre "Nul".
Est-ce correct?
1
yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 477 > yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024
27 mai 2022 à 18:43
Il suffit alors, je pense, de remplacer la première ligne
vil=
par
        'vil = IIf(Cells(1, sel.Column - 2).Interior.Color = 65535, Cells(1, sel.Column - 2).Value, Cells(1, sel.Column - 1).Value)
        If Cells(1, sel.Column - 2).Interior.Color = 65535 Then
            vil = Cells(1, sel.Column - 2)
        Else
            If Cells(1, sel.Column - 1).Interior.Color = 65535 Then
                vil = Cells(1, sel.Column - 1)
            Else
                vil = "Nul"
            End If
        End If


et la seconde ligne
vil=
par
        'vil = IIf(Cells(2, sel.Column - 2).Interior.Color = 65535, Cells(2, sel.Column - 2).Value, Cells(1, sel.Column - 1).Value)
        If Cells(2, sel.Column - 2).Interior.Color = 65535 Then
            vil = Cells(2, sel.Column - 2)
        Else
            If Cells(2, sel.Column - 1).Interior.Color = 65535 Then
                vil = Cells(2, sel.Column - 1)
            Else
                vil = "Nul"
            End If
        End If
1
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
Modifié le 27 mai 2022 à 19:09
Re,
Salut yg_be
Est-ce correct?
Oui, c'est le comment la couleur change qui manquait. A priori c'est une MFC.


Fichier modifie avec ce que nous avons compris

https://www.cjoint.com/c/LEBrjxkzY8g
1
yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 477
27 mai 2022 à 20:19
J'ai cru comprendre que la couleur était modifiée à la main.
1
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
27 mai 2022 à 08:23
Bonjour,

Le problème est sans couleur
Quoi t'est ce?
Y a du code pour des boutons option et pas de bouton

Desole, mais je ne comprends rien, pouvez developper un peu plus?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Valerie54001 Messages postés 135 Date d'inscription mardi 22 novembre 2016 Statut Membre Dernière intervention 22 avril 2024 1
27 mai 2022 à 12:30
Tout d'abord merci à toi f894009 de t'y intéressé ;)

J'espère être plus précise :

Nous avons 2 tableaux en A1:C3 et K1:M3
A1:B2 et K1:L2 des Noms tel que Japon et France, cela peut être Table et Tabouret, qu’importe…
en C3 et M3 c'est des chiffres qui génèrent l'affichage des valeurs sélectionnées en feuilles Bibli. et Bibli.2

1er cas :
A1 : Japon en fond blanc.
B1 : France en fond Jaune.
C1 : un nombre prédéfini par mes soins , ici c’est 3.

Le VBA doit aller chercher dans la feuille Bibli. toutes associations des nombres associés à Japon et France avec $B$ et $C$ avec la correspondance du chiffre donné en TestC1 « 3 » et sélectionne dans la colonne $E$ France car il est en fond jaune en TestB1 :
Tout cela est reporté dans Test colonne $E$ et $F$. Cela fonctionne bien !
Mais mon problème est dès lors qu’il n’y a pas de couleur A2 : B2 !

Cas 2 :
A2 : Japon en fond blanc.
B2 : France en fond blanc.
C2 : un nombre prédéfini par mes soins , ici c’est 7.
Le VBA doit aller chercher dans la feuille Bibli.2 toutes associations des nombres associés à Japon et France avec $B$ et $C$ avec la correspondance du chiffre donné en TestC2 « 7 » et sélectionne dans la colonne $E$ Nul car il est en fond blanc en TestA1&B1 :
Tout cela devrait être reporté dans Test colonne $E$ et $F$ soit :
7 7
1 4
2 3
3 2
4 1
5 9
6 6
6 8
8 6
8 8
9 5

Comme tu peux le voir ce n'est pas le cas.
C'est cela que j'essais d'y arriver.

Concernant les boutons options no idea !!

Alors qu'en dis-tu ?
0
yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 477
27 mai 2022 à 14:26
bonjour,
Puisque tu ne peux pas expliquer ce que tu veux réaliser, je vais t'expliquer ce que je pense que fait ton code VBA:

Quand tu changes une des cellules C1, C2, M1, M2:
(je continue en supposant que C1 ou C2 a changé)
il travaille d'abord avec bibli, puis avec bibli2
pour bibli, en fonction de la couleur de A1, il va filtrer soit sur A1, soit sur B1
pour bibli2, en fonction de la couleur de A2, il va filtrer soit sur A2, soit sur B1

est-ce normal, de filtrer sur B1 et par sur B2 pour bibli2?
est-ce normal, de ne pas tenir compte de la couleur de B1 et de B2?
0
Valerie54001 Messages postés 135 Date d'inscription mardi 22 novembre 2016 Statut Membre Dernière intervention 22 avril 2024 1
27 mai 2022 à 16:01
Salut yg_be,

Tu supposes bien !

Non, ce n'est pas normal pour tes 2 interrogations!

D'ailleurs, si tu mets Japon et France de A1:B2 en fond blanc ou sans couleur , les 2 Bibli. et Bibli.2 ne reportent pas les bonnes infos!

EN espérant mieux te guider vers la lumière :)
0
yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 477
27 mai 2022 à 16:14
En fait, c'est ton code, et c'est moi qui essaie de te guider pour que tu arrives à écrire un code correct.
1
Valerie54001 Messages postés 135 Date d'inscription mardi 22 novembre 2016 Statut Membre Dernière intervention 22 avril 2024 1
27 mai 2022 à 17:00
En fait,

C'est mon frère qui avait participer à écrire ce code... mais il n'est plus parmi nous aujourd'hui...

Nous avions un projet que je souhaite continuer en sa mémoire.

Si tu penses pouvoir revisiter ce code , fais-toi plaisir :)
0
yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 477
27 mai 2022 à 17:24
Le point de départ, c'est de comprendre le résultat que tu souhaites obtenir, ce que tu souhaites que le code fasse.

A mon avis, la meilleure façon d'y arriver, c'est que tu expliques à quoi cela sert, ce que signifient ces informations, pourquoi tu fais cela.
1
Valerie54001 Messages postés 135 Date d'inscription mardi 22 novembre 2016 Statut Membre Dernière intervention 22 avril 2024 1
27 mai 2022 à 20:19
Oui c'est correct !

Néanmoins, les valeurs dans les colonnes $E$ et $F$ et $K$ et $L$ doivent être afficher !

Avec ce fichier c'est soit l'un soit l'autre :)

Pouvez-vous faire cette petite modif, svp ?

Je vous donnais le sourire !
Bien que ce n'est qu'un bout du projet :)
0
yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 477
27 mai 2022 à 21:52
Si le souci de départ est corrigé, je pense préférable de créer une nouvelle discussion pour le nouveau souci.
1
Valerie54001 Messages postés 135 Date d'inscription mardi 22 novembre 2016 Statut Membre Dernière intervention 22 avril 2024 1
27 mai 2022 à 22:10
Je comprend ,

Pourrais-tu néanmoins faire en sorte que les résultats des 2 bibli soit affichés, stp ?
0
Valerie54001 Messages postés 135 Date d'inscription mardi 22 novembre 2016 Statut Membre Dernière intervention 22 avril 2024 1
28 mai 2022 à 10:06
Donc Résolu !!!

Merci de clôturer ce sujet.
0
yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 477
28 mai 2022 à 12:06
Tu peux le clôturer, via les
...
sous la question de départ.
0