Mise en Forme 4 conditions

Re : Mise en Forme 4 conditions

Bonjour

Un peu long en vba a mettre dans la feuille bon pour 20 ligne:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 20
If Range("A" & i).Value <> "" And Range("B" & i).Value <> "" Then
Range("C" & i).Interior.Color = RGB(153, 204, 0)
Else
If Range("A" & i).Value <> "" And Range("B" & i).Value = "" Then
Range("C" & i).Interior.Color = RGB(255, 0, 0)
Else
If Range("A" & i).Value = "" And Range("B" & i).Value <> "" Then
Range("C" & i).Interior.Color = RGB(224, 216, 80)
Else
If Range("A" & i).Value = "" And Range("B" & i).Value = "" Then
Range("C" & i).Interior.Color = RGB(255, 128, 0)
End If
End If
End If
End If
Next i
End Sub

A+

Temjeh

Merci de nous avoir répond

EDIT: Très bon Banzai64

Re : Mise en Forme 4 conditions

Bonjour
Joyeux Noël

Un essai (en trichant)

Re : Mise en Forme 4 conditions

Bonjour;

J'ai opté pour la solution de Temjeh, sur le meme fil je voudrais ajouter du texte au couleurs:

Si A et B non vides C="text1" ; couleur verte
Si A non vide C="text2" ; couleur rouge
Si B non vide C="text3" ; couleur jaune
Si A et B vides C="text4" ; couleur orange

Merci.