Une couleur non détectée en VBA ! Résolu/Fermé

Question

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!!!!

f894009 · Answer

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?

Valerie54001 · Answer

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 ?

yg_be · Answer

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?

Valerie54001 · Answer

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 :)

Valerie54001 · Answer

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 :)

f894009 · Answer

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

Valerie54001 · Answer

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 ?

f894009 · Answer

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

Valerie54001 · Answer

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 :)

Valerie54001 · Answer

Je comprend ,

Pourrais-tu néanmoins faire en sorte que les résultats des 2 bibli soit affichés, stp ?

Valerie54001 · Answer

Donc Résolu !!!

Merci de clôturer ce sujet.

Une couleur non détectée en VBA !

11 réponses

Discussions similaires