Modification d'une feuille par codename variable

Vi, vi c'est pas mal les collections ; ça me plait pas mal... merci bbil

Je bataillais cette fois avec VBComponents et il y a ça aussi qui fonctionne :

Code:

---

1 2	Worksheets(ThisWorkbook.VBProject.VBComponents("Feuille_" & i).Properties("index"))

---

mais ce qui est bizarre c'est que ThisWorkbook.VBProject.VBComponents("Feuille_" & i) ne soit pas un objet worksheet...

quand je fais

Code:

---

1 2 3

dim objetOnglet as Worksheet set objetOnglet = ThisWorkbook.VBProject.VBComponents("Feuille_" & i)

---

j'ai une incompatibilité de type.

Pas très simple tout ça.

Oui, j'avais aussi fait ça, mais ça n'est pas du tout un composant dans le sens ou on l'entend, ce doit être une souche plus ancestral je pense. C'est pour ça que j'avais fait une function qui retournait directement le Worksheet

Avec un espion tu peux voir toutes les Properties, il y en a un paquet.

++
Qwaz

Bonsoir,

si j'ai mal compris, ne pas tenir compte du code

Code:

---

1 2 3 4 5 6

Sub t() Dim N As Byte For N = 1 To Sheets.Count If Left(Sheets(N).CodeName, 8) = "feuille_" Then Sheets(N).Range("A1") = "OK" Next End Sub

---

Merci pour cette réponse, c'étais une solution possible que j'avais évoqué plus haut mais que je voulais éviter (parcourir tous les onglets pour rechercher le bon).

Citation:

---

Envoyé par P4board

Pour s'en sortir il faudrait faire une boucle sur toutes les feuilles et vérifier que le codeName correspond, j'aurais alors son numéro (count), mais ce n'est pas vraiment très beau...

ex avec le code suivant qui devrait fonctionner :

Code:

---

1 2 3 4 5 6 7

For i = 1 To Worksheets.Count If (Worksheets(i).CodeName = codeNameFeuille ) Then Worksheets(i).range("A1").value="OK" Exit For End If Next i

---

---

Je cherchais une écriture directe et la solution que j'ai retenu et qui pour l'instant marche bien est :

Code:

---

Worksheets(ThisWorkbook.VBProject.VBComponents("Feuille_" & i).Properties("index"))

---

Un peu plus court à écrire que en passant par la propriete Name trouvé par qwazerty mais l'utilisation de sa fonction doit être mieux au niveau langage.

La soluce de la collection est bien mais pas simple au niveau de l'appel car ne peut être défini plusieurs fois (a définir à l'ouverture du fichier par exemple).

Peut-être une petite dernière question à Qwaz : comment qu'on fait-on un espion pour aller voir les properties de VBComponents ? la fonction est assez mal documenté sur le net.

En tout cas un grand merci à tous :ccool:

SAlut
Pour mettre un espion c'est très simple tu sélectionnes cette partie de ton code

Code:

---

ThisWorkbook.VBProject.VBComponents

---

tu fais un cliques droit sur cette sélection, puis ajouter un espion. Une fenêtre va s'ouvrir, tu laisse tout par défaut et tu cliques sur OK.

Une petite boite va s'ouvrir avec ton espion dedans, tu peux l’intégrer a l’environnement de vbe. Par la suite si tu veux rapidement ajouter un espion, tu sélectionnes le code et tu fais un drag and drope dans la boite Espion.

Ensuite tu peux déployer ton objet et regarder ce qu'il contient, c'est comme ça que j'ai trouvé le "Name".

Pour ce qui est de la Function que je te proposé, niveau code, ta méthode est tout aussi propre, l'avantage de la fonction est de diminuer les écritures

Code:

---

Set MonSheet = ThisWorkbook.Sheets(ThisWorkbook.VBProject.VBComponents("Feuille_" & i).Properties("index"))

---

devient

Code:

---

Set MonSheet = SheetByCodeName(ThisWorkbook, "Feuille_" & i)

---

A toi de voir. L'utilisation de Name ou Index est transparente dans ce cas la.

++
Qwaz

Citation:

---

Envoyé par SfJ5Rpw8

si tu y tiens plutôt qu'un tableau tu peu utiliser une collection :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Option Explicit Dim CodeNames As New Collection Sub InitCodeNames() 'A appeler une fois Dim f As Worksheet   For Each f In ThisWorkbook.Worksheets CodeNames.Add f, f.CodeName Next End Sub   Sub Test() InitCodeNames MsgBox CodeNames("MaFeuille_1").Name End Sub

---

---

Bonjour,
Je reviens sur cette bonne vieille discussion juste pour dire un grand MERCI.
Ce système de collection m'enlève en effet une grande épine du pied en me permettant de faire appel à différentes feuilles (aux noms un peu alambiqués) dans des boucles en combinant string et variables.
Juste perdu plus de 2 heures avant de découvrir ce fil.
Franck