Liste déroulante
a
Bonjour à tous,
Je cherche à créer un liste déroulante sous VBA pour cela j'ai d'abord créé un userform puis j'ai ajouté la "zone de liste modifiable" et j'ai mis les codes suivants :
Private Sub ComboBox1_Change()
End Sub
et :
Private Sub UserForm2_Initialize()
ComboBox1.Column = Sheets("feuil2").Range("Liste").Value
End Sub
La plage de cellule créant ma zone déroulante se trouve en feuille 2 et regroupe les cellules Liste (Liste est sur une seule ligne, plusieurs colonnes).
Le problème est lorsque j'utilise l'userform2 la liste déroulante n'apparait pas !
Bonjour
Essaie plutôt ceci :
Private Sub UserForm_Initialize()
ComboBox1.Column() = Sheets("Feuil2").Range("Liste").Value
End SubCode à mettre dans l'USF2 bien entendu.
Si ok, merci de cloturer le fil en cliquant sur le V vert à coté du bouton Editer
Amicalement
Edit Dan : Code modifé