XL 2016 Boucle codename

[bonoboas]

Bonjour,
Je me permets de vous solliciter pour vos lumières sur une simple boucle d'un codename :
J'ai nommé les codenames de mon classeur de la façon suivante : DQE11, DQE12, DQE13 jusqu'au DQE43
Le but de cette macro est de faire une récap c'est à dire copier les données de l'ensemble des feuilles DQE dans la feuille Récap les unes sous les autres (je mettrais un filtre par la suite)
Mais le code ne boucle pas :

Sub Recap()
Dim dlgR As Integer, dlgi As Integer
Dim i As Byte
Dim Ws As Worksheet
With Sheets("RECAP")
dlgR = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A1:F" & dlgR).ClearContents
End With
For i = 11 To 43
Set Ws = DQE & i
dlgR = Sheets("RECAP").Range("A" & Rows.Count).End(xlUp).Row
dlgi = Ws.Range("A" & Rows.Count).End(xlUp).Row
Ws.Range("A1:F" & dlgi).Copy Sheets("RECAP").Range("A" & dlgR + 1)
Next i

End Sub

Merci d'avance pour votre aide
Cordialement
Anthony

 

[ChTi160]

Bonsoir bonoboas
Bonsoir le Fil,Le Forum
pourquoi ne pas nommer les feuilles ainsi et faite une boucle du genre
Set Ws=worksheets(“DQE”&i)
pas d ordi donc pas de test lol(telephone)
bonne soiree
Amicalement
jean marie

 

[bonoboas]

Bonsoir Jean-Marie,
les noms des feuilles peuvent changer, je suis donc obligé de partir sur du codename

 

[Dranreb]

Bonsoir.
Si les feuilles se suivent, essayez une séquence comme celle ci :

Set Wsh = DQE11
Do Until Wsh Is Nothing
   …
   If Wsh.CodeName = "DQE43" Then Exit Do
   Set Wsh = Wsh.Next: Loop

 

[bonoboas]

Bonsoir Dranreb,
Vous pouvez me donner code au complet parce que je ne vois pas.

 

[ChTi160]

re
Histoire de Saluer Dranreb
y a t il une partie commune dans le nom des feuilles cible , dans le codename c est “DQE”
merci
amicalement
jean marie

 

[bonoboas]

Voici les noms des feuilles (propriété : name) : démolition, gros-oeuvre, charpente, couverture...
Voici les noms des codename (propriété : (name)) : DQE11,DQE12,DQE13....
attention les parenthèses ont une importance ici, mais je pense que vous savez
Ces noms peuvent être changer par l'utilisateur, j'ai fait le choix d'utiliser des codenames simple pour faire une boucle.

 

[ChTi160]

ok
bien compris
toujours sans ordi
For each Ws in Worksheets
If Ws.CodeName like “DQE” &[0-9] then
Ou
Ws.CodeName Like “DQE##”
End If
Next
Amicalement
jean marie

 

[bonoboas]

Merci Jean-Marie ça marche voici le code final
Si ça peut servir :

Sub Recap()
Chiffrage10.Activate
Dim dlgR As Integer, dlgi As Integer
Dim i As Byte
Dim Ws As Worksheet
With Sheets("RECAP")
dlgR = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A1:F" & dlgR).ClearContents
End With
For i = 11 To 43
For Each Ws In Worksheets
If Ws.CodeName Like "DQE" & i Then
dlgR = Sheets("RECAP").Range("A" & Rows.Count).End(xlUp).Row
dlgi = Ws.Range("A" & Rows.Count).End(xlUp).Row
Ws.Range("A1:J" & dlgi).Copy Sheets("RECAP").Range("A" & dlgR + 1)

End If
Next
Next
End Sub

Merci beaucoup

 

[ChTi160]

re
Dans ta procedure
tu peux aussi mettre :
dlgR = .Range("A" & Rows.Count).End(xlUp).Row+1
pour obtenir la derniere ligne non vide et oter le +1
de
Ws.Range("A1:J" & dlgi).Copy Sheets("RECAP").Range("A" & dlgR)
bonne continuation
amicalement
jean marie