Passage de userform et combobox en paramètres

bonjour,
je débute en vba excel et j'ai un problème
j'ai beaucoup cherché sur le web, les cours etc je ne trouve pas de solution à mon pb
en fait j'ai deux userforme userforme1 et userforme2 dans chaque userfrome j'ai un combobox1 et combobox2
j'ai une procédure pour initialiser qui fait appel a une procédure pour initialiser les combo avec comme paramétré de passage le nom de userforme le nom du comboboxe et la colonne d'une feuille excel feuille1 qui contient les donnes d'initialisation

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub UserForme_Initialize()   Remplir_Combobox (userforme1,comboboxe2,"A") Remplir_Combobox (userforme2,comboboxe1,"D") end sub   sub Remplir_Combobox (nomuserforme,nomcomboboxe,colonne)   ' est la je manipule les userformes et les combobox et les colonne suivant l'envoie si c'est userforme1 , comboboxe2 et A end sub

---

voila le principe j'ai essayé plusieurs codes mais toujours il y a un problème je ne trouve pas le bon code pour passer ces paramètres
est ce qu'il y a quelqu’un qui peut m'aider
merci d'avance

Bonjour,

J'ai essayé de faire une procédure avec passage de paramètres des userform qui initialise deux combobox avec des sources des données en feuil1.
l'essai des affichages fonctionne... Il vous suffit par ailleurs d'adapter les sources et l'utilisation des userform à votre idée.

Je pense qu'il vaudrait mieux utiliser l'initialisation des combo à l'ouverture des userform en utilisant la procédure evenementielle "UserForm_Initialize()"(double click sur le fond du userform pour y mettre le code).

mon code d'essai :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Sub Remplir_Combobox(ByRef nomuserforme As UserForm, colonne As Range)   With nomuserforme 'si les combo ont le même nom dans les userform .ComboBox1.RowSource = colonne.Address .ComboBox2.RowSource = colonne.Offset(0, 1).Address 'si les données sont là! End With End Sub   Sub init() Dim col As Range   Set col = Range("A2:A9") Load UserForm1 Call Remplir_Combobox(UserForm1, col)   Set col = Range("C2:C9") Load UserForm2 Call Remplir_Combobox(UserForm2, col)   'pour essai... UserForm1.Show UserForm2.Show Unload UserForm1 Unload UserForm2   End Sub   Private Sub CommandButton1_Click() Call init End Sub

---

l'essai :Pièce jointe 228691

Cordialement
geogeo

Bonjour tout le monde et bonne et heureuse année 2017
je tiens a remercier particulièrement GEOGEO70 pour sa réponse rapide
il me semble que çà marche pas mal par contre je ne trouve toujours pas comment passer un combobox en paramètre

Bonjour,

quand tu dis "passer un combobox en paramètre", c'est le contrôle en lui-même (donc l'objet) ou la valeur qu'il possède lors de l'appelle de la procédure ?


je présume que c'est le contrôle que tu veux envoyer, admettons que ce soit ComboBox1

Code:

---

1 2 3

Private Sub UserForm_Initialize() RempliMonCombo Me.ComboBox1 End Sub

---

avec un remplissage bidon que je te laisserai le soin d'adapter

Code:

---

1 2 3 4 5

Sub RempliMonCombo(LeCombo As MSForms.ComboBox) With LeCombo .List = Array("toto", "titi", "tata") End With End Sub

---

Regarde bien le type du paramètre de cette procédure ;)

bonjour,
en fait ce que je veux c'est de passer un userforme, un combobox et la colonne pour le remplissage en paramètre ce n'est pas la valeur
car j'ai un code du style

Code:

---

1 2 3 4 5 6 7

Sub UserForme_Initialize()   Remplir_Combobox (userforme1,comboboxe1,"A1:A15") Remplir_Combobox (userforme1,comboboxe2,"B1:B15") Remplir_Combobox (userforme1,comboboxe3,"C1:C15")   endsub

---

après je dois développer Remplir_Combobox (........,........,..........)

geogeo70 t'a montré pour passer un Userform et une plage de données
moi j'ai montré pour un Combobox


t'as tout ce qu'il te faut pour comprendre et restituer ces propositions