Colorer plage variable de cellules

Bonjour,
Je voudrais par VBA colorer en vert une série de cellules à partir d'une cellule sélectionnée. la dernière serait A10 . Exemple: Je select A1 et les cellules jusque A10 se colorent. si je select A5 coloration jusque A10 etc...

Le code se déclenche avec Worksheet Calculate.

Cordialement,
JML62400.

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Range("A1:A10").Interior.ColorIndex = xlNone Range(Target.Address & ":A10").Interior.Color = vbGreen End If End Sub

---

Le code de Mercatog est parfait, mais je voudrais colorer avec Worksheet Calculate

Bonjour,
Heu quest ce que tu entend par colorier avec worksheet calculate?
Tu veux utiliser un autre évènement que selectionchange?
Dans ce cas en gardant le code de Mercatog qui me semble très bien
change la première ligne et met à la place

Code:

---

Private Sub Worksheet_Calculate()

---

Du coup tu perd le target tu peux essayer de le remplacer par selection pour utiliser la cellule sélectionné.