couleur cellule

[j-marc]

bonsoir forum
Si je change la couleur d'une cellule dans une plage donnée je voudrais que la cellule juste à droite de celle ci prenne la même couleur si non rester à sa couleur d'origine
c'est pour éviter d'avoir le code si dessous à l'infini selon le nombre de cellule
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Interior.ColorIndex = 44 Then
Range("B1").Interior.ColorIndex = 44
Else: Range("B1").Interior.ColorIndex = 4
End If
etc etc.....End Sub

avez vous une astuce?

merci

 

[CHti160]

Salut"j-marc "
bonsoir le "FORUM"
je pense qu'il te faut faire une macro basée sur Target cellule cible
du genre
i][Private Sub Worksheet_SelectionChange(ByVal Target As Range)
IfTarget.Interior.ColorIndex = 44 Then
Target.offset(0,1).Interior.ColorIndex = 44
Else: Target.offset(0,1).Interior.ColorIndex = 4
End If
end sub[/i]
je teste
A+++
Jean Marie

 

[j-marc]

bonjour à tous

et merci à CHtil60 pour sa réponse

c'est OK