Créer par VBA une liste déroulante et la remplir

Version imprimable

23/02/2016, 19h04
Alain7751

Créer par VBA une liste déroulante et la remplir

Bonjour !

Je me suis peut-être aventurer en adoptant cette solution; vos réponses ou l'absence de réponse m'en diront plus.
Je créer une feuille par code VBA puis
sur cette feuille j'installe une liste déroulante sensée proposer les 12 mois de l'année ; l'utilisateur choisira le mois et je le récupérerai en VBA. Voilà le problème :
- je ne parviens pas à charger la liste des 12 mois de l'année.
C'est probablement un problème d'écriture mais c'est peut-être aussi une limite du VBA ???!!!
Quelqu'un peut m'aider ??!!

Merci par avance.
23/02/2016, 19h21
joe.levrai

Bonjour,

à quoi ressemble ton code complet ?

via l'enregistreur de macro, t'aura également une piste (pas très jolie) à adapter

Bonjour,

Citation:

je ne parviens pas à charger la liste des 12 mois de l'année.
C'est probablement un problème d'écriture mais c'est peut-être aussi une limite du VBA ???!!!

Pour créer uns liste de validation pour les mois en A1 ( à toi d'adapter la cellule)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub liste_mois()
Dim m As Integer, lst As String
    For m = 1 To 12
        lst = lst & Format(DateValue("1/" & m & "/2016"), "mmmm") & ","
    Next m
    With Range("A1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
            Formula1:=lst
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "Choix du mois"
        .ErrorTitle = ""
        .InputMessage = "Votre mois choisi"
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

23/02/2016, 22h22
kiki29

Salut, à voir : Utiliser les contrôles dans un UserForm, en VBA Excel

Désolé anasecu mais ça ne marche pas.
Evidemment la liste déroulante se crée mais elle ne se remplit pas.
En intégrant ton code au mien voici ce que ça donne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub CreaBp()
Dim Obj As OLEObject
Dim m As Integer, lst As String
 
' la liste déroulante
Set Obj = Sheets("Feuil2").OLEObjects.Add("Forms.combobox.1")
With Obj
.Left = 256
.Top = 9
.Width = 50
.Height = 15
End With
 
    For m = 1 To 12
        lst = lst & Format(DateValue("1/" & m & "/2016"), "mmmm") & ","
    Next m
    With Sheets("Feuil2").Range("A1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
            Formula1:=lst
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "Choix du mois"
        .ErrorTitle = ""
        .InputMessage = "Votre mois choisi"
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
 
End Sub

24/02/2016, 14h46
joe.levrai

Bonjour,

le code fonctionne parfaitement, mais ne correspond pas à ton besoin actuel.

toi tu insères un contrôle OLE Combobox et tu veux y mettre dedans les 12 mois de l'année

dans la proposition de anasecu, le menu déroulant est crée dans la cellule A1 sous forme de "liste de validation".

A mon sens, c'est quand même mieux de créer une liste de validation .... beaucoup moins compliqué de l'alimenter et SURTOUT ça permettra de très simplement récupérer le choix de l'utilisateur par VBA (via l'évènement "Change" de l'objet worksheet)

Et y'a encore beaucoup d'autres choses que tu n'auras pas besoin de gérer avec ça
24/02/2016, 16h25
Alain7751

Merci pour ton aide et tes précisions !
Le problème que je rencontre et que j'ai probablement mal expliqué depuis le début c'est que je dois créer une nouvelle feuille par VBA et y installer une liste déroulante combobox par exemple contenant les 12 mois de l'année afin que l'utilisateur fasse le choix du mois et que je récupère l'info.
A ton avis tout ce qui a été écrit en amont est adapté et préférable ??!!

Bonjour,

dans ce cadre, le menu déroulant est peut être même superflu

la simplicité absolue, test ça pour récupérer un numéro de mois (faudra bien sûr adapter et gérer les erreurs si le nombre entré est trop grand :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub toto()
Dim LeMois As String
Dim Conforme As Boolean
 
' blabla
' le début de ta procédure
 
'$$$$$ ICI l'endroit où on va récupérer le mois $$$$$
Do
    LeMois = Application.InputBox("Mois de l'année (entre 1 et 12) ?", , , , , , , 1)
    If LeMois = "FAUX" Then Exit Do  ' si on annule la boite de dialogue
    If CInt(LeMois) > 0 And CInt(LeMois) < 13 Then Conforme = True
Loop While Not Conforme
 
' et voilà pour récupérer le mois et l'utiliser dans la suite de la procédure
MsgBox CInt(LeMois)
 
End Sub