Vba condition multiple

Alex -  
 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.


1 réponse

Etpaflechien
 
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
0