edfred
XLDnaute Nouveau
Bonjour à tous.
Je bute sur un Userforme contenant deux boutons "Option" nommés par exemple OptListe1 et OptListe2 suivis d'une combobox et des traditionnels boutons "Valider" et "Annuler".
Dans une feuille (Feuil1), j'ai deux tableaux nommés par exemple "Tableau1" et "Tableau2".
Là où je bute....
J'aimerais dans cette combobox pouvoir afficher les données du tableau 1 si le bouton "OptListe1" est coché et les données du tableau 2 si le bouton "OptListe2" est coché.
D'avance merci pour toute aide ou idée qui me feront avancer sur ce stuuuuut.
PS le code essayé ne fonctionnant pas :
Private Sub UserForm_Initialize()
Workbooks("Fichier.xlsm").Activate
If OptListe1 = True Then
ComboArticle.RowSource = ("BDD!Tableau1")
Else
If OptListe2 = True Then
ComboArticle.RowSource = ("BDD!Tableau2")
Else
End If
End If
End Sub
Je bute sur un Userforme contenant deux boutons "Option" nommés par exemple OptListe1 et OptListe2 suivis d'une combobox et des traditionnels boutons "Valider" et "Annuler".
Dans une feuille (Feuil1), j'ai deux tableaux nommés par exemple "Tableau1" et "Tableau2".
Là où je bute....
J'aimerais dans cette combobox pouvoir afficher les données du tableau 1 si le bouton "OptListe1" est coché et les données du tableau 2 si le bouton "OptListe2" est coché.
D'avance merci pour toute aide ou idée qui me feront avancer sur ce stuuuuut.
PS le code essayé ne fonctionnant pas :
Private Sub UserForm_Initialize()
Workbooks("Fichier.xlsm").Activate
If OptListe1 = True Then
ComboArticle.RowSource = ("BDD!Tableau1")
Else
If OptListe2 = True Then
ComboArticle.RowSource = ("BDD!Tableau2")
Else
End If
End If
End Sub
Dernière édition: