Adapter un code a une nouvelle situation

[ptitepo]

Bjr à tous,
J'avais un code qui marchais totalement bien, sauf que maintenant le nom de mes feuilles changent, et peuvent changer souvent.
Mon code etait adapté pour les feuilles de nom Feuil1, Feuil2 ...
Maintenant se sont des noms de villes, et n'ont donc aucun signe en commun.
Je ne sais pas comment je peux adapté se paramètre a mon ancien code.
Merci

Dim ligne, ligne1, ligne2 As Integer
Dim cell As Range
For i = 2 To 24
ligne = Sheets("Feuil" & i).Range("A65536").End(xlUp).Row
   For Each cell In Worksheets("Feuil" & i).Range("B2:B" & ligne)
        If cell > 90 And cell < 99 Then
            ligne1 = cell.Row
            ligne2 = Sheets(1)("Synthèse").Range("A65536").End(xlUp).Row + 1
            Worksheets("Feuil" & i).Range("A" & ligne1).Copy Worksheets("Synthèse").Range("A" & ligne2)
            Worksheets("Feuil" & i).Range("B" & ligne1).Copy Worksheets("Synthèse").Range("B" & ligne2)
            Worksheets("Feuil" & i).Range("C" & ligne1).Copy Worksheets("Synthèse").Range("C" & ligne2)
            Worksheets("Feuil" & i).Range("D" & ligne1).Copy Worksheets("Synthèse").Range("D" & ligne2)
            Range("E" & ligne2) = Sheets("Feuil" & i).Name
        End If
    Next cell
Next i

 

[RENAUDER]

Re : Adapter un code a une nouvelle situation

Bonjour,

Tu peux utiliser Sheets(1), Sheets(2), etc ...

 

[ptitepo]

Re : Adapter un code a une nouvelle situation

D'accord mais il aime pas le sheets(i) je crois

For i = 2 To 24
ligne = Sheets(i).Range("A65536").End(xlUp).Row
For Each cell In Worksheets(i).Range("B2:B" & ligne)
        If cell > 90 And cell < 99 Then
            ligne1 = cell.Row
            ligne2 = Sheets("Synthèse").Range("A65536").End(xlUp).Row + 1
            Worksheets(i).Range("A" & ligne1).Copy Worksheets("Synthèse").Range("A" & ligne2)
            Worksheets(i).Range("B" & ligne1).Copy Worksheets("Synthèse").Range("B" & ligne2)
            Worksheets(i).Range("C" & ligne1).Copy Worksheets("Synthèse").Range("C" & ligne2)
            Worksheets(i).Range("D" & ligne1).Copy Worksheets("Synthèse").Range("D" & ligne2)
            Range("E" & ligne2) = Sheets(i).Name
        End If
    Next cell
Next i

 

[RENAUDER]

Re : Adapter un code a une nouvelle situation

Bonjour,

Ton code à l'air de fonctionner chez moi.

 

[ptitepo]

Re : Adapter un code a une nouvelle situation

Oui, c'est bon merci, je savais pas qu'on pourvais utiliser des numeros pour désigné des feuilles