[VBA-E]Userform et transfert de variable

bonjour,

j'ai une question qui va surement être bête mais je trouve pas la soluce pour VBA Excel.

En fait j'ai une macro Excel et je voudrais avoir un bouton d'activation. Quand je clic sur ce bouton un MsgBox s'ouvre et m'invite à choisir dans une liste déroulante (ça sera les 12 mois de l'année) et après OK et je récupère le choix dans mon algo pour faire ma petite cuisine...

alors je vois pas comment utiliser

Code:

---

MsgBox(prompt[, buttons] [, title] [, helpfile, context])

---

Je sais pas comment paramétrer ça et je trouve pas d'astuce. Je me demande même si c'est comme ça qu'il faut faire :?

merci pour votre aide :roll:

Ce qu'il te faut, si j'ai bien compris, c'est un listbox dans lequel placer tes mois de l'année
Puis dans l'événement Listbox1_keyup de ton listbox, récupérer l'index.
Tu as des exemples plein le forum, tu vas dans la recherche avancée sur le forum, tu sélectionnes le forum visual Basic, tu mets rechercher "ListBox" et tu trouveras ton bonheur. Promis !

Bon courage

Comme je suis vachement gentil ce soir, voilà pour toi

Code:

---

1 2	Année = Array("", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre") ListBox1.List() = Année

---

et pour récupérer ta sélection

Code:

---

1 2 3

Private Sub ListBox1_Click() MsgBox ListBox1.List(ListBox1.ListIndex) End Sub

---

Bonne soirée

tout simplement fantastique :ccool:

en fait ça me fait une erreur de type "Objet requis", erreur 424 sur la listbox

mais je vais chercher :twisted:

peut-être aurais -tu oublié de mettre ta list-box où celle-ci ne s'apelle peut-être pas "listbox 1"

Salut

la fonction MsgBox n'ouvre qu'un simple boîte de message permettant d'informer l'utilisateur d'une situation donnée et /ou de lui faire choisir entre continuer et annuler ou d'autres options paramétrable dans la fonction.

Pour faire afficher une boîte de dialogue affichant une liste de choix, tu devra créer un UserForm et y mettre ta liste. Affiche l'éditeur VBA et clique sur le menu Insertion > UserForm. Pour la suite des choses, je te laisse aller à la découverte et dis nous où tu bloques.

C'est vrai que ça rend mieux.

Mais j'arrive même pas à créer un bouton dans mon fichier Excel. Je voudrais qu'une case devienne un bouton.
Quand je clique dessus il faut que ça ouvre l'Userform.

mais là je ne trouve pas comment je dois faire les déclaration des Dim, pour la liste par exemple... :oops:

EDIT: Bon j'ai trouvé pour le bouton ça va
c'est pas très intuitif mais bon c'est là

Si tu pense que le mieux serait que la macro démarre à l'ouverture du fichier, ça peut se faire... et ça t'éviterait le vilain bouton que tu as là :wink:

Suffit de demander

A+

bbbboooo c'est pas vilain quand même :roll:

et pis au moins j'ai réussi à le faire :lol:

non bon maintenant ça m'appelle une macro qui ouvre un userform.
J'ai créé une listbox dedans mais j'ai essayé de mettre le code de ouskel'n'or dedans, et là il faut que je clique sur la fenêtre pour que la liste s'affiche :cry:

j'ai mis les valeur dans la listbox, puis dans le userform mais ça ne s'affiche pas. (et puis je suis sûr que c'est tout con)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub OK_Click()   'Si je clique sur Ok Dim mois As Variant 'la variable mois est publique UserForm.Hide Unload UserForm   End Sub   Private Sub UserForm_Click()   'affiche la liste des mois dans la listbox Année = Array("", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre") ma_liste.List() = Année ma_liste.Value = "Janvier"   End Sub

---

je mets où le code pour que ça s'affiche directement dedans?
Par la même occasion, comment je récupère la valeur séléctionné?

j'ai essayé de mettre les valeurs par l'écran de propriété à côté et ça marche pas

Meûh non ! Faut mettre ton code dans Private sub userform_Initialize() :wink:

A+

tout de suite ça va mieux
mais comment je récupère le choix dans la macro?

Citation:

---

mais comment je récupère le choix dans la macro?

---

Tu récupères ta sélection dans

Code:

---

1 2 3 4 5

Private Sub ma_liste_Click() LaSélection = ma_liste.List(ma_liste.listindex) 'Et là tu fais ce que tu veux de LaSélection... '........ End sub

---

A+

ou, ma foi :LaSélection = ma_liste.List(listindex)

mais si je ne me trompe pas cet évenement n'aura lieu que si je clique sur la liste

c'est quand je clique sur OK que je le voudrais alors j'ai mis le code dans le bouton ok

mais y'a un problème...

quand je sors de la fenêtre (que ce soit manuellement ou avec unload) ça me retire mon résultat de ma feuille.

Voyez ici que je voulais copier le mois choisi dans une case. Ca se copie puis ça s'efface à la fermeture de l'Userform...

Comprends pas pourquoi :?


En gros mon bouton appel la macro "Utilisation"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Utilisation() UserForm.Show End Sub   Private Sub userform_Initialize()   'affiche la liste des mois dans la listbox ma_liste.List() = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre") ma_liste.Value = "Janvier"   End Sub   Private Sub OK_Click() 'Si je clique sur Ok LaSelection = ma_liste.List(ListIndex) 'écrire le résultat dans la case 5/1 Cells(5, 1).Value = LaSelection UserForm.Hide Unload UserForm   End Sub

---

Edit: si je retire le unload et que je laisse le hide, le résultat reste. Est-ce que c'est acceptable comme technique?

Re-Edit: Si je ne laisse que le Hide ça ne marche qu'une seule fois :evil:

3ème Edit :roll: : hum en suivant ce topic sur l'userform et bien j'indiquerai que je peux faire une variable globale donc si vous savez comment faire :ave:

forcément je ne savais pas où placer la variable publique mais maintenant ça va.

voici le code qui fonctionne comme il faut mais toujours le problème de mise à jour... ça ne marche qu'une fois :evil:

Code:

---

1 2 3 4 5 6 7 8

Public LaSelection As Variant   Sub Utilisation()   UserForm.Show Cells(5, 1).Value = LaSelection   End Sub

---

et dans le userform

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub userform_Initialize()   ma_liste.List() = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")   End Sub   Private Sub OK_Click()   LaSelection = ma_liste.List(ListIndex) UserForm.Hide Unload UserForm   End Sub

---

EDIT: GGGGRRRR, si ça se met à jour mais ça me prend toujours janvier même si je ne mets pas cette valeur par défaut :marteau:

encore un Edit : en changeant l'ordre de l'array je remarque que ça me prend toujours le premier par défaut... Comment pouvoir obtenir la valeur sélectionnée et non la première de la liste?

je suis vert :ouin:

c'était pas listindex qu'il fallait mais value

Citation:

---

'Si je clique sur Ok
Private Sub OK_Click()
LaSelection = ma_liste.Value
UserForm.Hide
Unload UserForm

End Sub

---

Tu ne peux pas avoir l'index de la liste ailleurs que dans "ListBox", dans click ou dans exit ou "oùsketuveu" mais dans listBox. C'est là que tu dois utiliser ta variable global pour avaoir la valeur de ta sélection

Code:

---

LaVariableGlobale = ListBox.list(ListBox.listIndex)

---

Ensuite, si tu veux faire Ok et affecter ta variable à une cellule, rien ne t'en empêche

A+