Discussion :

[rominet64]

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

[unparia]

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 :

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

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

ou encore ainsi :

Code :

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

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 :

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

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

[rominet64]

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

[unparia]

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) !ù

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 ?

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 :

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

[rominet64]

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

Code :

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

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 :

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

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)