comment griser une cellule si une autre vérifie une condition particulière sans utiliser la fonction mise en forme conditionnelle?
J'ai besoin d'effectuer un nombre important de cellule à griser et il est impossible de faire des copier coller avec la mise en forme conditionnelle.
Dim cellule1
Dim cellule2
cellule1 = 9
cellule2 = 10000
Dim numligne
For Each cell_in_loop In Range("R" & cellule1 & ":R" & cellule2)
If cell_in_loop.Value <> "" Then
numligne = cell_in_loop.Row
Range("A9:R9").Interior.ColorIndex = 8
End If
Next
End Sub