Si valeur de la cellule B = Valeur de la cellule A (prédéfinie) alors colorier

[highlander]

Bonjour,

Je cherche a faire une macro (pas une mise en forme conditionnel) qui me permettrait de mettre en couleur une cellule si ce qui est marqué dans la case correspond a un texte définit.

Ca j'ai réussit a le faire (grâce aux conseil du forum)

voici le code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:F20")) Is Nothing Then
For Each cell In Target
If cell.Value = "texte 1" Then
cell.Interior.ColorIndex = 3
ElseIf cell.Value = "texte 2" Then
cell.Interior.ColorIndex = 5
ElseIf cell.Value = "texte 3" Then
cell.Interior.ColorIndex = 4
ElseIf cell.Value = "texte 4" Then
cell.Interior.ColorIndex = 6
ElseIf cell.Value = "texte 5" Then
cell.Interior.ColorIndex = 27
End If
Next
End If
End Sub


Je colle ce programme dans toutes mes feuilles excel et ca marche.

Maintenant j'aimerais faire en sorte que sur la feuille 1 je puisse marqué :
Texte 1
Texte 2
Texte 3
Texte 4
Texte 5

je renvoie ca sur chacune de mes feuilles (avec une formule sur la feuille excel : = feuil1!A1

Jusque la pas de soucis non plus

Mais j'aimerais que ma macro disent :
si case X (toutes les cases définies entre c5 et ab42) = valeur de la case A1 alors mettre couleur (en sachant que la valeur de A sera du texte et sur les autres cellules aussi)

Merci a ceux qui peuvent m'éguiller

 

[highlander]

Re : Si valeur de la cellule B = Valeur de la cellule A (prédéfinie) alors colorier

En faite j'ai réussi a trouver

pour ceux que ca interresse :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:F20")) Is Nothing Then
For Each cell In Target
If Range("a50") = cell.Value Then
cell.Interior.ColorIndex = 1
ElseIf Range("A51") = cell.Value Then
cell.Interior.ColorIndex = 5
End If
Next
End If