Est il possible de modifier la macro suivante afin de pourvoir mettre un mot de plusieur lettre à la place du "x"?
Option Explicit
Sub color()
Dim lig As Byte
Range("A2:G30").Interior.ColorIndex = xlNone
For lig = 2 To 31
If UCase(Cells(lig, 7)) = "X" Then Range(Cells(lig, 1), Cells(lig, 7)).Interior.ColorIndex = 3
Next
End Sub
Je suis débutant en VBA, merci de votre compréhension.
Option Explicit
Sub color()
Dim lig As Byte
Range("A2:G30").Interior.ColorIndex = xlNone
For lig = 2 To 31
If Cells(lig, 7) = "Ce que tu veux" Then Range(Cells(lig, 1), Cells(lig, 7)).Interior.ColorIndex = 3
Next
End Sub
Il me vient un doute :
Veux-tu remplacer X par un seul mot, ou par n'importe quel mot ?
Si c'est pour tester qu'il y a quelque chose dans G2:G30, utilise
If Not (IsEmpty(Cells(lig, 7)) then...
Je me suis encore mal exprimé. Je vais utiliser plusieurs mots (une bonne dizaine) et c'est pour pouvoir l'utilisé sur chaque nouveau fichier que je créerai.