Je cherche à colorier une cellule dans ma feuille excel selon un test suivant:

ex:

Si ma cellule F7 = X alors G7 est rouge si elle n'est pas vide
sinon elle est verte. De mème avec H7 si F7=X...
Voici ce que j'ai indiqué dans mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 
For i = 7 To 10000
 
If Range("F" & i) = "X" Then Range("G" & i).Interior.ColorIndex = 3
If Range("F" & i) <> "X" Then Range(j & i).Interior.ColorIndex = 4
If Range("G" & i) = 0 Then Range(j & i).Interior.ColorIndex = 0
 
Next
 
End Sub
cela fonctionne pour les éléments de la colonne G mais j'ai pas réussi à le reproduire pour les colonnes H,I,J,... sauf à recopier les 3 lignes en changeant la lettre de la colonne, mais bon j'ai 100 colonnes...

Si quelqu'un peu m'aider merci par avance...