XL 2016 Boucle codename

bonoboas · 28 Décembre 2017

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 :

Code:

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 · 28 Décembre 2017

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 · 28 Décembre 2017

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

Dranreb · 28 Décembre 2017

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

VB:

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

bonoboas · 28 Décembre 2017

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

ChTi160 · 28 Décembre 2017

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 · 28 Décembre 2017

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 · 28 Décembre 2017

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 · 28 Décembre 2017

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

VB:

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 · 28 Décembre 2017

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

XL 2016 Boucle codename

bonoboas

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

bonoboas

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

bonoboas

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

bonoboas

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

bonoboas

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Discussions similaires