Code VBA mise en forme conditionnelle

Bonjour,

Je souhaite créer une mise en forme conditionnelle mais pour 4 conditions.
J'ai pu voir sur internet que l'on pouvait utiliser VBA . Mais le pb est que je n'ai jamais codé en VBA.

J'ai trouvé des morceaux de codes mais n'y comprends pas grand chose.
Pourriez-vous me donner un coup de main? svp

J'ai trouvé un truc du genre que j'ai inclu dans mon code mais ça ne fonctionne pas..

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Set KeyCells = Range("B6:B6000") ActiveSheet.Unprotect If Not Application.Intersect(KeyCells, Range(Target.Address)) _ Is Nothing Then Dim i As IntegerIf cell(i, 8) - celle(i,9)= 0 Then End if Cells(i, 5).Select With Selection.Interior .ColorIndex = 4 'Vert .Pattern = xlSolid End With End If

---

Merci beaucoup

Bonjour Lahli 57 le forum
bon j'ai pas tout compris de ce que tu veux faire mais voilà une macro qui te colorera en vert la cellule de la colonne E si la cellule de la même ligne Colonne H- la cellule même ligne de la colonne i = 0 et que les deux cellules colonne I et H sont différente de vide, alors on colore en vert
Par contre j'ai pas compris le pourquoi de la plage B6 à B6000 là?? ou alors c'est pour limiter de la ligne 6 à 6000
a+
papou:)

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i& With Feuil1 For i = 6 To 6000 If .Cells(i, 8) <> "" And .Cells(i, 9) <> "" And .Cells(i, 8) - Cells(i, 9) = 0 Then Cells(i, 5).Interior.ColorIndex = 4 Else Cells(i, 5).Interior.ColorIndex = xlNone Next i End With End Sub

---

Re Lahli 57 le forum
une autre macro qui sur sélection d'une cellule de la colonne B de 6 à 6000, tu colores en vert la cellule C de la ligne sélectionnée en B , si la cellule H- Cellule I est égale à 0
si pas une deux deux donnes des explications sur ce que tu veux obtenir et on fera
a+
papou:)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i&, fin& With Feuil1 If Target.Column = 2 And Target.Row >= 6 And Target.Row <= 6000 Then i = Target.Row If .Cells(i, 8) <> "" And .Cells(i, 9) <> "" And .Cells(i, 8) - Cells(i, 9) = 0 Then Cells(i, 5).Interior.ColorIndex = 4 Else Cells(i, 5).Interior.ColorIndex = xlNone End If End If End With End Sub

---

Salut, voir ici ?

Bonjour,
Merci pour vos réponses (désolée pour la mienne qui arrive un peu tardivement).
Je suis finalement passée par le format conditionnel basique sous Excel..et tout fonctionne.
Encore merci ;)
++