Formule VBA sur excel liste déroulante Fermé

Question

Bonjour,

Sur VBA en excel je voudrais avoir une liste déroulante. J'ai fait une "inputbox" mais je voudrais limiter la saisie dans cette inputbox à certaine chose. Pour ma macro je voudrais limiter la saisie au mois de l'année (Janvier, Février, Mars, ...)

J'ai eu donc l'idée d'avoir une liste déroulante, mais comment faire? Sachant que les éléments de la liste seront dans VBA et non sur une feuille de classeur Excel.

J'espère avoir été assez clair, merci pour votre aide

philber221 · Accepted Answer

Salut,

Si j'ai bien compris tu as créé un formulaire et tu voudrais créer une liste déroulante de mois.

Pour ça il faudrait que tu remplace le InputBox (c'est une zone de texte, non une liste déroulante) de ton formulaire, par un ComboBox (liste déroulante).

Ensuite, si tu as mis dans ta page excel un bouton pour ouvrir ton formulaire tu double clique. VBA s'ouvre et tu devrais avoir :
Private Sub CommandButton1_Click()

tape ensuite le code suivant :
Load UserForm1
UserFrom1.ComboBox1.AddItem "Janvier"
UserFrom1.ComboBox1.AddItem "Février"
[etc...]
UserFrom1.ComboBox1.AddItem "Décembre"
UserForm1.Show
End Sub

En espérant avoir répondu à ta question a+ bonne continuation

Doudou95 · Answer

Explique comment tu veux que ta fenetre s'affiche , qu'est ce qu'elle doit faire etc. . . ce que tu demandes je suis en train d'en faire

Doudou95 · Answer

Attends faut que je fasses des tests et la j'ai trop de boulot j'vois ça un peu plus tard

philber221 · Answer

Tu peux écrire la liste des mois dans une colonne de ta feuille, 

Ensuite tu sélectionne la cellule où tu veux placer ta liste puis :
 
Données / Validation 

Dans l'onglet Option tu cliques dans le menu "Autoriser" tu choisis "Liste"
Puis dans "Source", tu sélectionnes ta liste de mois.

Les onglets "Message de saisie" et "Alerte d'erreur" te permettent de donner des informations à l'utilisateur.

Dis moi si cette réponse t'aide, sinon envoi une partie de la feuille que tu entrain de faire....

ghetto972 · Answer

Sub Extrait()
x = 2
mois = InputBox("Veuillez entrez le mois en toute lettre" & Chr(10) & "Exemple : janvier", "Mois?")

Do While Cells(x, 1) <> 0
    Cells(x, 1) = mois
    Cells(x, 4) = Cells(x, 2) + Cells(x, 3)
x = x + 1
End Sub


Voilà un exemple de code

à la place du inputbox je veux mettre combobox pour limiter la saisie de celui qui lance la macro! ( la macro ne s'applique que sur 1 mois).

voilà en espérant m'être fais comprendre.

philber221 · Answer

Tu veux donc créer une feuille excel sans toucher à la feuille, mais en utilisant uniquement VBA. 
Est ce que cette fois j'ai bien compris ce que tu veux faire ?

philber221 · Answer

J'ai une idée avec "xlValidateListe" mais je ne connais pas la syntaxe exacte.
Je te tiens au courant, si tu trouve avant moi, stp tiens moi au courant.
A+ bon courage....

Polux31 · Answer

Bonjour,

Il faut que tu fasses toi même ta boîte de message avec un UserForm. Tu y mets un ComboBox et tu récupères la valeur selectionner.

Dans le module du UserForm :
Option Explicit

Private Sub ComboBox1_Click()
Dim x As Integer

    x = 2
    Do While Cells(x, 1) <> 0
        Cells(x, 1) = ComboBox1.Text
        Cells(x, 4) = Cells(x, 2) + Cells(x, 3)
        x = x + 1
    Wend

End Sub

Private Sub UserForm_Initialize()

    Me.Caption = "Veuillez sélectionner un mois."
    Me.ComboBox1.AddItem "Janvier"
    Me.ComboBox1.AddItem "Février"
    Me.ComboBox1.AddItem "Mars"
    Me.ComboBox1.AddItem "Avril"
    Me.ComboBox1.AddItem "Mai"
    Me.ComboBox1.AddItem "Juin"
    Me.ComboBox1.AddItem "Juillet"
    Me.ComboBox1.AddItem "Août"
    Me.ComboBox1.AddItem "Septembre"
    Me.ComboBox1.AddItem "Octobre"
    Me.ComboBox1.AddItem "Novembre"
    Me.ComboBox1.AddItem "Décembre"
    
End Sub

;o)

philber221 · Answer

En fait s'il te faut absolument une ComboBox, tu dois impérativement créer un formulaire avec cette Combo, je ne vois pas d'autre solution.

Le seul moyen que je voie est le suivant :
Tu créés un formulaire
tu mets comme intitulé "Selectionnez un mois de la liste"
en dessous tu mets le combobox
tu initialise ton formulaire afin de mettre les mois dans la liste.

Ensuite, dans ton code ("Extrait" que tu as mis en exemple), au lieu d'appeler la fonction "InputBox", tu appelles ton formulaire.

Je ne vois vraiment pas d'autre solution.

Polux31 · Answer

peux-tu nous dire sur quelle ligne de code le message apparaît ... ça pourrait nous être utile !!!

Polux31 · Answer

peux tu faire passer ton fichier par https://www.cjoint.com/ et ensuite mettre le lien ici.

ghetto972 · Answer

ok

ghetto972 · Answer

https://www.cjoint.com/?fEqS7bmPVO

C'est fait !

Vous verrez que l'on peut mettre n'importe quoi pour le mois ce que je ne veux pas.

Polux31 · Answer

bonjour,  Dsl pour le retard , mais problème de connexion ce matin.

Voilà une proposition de solution : https://www.cjoint.com/?gclXLYLoSF

;o)

polux

Formule VBA sur excel liste déroulante

14 réponses

Discussions similaires