comment désigner une combobox d'un userform à partir d'un module

Bonjour à tous,
après des recherches dans ce forum je n'arrive pas à trouver la réponse à mon petit problème :
je souhaite pouvoir utiliser une même procédure dans plusieurs userform notamment pour initialiser une combobox . Je n'arrive pas à désigner en vba cette combobox, sachant que je transfère le nom de l'userform appelant à la procédure sous forme d'une variable "appelant"string public .
j'ai essayé plusieurs déclarations dans le module du genre :

Msforms.Combobox1(appelant).clear réponse " membre de méthode ou de données introuvable"
ou Userform(appelant).combobox1.clear réponse "incompatibilité de type"
ou MSForms(appelant).combobox1.Clear réponse "variable ou procédure attendue et non un projet"

là je bloque ... si qq'un peut me dépanner
Cordialement à tous les membres du forum

Bonjour
Est-il si difficile de comprendre qu'un objet n'est pas une chaîne de caractères ?

Voilà comment je vais te répondre. Par un exemple avec un bouton de commande placé sur un userform

Appel depuis ailleurs :

Code:

---

1 2	UserForm1.CommandButton1.BackColor = vbRed UserForm1.Show 0

---

ou encore ainsi :

Code:

---

1 2 3 4 5

Dim F As UserForm, c As MSForms.CommandButton Set F = UserForm1 Set c = F.CommandButton1 c.BackColor = vbRed UserForm1.Show 0

---

ou encore ainsi (via une procédure paramétrée) :

Code:

---

1 2 3 4 5 6

agir UserForm1, UserForm1.CommandButton1   Private Sub agir(F As Object, c As MSForms.CommandButton) c.BackColor = vbRed F.Show 0 End Sub

---

Entre autres. Comprends et adapte comme tu le souhaites ...

bonjour Unparia, d'abord merci d'avoir prêté attention à ma demande :)

non à priori je ne confond pas, mais peut-être ai-je mal formulé ma question ?
mon besoin est d'initialiser des userforms comprenant un combobox identique.
Pour éviter de reproduire le code je souhaite mettre une procédure publique dans un module.
Cette procédure doit pouvoir s'exécuter en sachant quel userform l'a appelé afin de nommer la bonne combobox pour faire un clear et recharger les items.
C'est cette désignation paramétrée du combobox que je n'arrive pas à faire fonctionner.
Donc je ne souhaite pas modifier la forme du combo mais intervenir sur son contenu.
Dans le userform je sais faire, pas de pb .
Cordialement et encore merci pour le coup de main 8O

Citation:

---

Donc je ne souhaite pas modifier la forme du combo mais intervenir sur son contenu.

---

Oui ? Et ? mon exemple était un exemple. Le mécanisme est le même, quelle que soit la propriété à modifier (couleur ou autre) !ù

Citation:

---

Pour éviter de reproduire le code je souhaite mettre une procédure publique dans un module.

---

Hé bien --->> une procédure paramétrée déclarée Publique dans un module standard ! Où est le problème ?

Citation:

---

Cette procédure doit pouvoir s'exécuter en sachant quel userform l'a appelé afin de nommer la bonne combobox pour faire un clear et recharger les items.

---

Hé bien ! --->> lui passer, parmi les paramètres que l'on veut passer, également celui de l' "appelant" ! Là non plus, je ne vois pas où est la difficulté ...

Mais on va pouvoir être plous précis, sur la base d'autres précisions.
Tu dis :

Citation:

---

Dans le userform je sais faire, pas de pb .

---

Voyons ce que tu écrirais dans le userform lui-même. (code)
Et montre-nous (en commentaire) quelle est la partie de ce code qui nécessite de savoir quel aurait été l' "appelant".

bonjour,
ci après la méthode que je comptais employer :
code dans l'userform "totocréa", le combobox s'appelle Famille :

Code:

---

1 2 3 4 5 6 7 8 9

Public famillenew, appelant As String Public ws As Worksheet   Private Sub UserForm_Initialize() ......   ' ******** initialisation de la liste des familles -------- Set ws = Sheets("Paramètres") initfamille (appelant)

---

dans le module

Code:

---

1 2 3 4 5 6

Public Sub initfamille(appelant) Application.EnableEvents = False   Lignemax = ws.Range("F" & Rows.Count).End(xlUp).Row ...... UserForms(appelant).Famille.Clear

---

...---> là je bloque (voir mon 1er message)