[VBA] [E-XP] pb de passage variable objet

Bonjour à tous,
Je bute sur le pb suivant :

J'ai la fonction suivante pour initialiser des combobox :

Code:

---

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

Sub InitCb(RefFichier As Workbook, _ RefFeuille As Integer, _ RefCel As String, _ RefCol As String, _ RefCombo As Variant) Dim compteur As Long Dim AjoutListe As String For compteur = 2 To RefFichier.Sheets(RefFeuille).Range(RefCel).End(xlDown).Row AjoutListe = RefFichier.Sheets(RefFeuille).Range(RefCol & compteur).value RefCombo.AddItem (AjoutListe) Next compteur End Sub

---

qui est appelée de la façon suivante :

Code:

---

1 2	Call InitCb(FicParamètres, 4, "A1", "A", MultiPageMachines.pgMachine1.cbConstructeur1)

---

ça marche, mais je voudrais passer l'argument RefCombo sous forme d'une variable string concatennée du style :

Code:

---

1 2 3

Dim comboStr As String comboStr = "MultiPageMachines.pgMachine1.cbConstructeur" & variableNumérique

---

évidemment ça coince puisque la fonction attend un objet combo
J'ai passé l'après-midi sur le net sans succès...
Quelqu'un aurait-il une solution svp
En vous remerciant d'avance
Thierry

Bonsoir,

Dans ta Sub, remplace RefCombo As Variant par RefCombo as String, et RefCombo.AddItem par Controls(RefCombo).AddItem.

Cordialement,


Michel Gaboly

Bonjour Thierry,

Pourquoi veux-tu modifier cela? Qu'auras-tu de plus à utiliser une chaine de caractères? L'avantage de passer le combo en tant qu'objet te permet de le manipuler comme tel dans ta procédure, et donc de ne pas devoir le redéfinir à l'intérieur de la procédure.

La procédure de Michel fonctionnera si et seulemement si le parent du combo est l'objet ME, c'est-à-dire si ta procédure qui utilisera le nom du combo se trouve dans le module de classe de l'objet qui contient le combo (un userform en l'occurence, car les feuilles de calcul ne contiennent pas de collection controls). Si ta procédure se trouve ailleurs que dans ce module de classe, tu devras préfixer Controls(RefCombo).AddItem...

Pourrais-tu nous dire l'utilité de la modification?

Pierre,

Citation:

---

Envoyé par Pierre Fauconnier

Bonjour Thierry,

Pourquoi veux-tu modifier cela? Qu'auras-tu de plus à utiliser une chaine de caractères? L'avantage de passer le combo en tant qu'objet te permet de le manipuler comme tel dans ta procédure, et donc de ne pas devoir le redéfinir à l'intérieur de la procédure.

---

Je me suis posé la même question que toi : quel intérêt d’utiliser une chaine de caractères.

J’ai répondu pour 2 raisons :

• Thierry a droit à une réponse, même si la demande nous paraît farfelue de prime abord. Je n’ai pas ici une fonction de contrôleur, destiné à juger sévèrement les demandes : si un exemple de code est aberrant, je vais le dire, mais s’il est juste "suboptimal" (pour citer un vieil ami), je ne sens nullement obligé d’expliquer tout ce qui ne va pas, selon moi.
• J’ai suppposé qu’une justification possible était de traiter plusieurs combo situés au même endroit, auquel cas, "MultiPageMachines.pgMachine1.cbConstructeur" pourrait être stocké dans une variable, "Racine" par exemple, ce qui permettrait de remplacer :

Code:

---

Call InitCb(FicParamètres, 4, "A1", "A", MultiPageMachines.pgMachine1.cbConstructeur1)

---

par

Code:

---

Call InitCb(FicParamètres, 4, "A1", "A", Racine & 1)

---

ou mieux encore, par

Code:

---

InitCb FicParamètres, 4, "A1", "A", Racine & 1

---

le mot clef "Call" étant un résidu des Basic d’autrefois, parfaitement superflu en VBA.

Il est vrai que même dans ce cas,

