VBA plusieur cellule dans une de façon conditionnel

Résolu
slab62100 -  
via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   -
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

1 réponse

  1. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    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
    0