Discussion :

[chris09300]

bonjour
est il possible au lieu de with sheets("Janv") de mettre
with sheets.... feuil. active, car j'utilise cette macro sur plusieurs feuilles, et cela n'ennui un peu d'alourdir ma macro en la recopiant X fois.
si quelqu'un sait comment faire, merci a lui.
chris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
With Sheets("Janv")
    For i = 9 To 73
        .Range("B" & i) = 0
        If .Range("C" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
        If .Range("K" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
        If .Range("R" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
        If .Range("Y" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
    Next i
End With

[mercatog]

Tu peux mettre la feuille en paramètre (Macro2 à mettre dans un module standard)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro2(ws As Worksheet)
Dim i As Integer
 
With ws
    For i = 9 To 73
        .Range("B" & i) = 0
        If .Range("C" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
        If .Range("K" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
        If .Range("R" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
        If .Range("Y" & i).Interior.Color = 65535 Then .Range("B" & i) = .Range("B" & i) + 0.25
    Next i
End With
End Sub

l'appel sera en fonction des feuilles souhaitées

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
Dim Sh As Worksheet
 
For Each Sh In Worksheets(Array("janv", "fevr", "mars"))
    Call Macro2(Sh)
Next Sh
end sub

pas de MP sur des questions techniques svp