Echanges entre userforms

Bonjour

j'ai un petit souci de syntaxe
dans l'userform1 j'ai 13 cases à cocher
dans l'userform2 j'ai une combobox qui est alimentée à partir d'un onglet (Panneaux")
si usf1.optionbouton1 alors la usf2.combo est alimentée par le colonne 1 de Panneaux
si usf1.optionbouton2 alors la combo est alimentée par le colonne 3 de Panneaux

mon souci comment faire comprendre à excel si usf1.optionbouton1.value = true alors usf2.combox alimentée par ....

merci pour votre aide
cordialement

Bonsoir Pierre, bonsoir le forum,

• Dans un module standard (Module1 par exemple), en première ligne de ce module, tu déclares une variable publique qui va stocker la colonne :

Code:

---

Public COL As Integer

---

• J'imagine que ton UserForm1 contient un CommandButton avec un code du style :

Code:

---

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

Private Sub CommandButton1_Click() Dim CTRL As Control 'déclare la variable CTRL (ConTRôLe)   For Each CTRL In Me.Controls 'boucle sur tous les contrôles de l'UserForm If TypeOf CTRL Is msforms.OptionButton Then 'condition 1 : si le contrôle est un bouton d'option If CTRL.Value = True Then 'condition 2 : si le contrôle est vrai COL = CInt(Mid(CTRL.Name, 13)) 'stocke le numéro du bouton d'option dans la variable COL Exit Sub 'sort de la procédure End If 'fin de la condition 2 End If 'fin de la condition 1 Next CTRL 'prochain contrôle de la boucle End Sub

---

• À l'initialisation de l'UserForm2, il ne te reste plus qu'à alimenter la ComboBox1 à l'aide de la variable COL avec un code du style :

Code:

---

1 2 3

With Sheets("Panneaux") ComboBox1.List = .Range(.Cells(2, COL), .Cells(Application.Rows.Count, COL).End(xlUp)).Value End With

---

Dans ce code j'ai utilisé les derniers caractères numériques du nom du bouton d'option convertis en entier (Cint(Mid(CTRL.Name, 13))). Il te faudra donc renommer les boutons d'option pour que leur derniers caractères corresponde à la colonne COL (OptionButton1, OptionButton3, OptionButon5, etc.).
Ou alors, on peut utiliser la propriété [Tag] (en dur dans la fenêtre des propriétés) de ces contrôles en lui attribuant le numéro de la colonne (OptionButton1.Tag = 1, OptionButton2.tag = 3, OptionButton3.Tag = 5, etc)
et dans ce cas remplacer la ligne :

Code:

---

COL = CInt(Mid(CTRL.Name, 13)) 'stocke le numéro du bouton d'option dans la variable COL

---

par :

Code:

---

COL = CInt(CTRL.Tag) 'stocke le numéro du bouton d'option dans la variable COL

---

Bonjour Pierre, bonjour le forum,

Discussion résolue ?... Pas même un remerciement ! Ce n'est pas un(e) Pierre précieuse que nous avons là...

C'est pas dans mes habitudes de ne pas remercier il suffit de voir mes autres discussions
j'étais à la bourre et fermé trop vite

merci à ceux qui contribuent
mes excuses
cordialement