Discussion :

[JML62400]

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.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[JML62400]

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

[Krovax]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Worksheet_Calculate()

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