Boucle sur feuilles

bonjour,

je souhaitrerai faire une boucle sur plusieur feuille nommé janvier - fevrier - mars etc .........

pour recoursir mon code

Private Sub Worksheet_Activate()

Dim i As Long, derligne As Long, derlign1 As Long

derligne1 = Sheets("Janvier").Range("A1048576").End(xlUp).Row
For i = 1 To derligne1

If Sheets("Janvier").Range("S" & i).Interior.Color = RGB(255, 0, 0) Then
derligne = Sheets("RECHERCHE").Range("A1048576").End(xlUp).Row + 1

Sheets("RECHERCHE").Range("A" & derligne) = Sheets("Janvier").Range("A" & i)
Sheets("RECHERCHE").Range("B" & derligne) = Sheets("Janvier").Range("B" & i)
Sheets("RECHERCHE").Range("C" & derligne) = Sheets("Janvier").Range("C" & i)
Sheets("RECHERCHE").Range("D" & derligne) = Sheets("Janvier").Range("D" & i)
Sheets("RECHERCHE").Range("E" & derligne) = Sheets("Janvier").Range("E" & i)
Sheets("RECHERCHE").Range("F" & derligne) = Sheets("Janvier").Range("F" & i)
Sheets("RECHERCHE").Range("G" & derligne) = Sheets("Janvier").Range("G" & i)
Sheets("RECHERCHE").Range("H" & derligne) = Sheets("Janvier").Range("H" & i)
Sheets("RECHERCHE").Range("I" & derligne) = Sheets("Janvier").Range("I" & i)
Sheets("RECHERCHE").Range("J" & derligne) = Sheets("Janvier").Range("J" & i)
Sheets("RECHERCHE").Range("K" & derligne) = Sheets("Janvier").Range("K" & i)
Sheets("RECHERCHE").Range("L" & derligne) = Sheets("Janvier").Range("L" & i)
Sheets("RECHERCHE").Range("M" & derligne) = Sheets("Janvier").Range("M" & i)
Sheets("RECHERCHE").Range("N" & derligne) = Sheets("Janvier").Range("N" & i)
Sheets("RECHERCHE").Range("O" & derligne) = Sheets("Janvier").Range("O" & i)
Sheets("RECHERCHE").Range("P" & derligne) = Sheets("Janvier").Range("P" & i)
Sheets("RECHERCHE").Range("Q" & derligne) = Sheets("Janvier").Range("Q" & i)
Sheets("RECHERCHE").Range("R" & derligne) = Sheets("Janvier").Range("R" & i)
Sheets("RECHERCHE").Range("S" & derligne) = Sheets("Janvier").Range("S" & i)

End If

Next i

bonjour,

une proposition (non testée)

Private Sub Worksheet_Activate()

    Dim i As Long, derligne As Long, derlign1 As Long, shn

    For Each shn In Split("Janvier,Février,Mars,Avril,Mai,Juin,Juillet,Août,Septembre,Octobre,Novembre,Décembre", ",")
        With Sheets(shn)
            derligne1 = .Range("A1048576").End(xlUp).Row
            For i = 1 To derligne1

                If .Range("S" & i).Interior.Color = RGB(255, 0, 0) Then
                    derligne = Sheets("RECHERCHE").Range("A1048576").End(xlUp).Row + 1

                    Sheets("RECHERCHE").Range("A" & derligne).Resize(, 19) = .Range("A" & i).Resize(, 19)

                End If
            Next i
        End With
    Next shn
End Sub

Bonjour,

en mettant les noms des feuilles en array ()

P.

Option Base 1
Sub Boucler()
Dim i As Long, derligne As Long, derlign1 As Long
derligne1 = Sheets("Janvier").Range("A1048576").End(xlUp).Row
Dim Shname, S
Shname = Array("janvier", "février", "mars")
For Each S In Shname
      For i = 1 To derligne1
         If Sheets(S).Range("S" & i).Interior.Color = RGB(255, 0, 0) Then
            derligne = Sheets("RECHERCHE").Range("A1048576").End(xlUp).Row + 1
            Sheets("RECHERCHE").Range("A" & derligne) = Sheets(S).Range("A" & i).Value
            Sheets("RECHERCHE").Range("B" & derligne) = Sheets(S).Range("B" & i)
            ' etc etc 
         End If
      Next i
Next S   ' sheet
End Sub

Edit : pas rafraîchi et donc vu ton msg H2SO4

Merci pour votre aide