Discussion :

[Pierre67]

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

[Thautheme]

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 :

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

Public COL As Integer

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

Code :

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

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 :

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

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 :

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

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

par :

Code :

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

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

[Thautheme]

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

[Pierre67]

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