VBA plusieur cellule dans une de façon conditionnel Résolu/Fermé

Question

Bonjour, 

Tout d'abord je souhaite remercier chaleureusement toute personne qui prendra le temps de m'aider dans mon premier projet VBA
Je vous explique ce que je cherche à faire

J55 = Bleu         K55= OUI
J56 = Rouge       K56= OUI
J57 = Jaune       K57= NON 
J58 = Vert         K58 = OUI
J59 = Noir         K59 = NON

Je voudrais mettre les couleur ou je dispose de l'info OUI dans la case B47 sous la forme "Bleu; Rouge; Vert" (l'ordre importe peu)
Et celle avec l'info NON dans la case B48 sous la forme "Jaune; Noir" (l'ordre importe peu)

La valeur K55:K59 est déterminé à l'aide de case à coché dans une interface graphique VBA
Je souhaiterais donc que les information passe de la cellule B47 à B48 en fonction de la valeur oui ou non

Configuration: Windows 7 / Chrome 48.0.2564.103

via55 · Answer

Bonsoir

Utilises une macro de ce genre :

Sub dispatcher ()
bon=""
mauvais=""
For x=55 to 59
if range("K" & x)="OUI" then bon=bon & range("J" & x)  & ";  " else mauvais=mauvais & range("J" & x)  & ";  "
next x
range("B47")=bon
range("B48")=mauvais
end sub

 
Celmnt
Via

VBA plusieur cellule dans une de façon conditionnel

1 réponse

Discussions similaires