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.
A voir également:
- Vba condition multiple
- Excel cellule couleur si condition texte - Guide
- Ecran multiple pc - Guide
- Excel cellule choix multiple - Guide
- Copier coller multiple - Guide
- Excel compter cellule couleur sans vba - Guide
1 réponse
bonsoir,
tu peux essayer ça:
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
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
