Chasse
XLDnaute Occasionnel
Bonjour le Forum
Sur cette macro
je récupère les données de toutes les feuilles
Seulement j’aimerais récupérer les données des feuilles dont le nom se termine par ARR
"Août AAR" "septembre ARR" etc.
Que dois-je changer à la macro !
Merci de votre aide
Sur cette macro
Code:
Sub recap()
If Feuil2.Range("A65536").End(xlUp).Row > 3 Then Feuil2.Range("A3:I" & Feuil2.Range("A65536").End(xlUp).Row).ClearContents
If Feuil2.Range("A65536").End(xlUp).Row > 3 Then Feuil2.Range("A3:I" & Feuil2.Range("A65536").End(xlUp).Row).ClearFormats
Application.ScreenUpdating = False
For n = 1 To Sheets.Count
If InStr(Sheets(n).Name, "Recap") = 0 Then
x = Feuil2.Range("A65536").End(xlUp).Row + 1
Sheets(n).Range("A4:I34").Copy Destination:=Feuil2.Range("A65536").End(xlUp).Offset(2, 0)
End If
Next n
For n = Feuil2.Range("A65536").End(xlUp).Row To 3 Step -1
For m = 2 To 9
ligne = ligne & Cells(n, m)
Next m
If ligne = "" Then Rows(n).Delete
ligne = ""
Next n
Application.ScreenUpdating = True
End SubSeulement j’aimerais récupérer les données des feuilles dont le nom se termine par ARR
"Août AAR" "septembre ARR" etc.
Que dois-je changer à la macro !
Merci de votre aide