Liste deroulant VBA ds excel

Résolu
marytyler Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
 marytyler -
Bonjour, je débute ds le vba donc je m'excuse si je m'exprime mal !
j'essaie de faire un vba, mais je n'arrive pas a avoir mes deux liste déroulante ds mes combo box.

'Pour le formulaire
Private Sub UserForm3()
Dim J As Long
Dim I As Integer

ComboBox2.ColumnCount = 1 'Pour la liste deroulante Civilite
ComboBox2.List() = Array("", "M.", "Mme", "Mlle")
Set Ws = Sheets("Feuil1") 'Correspond au nom de votre onglet dans le fichier Excel
With Me.ComboBox1
For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
.AddItem Ws.Range("A" & J)
Next J
End With
For I = 1 To 7
Me.Controls("TextBox" & I).Visible = True
Next I
End Sub

Voici ce que j'ai mis en code, dites moi ou est mon erreur, merci bcp d'avance
A voir également:

2 réponses

Réponse 1 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

Voir ceci:

https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-F 

Option Explicit
Private Sub UserForm_Initialize()
Dim J As Integer
ComboBox2.ColumnCount = 1 'Pour la liste deroulante Civilite
 ComboBox2.List() = Array("", "M.", "Mme", "Mlle")
 'Récupère les données de la colonne A...
    For J = 1 To Range("A65536").End(xlUp).Row
        ComboBox1 = Range("A" & J)
        '...et filtre les doublons
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & J)
    Next J
     ComboBox2.ListIndex = 0 'affiche le 1er index
    ComboBox2.ListIndex = 1 'affiche le 2ème index

End Sub

0
marytyler Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
J viens de faire un copier coller de ton code et cela ne fonctionne toujours pas !! helas
0
Réponse 2 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Cela dépend de l'endroit où tu l'as mis!

Fais un double clic sur ton UserForm et colles-y ton code

voilà
0
marytyler
 
ok super merci !!
0

Discussions similaires

Suppression listes déroulantes
Archa -
Sam -

5 réponses
Supprimer liste déroulante Excel
SamAlex -
b@bd -

8 réponses
Effacer le contenue d'une cellule avec liste déroulante
lebutters -
lebutters -

7 réponses
Supprimer Liste déroulante
Good -
Good -

2 réponses
Effacer liste déroulante
gabrielle -
jmps -

3 réponses