Code:

---

InitCb FicParamètres, 4, "A1", "A", Controls(Racine & 1)

---

en conservant

Code:

---

RefCombo As Variant

---

dans la Sub "InitCb serait encore mieux :)

Citation:

---

Envoyé par Pierre Fauconnier

La procédure de Michel fonctionnera si et seulemement si le parent du combo est l'objet ME, c'est-à-dire si ta procédure qui utilisera le nom du combo se trouve dans le module de classe de l'objet qui contient le combo (un userform en l'occurence, car les feuilles de calcul ne contiennent pas de collection controls). Si ta procédure se trouve ailleurs que dans ce module de classe, tu devras préfixer Controls(RefCombo).AddItem...
Pourrais-tu nous dire l'utilité de la modification?

---

Tout à fait, mais

Code:

---

Call InitCb(FicParamètres, 4, "A1", "A", MultiPageMachines.pgMachine1.cbConstructeur1)

---

dans l’exemple de code laisse fortement penser que le ComboBox est situé sur une page d’un contrôle Multipage.

Comme ce contrôle Multipage, "MultiPageMachines" est utilisé directement, sans préfixe, on peut en déduire que le code applelant la Sub "InitCb" se trouve dans le module associé au UserForm concerné (sauf si l’objet MultiPage est posé directement sur une feuille de calcul), ce qui me paraît hautement improbable.

Il est également très peu probable que la procédure "InitCb" se trouve dans un autre module, et si c’était le cas, cela appellerait d’autres critiques. À défaut d’info complémentaire, j’ai effectivement supposé que "InitCb" était dans le module du UserForm.

Cordialement,

Salut Michel,

Je ne vais pas ici discuter de nos philosophies respectives quant à l'opportunité d'une réponse ou d'une question "subsidiaire"...

Ma question à Thierry sur le pourquoi de la modification lui permettra de nous préciser ce qu'il souhaite réaliser, et donc de l'aider à optimiser son code, quitte à le remanier avec lui... (Chacun sa philosophie...)

Cela étant, sur l'intérêt technique de la chose:

Soit la procédure est externe au module de classe, et en utilisant une chaine de caractères, il faudra préfixer l'objet. Ce préfixage sera inutile si l'on passe l'objet en tant que tel, quitte à créer, à l'intérieur de la procédure appelante, la boucle pour déterminer l'objet (pour ma part, gestion plus propre du code)...

Soit la procédure est interne au module de classe, et il n'y a alors pas lieu, a priori, de passer le combo en paramètre puisqu'il est utilisable directement en tant que tel à l'intérieur de la procédure.

C'est pourquoi j'en appelle à Thierry pour qu'il explicite ce qu'il souhaite obtenir...

Pierre,

Que le procédure soit interne ne rend absolument pas inutile de passer le combo en paramètre :

Si Thierry a écrit une procédure pour initialiser les Combo, on peut supposer qu’elle est destinée à être utilisée pour plusieurs Combo distincts, auquel cas, il faut bien passer à la procédure le Combo concerné, chaque fois qu’elle est appelée !

Le "1", à la fin du nom du Combo utilisé dans l’extrait de code, cbConstructeur1, semble bien confirmer l’existence de plusieurs Combo similaires.

Dans mon esprit, que la procédure soit dans un module standard ne se justifie que si elle est utilisée pour plusieurs UserForms distincts, auquel cas, il n’y a aucune raison de l’appeler à partir du module du UserForm. Le code correct me paraît alors devoir être quelque chose comme :

Code:

---

1 2 3 4 5 6 7 8

Sub InitUF1() Dim Racine As String, i As Integer Racine = "MultiPageMachines.pgMachine1.cbConstructeur" For i = 1 To 4 ' Borne à adapter InitCb FicParamètres, 4, "A1", "A", UF1.Controls(Racine & i) Next UF1.Show End Sub

---

Dans le module contenant la Sub "InitCB".

Amicalement,

