Boucle colorisation cellule VBA

Bonjour,

débutante en VBA pour Excel, je cherche un moyen de coloriser une case en fonction d'une autre case (sur la même ligne) si et seulement la première case est non vide.
J'ai réussi à le faire pour un cas particulier (ci-dessous) mais je n'arrive pas à le généraliser à toutes les cases voulues.
Dans l'exemple ci-dessous, dès que la case C7 est non vide elle prend la couleur de la case B7. Comment le généraliser à toutes les cases voulues ?

De plus, si je change la couleur dans la case B7, la case C7 ne change pas automatiquement, y-a-t-il une fonction qui permet de mettre à jour la case directement dès que B7 change de couleur ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Worksheet_Change(ByVal Target As Range)   Range("B7").Select tot = Selection.Interior.ColorIndex   Range("C7").Select If (Range("C7") <> "") Then   With Selection.Interior .ColorIndex = tot End With Else With Selection.Interior .ColorIndex = xlNone End With   End If   End Sub

---

Merci d'avance,

Bonne journée

A chaque changement d'une cellule de la colonne C à partir de la ligne 7

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_Change(ByVal Target As Range)   If Target.Count = 1 And Target.Column = 3 And Target.Row >= 7 Then If Target.Value = "" Then Target.Interior.ColorIndex = xlNone Else Target.Interior.Color = Target.Offset(0, -1).Interior.Color End If End If End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_Change(ByVal Target As Range)   If Target.Count = 1 Then If (Target.Value <> "") Then Target.Interior.Color = Cells(Target.Row, 2).Interior.Color Else Target.Interior.Color = xlNone End If End If   End Sub

---

Check la colonne 2 (soit B). Si tu modifies une cellule sur la ligne en question, elle prendra la couleur de cette colonne (si tu remplis la cellule) ou rien (si tu ne la remplis pas ou si tu supprimes son contenu) !

Bonne continuation à toi ! :ccool:

EDIT : mercatog first. ^^

Bonsoir,

merci pour vos réponses rapides.
ça fonctionne maintenant impec, il suffit juste d'une dernière petite boucle et tout est ok :)