XL 2010 Boucle for each Certaines feuilles avec CodeName

cp4 · 27 Avril 2020

Boujour ,

Je crois que le titre est explicite. Avec le code ci-dessous, je boucle sur certaines feuilles dont les noms sont mis dans un array.

VB:

Option Explicit
Sub BoucleForEach()
Dim Wsh As Worksheet
For Each Wsh In Worksheets(Array("A", "B"))
         With Wsh
         .Activate 'ici pour exécuter un code
         End With
      Next
End Sub

Je voudrais faire la même chose mais en utilisant le CodeName. J'ai trouvé des exemples mais pas similaire à mes attentes.

En vous remerciant par avance.

Dranreb · 27 Avril 2020

Bonjour.
Mettez leur des CodeName avec un début identique reconnaissable.
Cette propriété String en lecture seule d'un objet Worksheet reproduit le nom VBA de cet objet dans la rubrique Microsoft Excel Objets. C'est donc le nom de l'objet dans cette rubrique qu'il faut changer pour qu'elle change. Elle n'est clé d'aucune collection hormis VBProject.VBComponents.

patricktoulon · 27 Avril 2020

re
bonjour cp4
je ne sais si tu peux faire comme ca
tout du moins pour l'object sheets avec le codename
tu peux bien entendu récupérer le codename des feuilles mais tu obtiens un string et non un object sheets mais ca s'arrête là

quand au vbcomponent c'est encore autre chose
je ne pense pas que tu puisse faire un vbproject.vbcomponents("Feuil1").activate

donc NON!!!

patricktoulon · 27 Avril 2020

par contre avec ton array tu peux faire comme ca

VB:

For Each Wsh In Array(Feuil1,Feuil4)

         With Wsh

         .Activate 'ici pour exécuter un code

         End With

      Next

correction "good Dranreb"

Dranreb · 27 Avril 2020

Je dirais plutôt For Each Wsh In Array(Feuil1, Feuil4)
Sinon ce serait For Each Wsh In Worksheets(Array(Feuil1.Name, Feuil4.Name))
Mais je n'ai rien testé non plus de tout ça.

patricktoulon · 27 Avril 2020

oui pardon Dranreb a raison j'ai fait le bené je corrige

cp4 · 27 Avril 2020

@Dranreb ,@patricktoulon ,

Merci pour vos explications, j'ai testé mais ça ne fonctionne pas, avec wsh as worksheet.
Mais fonctionne je déclare wsh en variant.

Merci beaucoup.

Prenez soin de vous.

XL 2010 Boucle for each Certaines feuilles avec CodeName

cp4

XLDnaute Barbatruc

Pièces jointes

Dranreb

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Discussions similaires