Amélioration de script

[charlieddr]

Bonjour,

MOn script n'est valable que dans la feuille "Feuil19", je souhaiterai que mon code soit valable dans toutes les feuilles.Merci

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

 

[James007]

Re : Amélioration de script

Bonjour,

Tu peux remplacer : Feuil19
par ActiveSheet ...

A +
🙂

 

[CBernardT]

Re : Amélioration de script

Bonjour charlieddr, James007,

Essaye la syntaxe suivante :

Sub Touchenote()
Dim C As Range, Plage As Range, Ws As Worksheet

For Each Ws In Worksheets
Set Plage = Ws.Range("L10:L100")
For Each C In Plage
If Not IsEmpty(C) And C.Offset(0, 1).Value = 1 Then
C.Offset(0, -2).Interior.ColorIndex = 4
End If
Next C
Next Ws
End Sub

 

[laetitia90]

Re : Amélioration de script

bonjour tous
question sujette a interprétation
macro a lancer sur toutes les feuilles???
sur feuille active ???
si feuille active tu mets rien!!!

Set plage = Range("L10:L100")

 

[charlieddr]

Re : Amélioration de script

Merci à vous, je note si active je met rien. merci merci