Discussion :

[tchauviere]

Bonjour à tous,
Je bute sur le pb suivant :

J'ai la fonction suivante pour initialiser des combobox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Bigalo]

Bonsoir,

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

Cordialement,


Michel Gaboly

[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.

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?

[Bigalo]

Pierre,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou mieux encore, par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

en conservant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RefCombo As Variant

dans la Sub "InitCb serait encore mieux

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[Pierre Fauconnier]

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...

[Bigalo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[tchauviere]

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