Colorier plusieurs cellules

[envol]

Bonjour à tous,

Je cherche à "colorier" automatiquement, plusieurs celulles.

Actuellement, quand je choisis dans un menu déroulant une action, la cellule en question se colorie.
Ce que je cherche à faire, c'est que la cellule du dessous se colorie aussi et de la même couleur (voir fichier joint. Ex. avec les cellules A1 et A2)

Ici le fichier et ci-dessous le code.
Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("A1:A8"))
If Target Is Nothing Then Exit Sub
Dim ref As Range
Set ref = Range("E10:E13").Find(Target.Cells(1, 1), LookIn:=xlFormulas)
If ref Is Nothing Then Target.Interior.ColorIndex = xlNone: Exit Sub
Target.Interior.ColorIndex = ref.Interior.ColorIndex
End Sub

Merci par avance pour votre aide.🙂
Bonne soirée,

 

[JCGL]

Re : Colorier plusieurs cellules

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("A1:A8"))
If Target Is Nothing Then Exit Sub
Dim ref As Range
Set ref = Range("E10:E13").Find(Target.Cells(1, 1), LookIn:=xlFormulas)
If ref Is Nothing Then Target.Interior.ColorIndex = xlNone: Exit Sub
Target.Interior.ColorIndex = ref.Interior.ColorIndex
Target.Offset(1, 0).Interior.ColorIndex = ref.Interior.ColorIndex
End Sub

A+ à tous

 

[JNP]

Re : Colorier plusieurs cellules

Salut Envol 🙂,
J'ai pas eu le temps d'aller chercher ton fichier, mais

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("A1:A8"))
If Target Is Nothing Then Exit Sub
Dim ref As Range
Set ref = Range("E10:E13").Find(Target.Cells(1, 1), LookIn:=xlFormulas)
If ref Is Nothing Then
Target.Interior.ColorIndex = xlNone
Target.Offset(1, 0).Interior.ColorIndex = xlNone
Exit Sub
End If
Target.Interior.ColorIndex = ref.Interior.ColorIndex
Target.Offset(1, 0).Interior.ColorIndex = ref.Interior.ColorIndex
End Sub

devrait fonctionner.
Bonne soirée 😎
Ajout : Salut Jean-Claude

 

[envol]

Re : Colorier plusieurs cellules

Bonsoir JCGL & JNP, le fil,

Un grand merci à vous deux. vos deux codes fonctionnent à merveille !

Très bonne soirée,