Bonjour le forum,
J'ai essayé plusieurs solutions mais je n'y arrive pas.
J'essaye simplement de remplir ma combobox1 si on clique sur Optionbutton1. Les données du combobox1 sont prisent sur la feuille 2 du classeur.
Exemple : Si je clique sur OptionButton1 alors les données dans la combobox1 sont celles de la colonne 1, de la feuille 2 du classeur en démarrant de la 2ème ligne.
Si je clique sur OptionButton2 alors les données dans la combobox1 sont celles de la colonne 2, de la feuille 2 du classeur en démarrant de la 2ème ligne.
et ainsi de suite ...
Mon code semble ok mais je ne sais pas ce qu'il cloche.
Si quelqu'un connait la solution à mon problème, je suis preneur.
Merci de votre aide.
En PJ le fichier.
PS : Pour faire apparaître l'userform il suffit de mettre NOK sur n'importe quelle cellule de la feuille 1.
Merci à vous
Benam
J'ai essayé plusieurs solutions mais je n'y arrive pas.
J'essaye simplement de remplir ma combobox1 si on clique sur Optionbutton1. Les données du combobox1 sont prisent sur la feuille 2 du classeur.
Exemple : Si je clique sur OptionButton1 alors les données dans la combobox1 sont celles de la colonne 1, de la feuille 2 du classeur en démarrant de la 2ème ligne.
Si je clique sur OptionButton2 alors les données dans la combobox1 sont celles de la colonne 2, de la feuille 2 du classeur en démarrant de la 2ème ligne.
et ainsi de suite ...
Mon code semble ok mais je ne sais pas ce qu'il cloche.
VB:
Private Sub ComboBox1_Change()
Dim ComboBox1 As Long
Dim i As Integer 'Pour lignes
If OptionButton1 = True Then
ComboBox1 = Sheets("Feuil2").Range("A50").End(xlUp).Row 'Variable = denière ligne non vide
For i = 2 To ComboBox1 'Démarrage ligne 2 vers la dernière non vide
Me.ComboBox1.AddItem Cells(i, 1) 'Ajouter en Comboxbox1 la liste
Next
End If
End Sub
Si quelqu'un connait la solution à mon problème, je suis preneur.
Merci de votre aide.
En PJ le fichier.
PS : Pour faire apparaître l'userform il suffit de mettre NOK sur n'importe quelle cellule de la feuille 1.
Merci à vous
Benam