Bonjour,
Tout d'abord merci de votre intérêt à ma question et vos réponses.
Comme vous pouvez voire la combo est dans un multipage.
Or j'ai 10 pages avec le même combo :

de MultiPageMachines.pgMachine1.cbConstructeur1
à MultiPageMachines.pgMachine10.cbConstructeur10

d'ou l'idée de faire une boucle de 10 avec un seul appel de sub en faisant varier le nom du combo par variable concaténée.

Il n'y a qu'un formulaire et l'appel de la sub est dans son code d'initialisation.
Merci encore
Thierry

Salut

Voici ta procédure adaptée

Code:

---

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

Sub InitCb(RefFichier As Workbook, _ RefFeuille As Integer, _ RefCel As String, _ RefCol As String, _ RefCombo As Integer) Dim compteur As Long Dim AjoutListe As String For compteur = 2 To RefFichier.Sheets(RefFeuille).Range(RefCel).End(xlDown).Row AjoutListe = RefFichier.Sheets(RefFeuille).Range(RefCol & compteur).value controls("cbconstructeur" & refcombo).AddItem AjoutListe Next compteur End Sub

---

si les noms de tes combo sont bien "cbconstructeur..."

Merci Pierre et Michel,
Grâce à vous ça marche maintenant de la façon suivante :

Code:

---

1 2 3 4 5 6 7 8

'code d'appel Dim compteur As Integer Dim nomCombo As String For compteur = 1 To 10 nomCombo = "cbConstructeur" & compteur InitCbMulti FicParamètres, 4, "A1", "A", nomCombo Next

---

avec

Code:

---

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

' initialisation des listes de choix Sub InitCbMulti(RefFichier As Workbook, _ RefFeuille As Integer, _ RefCel As String, _ RefCol As String, _ RefCombo As Variant) Dim compteur As Integer Dim AjoutListe As String For compteur = 2 To RefFichier.Sheets(RefFeuille).Range(RefCel).End(xlDown).Row AjoutListe = RefFichier.Sheets(RefFeuille).Range(RefCol & compteur).value Me.Controls(RefCombo).AddItem (AjoutListe) Next compteur End Sub

---

Par contre, ce qui m'a surpris c'est que l'objet cbConstructeur est accessible au niveau de la feuille (me.cbConstructeur1) et non au niveau de la page (MultiPageMachines.pgMachine1.cbConstructeur1) qui nous donne une erreur de compile "objet spécifié non trouvable". Je vais creuser ce point car j'aime bien comprendre.

Merci à vous deux pour cette aide précieuse.
Thierry

Bonsoir,

De rien :)

Cela un paquet d'années que je n’ai pas utilisé un MultiPage.

De mémoire tous les contrôles sont directement accessibles à partir de la collection Controls du UserForm. Le "Me" étant d’ailleurs superflu.

As-tu examiné si le Multipage a une propriété Controls ?

Cordialement,

Bonsoir Michel,
En regardant, le Multipage est une collection de Pages avec quelques évennements derrière et une fonction count. Pas de controls.
Les objets contenus dans les pages sont accessibles directement au niveau du userform, comme ceux d'un frame.
Ce qui m'a planté c'est que la fonction décrite dans mon premier post avec le chemin complet marchait.

Code:

---

1 2	Call InitCb(FicParamètres, 4, "A1", "A", MultiPageMachines.pgMachine1.cbConstructeur1)

---

alors qu'elle plantait dans la version avec un passage de paramètre en string.
Enfin voila, ça fonctionne, c'est ce qui compte.
Bonne soirée
Thierry

Je viens de faire un test. La situation est un peu compliquée :

Code:

---

1 2 3

Private Sub UserForm_Initialize() MultiPage1.Page1.TextBox1 = 12 End Sub

---

Fonctionne parfaitement.

Un objet "MultiPage" n’a pas de collection "Controls". Par contre, il a une collection "Pages", et chaque objet "Page" a une collection Controls, comme un Frame. Dans les 2 cas, Frame et Page, les objets de la collection Controls appartiennent également à la collection Controls du UserForm.

Voilà.

Cordialement,