Discussion :

[Archalia]

Bonjour à tous,

Je suis tout débutant avec VBA aors je vais vous demander d'être indulgents . J'ai créé une macro permettant de récuperer des données stockées dans une base de données MySQL pour les utiliser et remlir ainsi plusieurs tableaux excel dans la bonne colonne, ici le mois de l'année en cours.

Seulement j'aimerais que les utilisateurs puissent eux même choisir le mois pour lequel ils veulent effectuer cette opération sans avoir à aller le changer manuellement dans le code ( ce que j'avais prévu initialement) .

Je souhaiterais donc, lors du clic sur un bouton, qu'une petite boite de dialogue s'ouvre contenant une liste déroulante avec tous les mois de l'année. L'utilisateur devra absolument choisir un mois, puis valider pour que la suite des opérations se poursuive.

Je n'ai pas vraiment d'informations là dessus dans les divers pdf que j'ai pu trouvé sur le VB, pourriez - vous m'aider ?

Soit en me dirigant vers des informations adequat, soit en m'indiquant directement la bonne syntaxe et les bon conseils à suivre.

EN vous remerciant !

Archalia

[jfontaine]

Bonjour,

pour alimenter une Combobox (Liste Déroulante), tu peux soit

- Utiliser le code

Code :

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

Combobox1.Additem "Janvier"

- Utiliser la propriété Rowsource de la combobox si la liste des mois se trouve sur un onglet excel

Code :

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

Combobox1.RowSource="Feuil1!A1:A12"

Tu peux aussi mettre directement Feuil1!A1:A12 dans la prorpiété de la Combobox en utilisant la fenetre propriete de l'editeur VBA

[mercatog]

Tu peux passer par un InputBox
ou si tu préfère, avec un UserForm
ci joint lien intéressant http://silkyroad.developpez.com/VBA/ControlesUserForm/

[ucfoutu]

Bonjour,

Pour si peu, l'avare que je suis se contenterait de ne rien ajouter d'autre et se servirait ainsi d'une inputbox (exemple succinct):

Code :

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

1
2
3
4
5
6
7
Dim question As String
  question = "donnez un N° de mois (entre 1 et 12 inclus)"
  Do While (Val(rep) = 0 Or Val(rep) > 12)
    rep = InputBox(question, "Choix d'un numéro de mois")
    question = "j'ai pourtant dit : N° attendu entre 1 et 12 !"
  Loop
  MsgBox MonthName(Val(rep))

[Archalia]

Parfait !

Je vous remercie beaucoup !