Bonjours à tous.
En interrogeant le forum, j'ai obtenu cette macro qui permets de griser les cases de la colonne D dans lesquelles il y a un "X" en cliquant sur un bouton.
Dim Cellule As Range
Sub Formeautomatique1_QuandClic()
For Each Cellule In Range("D35000")
If Cellule.Value = "X" And Cellule.Offset(0, -2) <> "" Then
Cellule.Interior.ColorIndex = 15
Else
Cellule.Interior.ColorIndex = xlNone
End If
Next Cellule
End Sub
Maintenant je cherche à griser toute la ligne, de la colonne "A" à la "G" si il y a un "X" dans la colonne D et je ne sais pas adapter cette macro.
Merci d'avance
En interrogeant le forum, j'ai obtenu cette macro qui permets de griser les cases de la colonne D dans lesquelles il y a un "X" en cliquant sur un bouton.
Dim Cellule As Range
Sub Formeautomatique1_QuandClic()
For Each Cellule In Range("D35000")
If Cellule.Value = "X" And Cellule.Offset(0, -2) <> "" Then
Cellule.Interior.ColorIndex = 15
Else
Cellule.Interior.ColorIndex = xlNone
End If
Next Cellule
End Sub
Maintenant je cherche à griser toute la ligne, de la colonne "A" à la "G" si il y a un "X" dans la colonne D et je ne sais pas adapter cette macro.
Merci d'avance