If & ElseIf

Bonjour,

J'aimerai savoir pourquoi ma boucle If ne fonctionne pas.

Seulement si la case est sans couleur cela colorie en rouge.

Mais pas les autres conditions.

Je voudrais que si la cellule est blanche cela passe en rouge.

Si elle est en vert cela passe en rouge

si elle est orange cela passe en rouge.

voici le code.

Sub JourneeHight()

With Selection.Interior
    If .ColorIndex = xlNone Then
        .ColorIndex = 3
        .Pattern = xlSolid
    ElseIf .ColorIndex = 32896 Then
        .ColorIndex = 3
        .Pattern = xlSolid
    ElseIf .ColorIndex = 52479 Then
        .ColorIndex = 3
        .Pattern = xlSolid
    Else
    .ColorIndex = xlNone

   End If
End With
End Sub

Mais avec ce code si la cellule est verte ou orange elle passe en blanc.

Merci

acymospc a écrit :

J'aimerai savoir pourquoi ma boucle If ne fonctionne pas.i

Parce que tu utilises ColorIndex au lieu d'utiliser Color

modifie comme suit

With Selection.Interior
    If .ColorIndex = xlNone Then
        .ColorIndex = 3
        .Pattern = xlSolid
    ElseIf .Color = 32896 Then
        .ColorIndex = 3
        .Pattern = xlSolid
    ElseIf .Color = 52479 Then
        .ColorIndex = 3
        .Pattern = xlSolid
    Else
    .ColorIndex = xlNone

   End If
End With
End Sub

Bonjour Game Over.

MERCI