P
ptitepo
Guest
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
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
Code:
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