C
charlieddr
Guest
Bonjour,
MOn script n'est valable que dans la feuille "Feuil19", je souhaiterai que mon code soit valable dans toutes les feuilles.Merci
MOn script n'est valable que dans la feuille "Feuil19", je souhaiterai que mon code soit valable dans toutes les feuilles.Merci
Code:
Sub Touchenote()
Dim c As Range
Dim plage As Range
Set plage = Feuil19.Range("L10:L100")
For Each c In plage
If Not IsEmpty(c) Then
If c.Offset(0, 1).Value = 1 Then
c.Offset(0, -2).Interior.ColorIndex = 4
End If
End If
Next c
End Sub