Récupération Données

[Chasse]

Bonjour le Forum

Sur cette macro

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 Sub

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

 

[Pierrot93]

Re : Récupération Données

Bonsoir Chasse

essaye peut être le test ci-dessous :

For n = 1 To Sheets.Count
If Right(Sheets(n).Name, 3) = "ARR" Then

bonne soirée
@+

 

[Guest]

Re : Récupération Données

Bonjour,

Essai ceci

Remplacer

If InStr(Sheets(n).Name, "Recap") = 0 Then

par

If Sheets(n).Name Like  "* ARR" Then

A+

[Edition] Re Pierrot

 

[Chasse]

Re : Récupération Données

Bonsoir Pierrot & Hasco

Merci pour la rapidité ça fonctionne
Bonne soirée