Vba condition multiple
Alex
-
Etpaflechien -
Etpaflechien -
Bonjour,
je suis entrain de programmer une feuille excel, j'aurai voulu que lorsque je remplis les cellules d'un 1 elle se mettent en Vert, un 2 en bleu, un 3 en jaune et un 4 en rouge.
j'ai deja commencé a programmer qqch, mais cela beug un peu.
je suis débutant et voilà ce que j'ai commencer à faire :
de Module 1
Sub chgcouleur()
if Feuil1.range("c6").value="1" then
Feuil1.range("c6").interior.colorIndex=0
Else: Feuil1.range("c6").interior.colorIndex=4
if Feuil1.range("c6").value="2" then
Feuil1.range("c6").interior.colorIndex=41
if Feuil1.range("c6").value="1" then
Feuil1.range("c6").interior.colorIndex=6
if Feuil1.range("c6").value="1" then
Feuil1.range("c6").interior.colorIndex=3
end if
end if
end if
end if
end sub
en esperant avoir été assez clair dans ma demarche, si vous avez la réponse merci beaucoup.
je suis entrain de programmer une feuille excel, j'aurai voulu que lorsque je remplis les cellules d'un 1 elle se mettent en Vert, un 2 en bleu, un 3 en jaune et un 4 en rouge.
j'ai deja commencé a programmer qqch, mais cela beug un peu.
je suis débutant et voilà ce que j'ai commencer à faire :
de Module 1
Sub chgcouleur()
if Feuil1.range("c6").value="1" then
Feuil1.range("c6").interior.colorIndex=0
Else: Feuil1.range("c6").interior.colorIndex=4
if Feuil1.range("c6").value="2" then
Feuil1.range("c6").interior.colorIndex=41
if Feuil1.range("c6").value="1" then
Feuil1.range("c6").interior.colorIndex=6
if Feuil1.range("c6").value="1" then
Feuil1.range("c6").interior.colorIndex=3
end if
end if
end if
end if
end sub
en esperant avoir été assez clair dans ma demarche, si vous avez la réponse merci beaucoup.
1 réponse
-
bonsoir,
tu peux essayer ça:
Range("C6").Select NB = Selection.Value Select Case NB Case 1 Selection.Interior.ColorIndex = 4 Case 2 Selection.Interior.ColorIndex = 41 Case 3 Selection.Interior.ColorIndex = 6 Case 4 Selection.Interior.ColorIndex = 3 End Select
mais comment ce code va t il être déclenché?
Il y a bien la mise en forme conditionnelle, mais limitée à 3 conditions
Bon courage
