Discussion :

[Souverain]

Bonjour,

je débute en VBA et j'ai un projet à réaliser qui consiste à creer une macro à envoyer à des entreprises sous forme de formulaire. Dans celle-ci j'aimerais incorporer une liste déroulante pour permettre à l'utilisateur de choisir entre 3 champs par exemple. J'ai vu qu'excel propose ce genre de chose par exemple en sélectionnant des données manuellement. Moi j'aimerais pouvoir fixer les différents champs directement dans ma console vb.

Comment faire??

Merci !!

[PPz78]

Bonsoir,

Tu te mets dans le mode enregistrement et tu fais à la main ce que tu souhaites que la macro fasse. Il te reste alors à adapter le code.

A+ en cas de difficulté.

PPz

[Souverain]

j'ai déjà fait ça, mais le problème c'est que je ne trouve pas la commande pour saisir moi meme, via la commande vb, les différents champs disponible dans la liste déroulante pour l'utilisateur..

[ESVBA]

mets la liste sur le formulaire (userform) et ajoute le code pour la liste déroulante nommée " ListBox1" :

Code :

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

1
2
3
Private Sub UserForm_Initialize()
    ListBox1.RowSource = "C2:C4"
End Sub

ESVBA

[issoram]

Je ne sais pas (vu mon niveau) si ce que tu veux faire est réalisable à savoir créer une liste déroulante via VBA dans une cellule de ta feuille Excel. Si j'ai bien tout compris.
Je te propose donc "2 demi solutions":

- pour créer une liste déroulante dans une cellule Excel avec des valeurs de ton choix: Tu fais Données/Validation des Données/Options/Autoriser liste et tu sélectionnes la plage correspondant à ta liste.

- ou alors tu crées carrément une ListBox via VBA (insertion/userform).
ça donnerait qqchse du type:

Code :

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

1
2
3
4
5
Private Sub ListBox1_Initialize()
Dim TaListe As Variant
TaListe= Range("ta plage").Value
ListBox1.List() = TaListe
End Sub

En espérant que ça t'aidera...

[JPierreM]

Bonsoir,

Il faudrait être sûr de ce dont on parle s'agit-il d'une comboBox, d'une liste déroulante ou d'une liste de validation?
Je crois comprendre qu'il s'agit d'inserrer une ComboBox directement sur la feuille.
Comme dit par les prédesseurs il suffit de mettre l'enregisteur de macro en route pour avoir le principal. Pour la saisie des valeurs possibles

Code :

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

1
2
3
4
5
Sub sc()
    With ActiveSheet.ComboBox1
       .ListFillRange = "A2:A9"
    End With
End Sub