Discussion :

[charlottedie]

Bonjour,

A mon tour j'aurais besoin d'aide pour le meme sujet.

J'ai envie de créer une liste déroulante. Quelle partie remplire
Private Sub Choix_Click() ou UserForm_Initialize() ???
Je n'arrive pas à ajouter d'élèments à ma liste?

Est ce correct?

Code :

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

1
2
3
4
Private Sub UserForm_Intilialize()
MsgBox ("Veuillez faire votre choix")
Dim listBox1()
listBox1 = Array("Afficher les stat", "Graphique stat par jour", "Graphique période glissante")

Meric pour votre aide !!

[Heureux-oli]

Salut,

La méthode à utiliser pour remplir une Liste ou un Combo se passe dans l'évènement Initialise du UserForm.

Si travailler avec des Array te pose problème, tu peux utiliser une méthode plus simple où l'on ajoute les éléments les uns à la suite des autres.

Code :

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

1
2
3
4
5
 
Private Sub UserForm_Initialize()
Me.ComboBox1.AddItem "Item 01"
Me.ComboBox1.AddItem "Item 02"
End Sub

[LeForestier]

Bonjour,
Employer un MsgBox implique une réponse et de ce fait... bloque la suite de l'initialisation.
Pour l'initialisation de la listbox tu peu faire...

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Intilialize()
Dim i as integer
Dim Contenu() 'Ne pas employer des noms de contrôles comme variable
Contenu= Array("Afficher les stat", "Graphique stat par jour", "Graphique période glissante")
 
 for i=0 to ubound(Contenu)
    ListBox1.AddItem Contenu(i)
Next i

Et au dessus de la listbox mettre un Label avec ("Veuillez faire votre choix")
que tu supprime éventuellement après la sélection dans la listbox.
A+

[Heureux-oli]

Salut,

si c'est pour déclarer un tableau, il est préférable de le typer.

Code :

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

Dim Contenu() As String

Pour ne pas faire un tableau de Variant.

PS : je n'ai pas repris le code fourni parce qu'il est issu d'un autre message.

[ouskel'n'or]

Bonjour,
Employer un MsgBox implique une réponse et de ce fait... bloque la suite de l'initialisation.
Pour l'initialisation de la listbox tu peu faire...

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Intilialize()
Dim i as integer
Dim Contenu() 'Ne pas employer des noms de contrôles comme variable
Contenu= Array("Afficher les stat", "Graphique stat par jour", "Graphique période glissante")
 
 for i=0 to ubound(Contenu)
    ListBox1.AddItem Contenu(i)
Next i

Et au dessus de la listbox mettre un Label avec ("Veuillez faire votre choix")
que tu supprime éventuellement après la sélection dans la listbox.
A+

Voui ! Ou bien tu peux aussi faire

Code :

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

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
Dim i As Integer 'Ne pas employer des noms de contrôles comme variable
Dim Contenu As Variant, Tablo() As Variant
    Contenu = Array("Afficher les stat", "Graphique stat par jour", "Graphique période glissante")
    Tablo = Array(Contenu, 0)
    ListBox1.List() = Tablo(0)
End Sub

Juste pour embêter l'homme des bois !
(Salut Le Garde champêtre, tu n'as pas croisé jean-pierre durant sa cavale ?)
Edit
(Salut aussi, l'homme heureux )

[ouskel'n'or]

Comme je ne constate pas de réaction, je vais simplifier pour vous :

Code :

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

1
2
3
4
5
Private Sub UserForm_Initialize()
Dim Contenu As Variant
    Contenu = Array(Array("Afficher les stat", "Graphique stat par jour", "Graphique période glissante"), 0)
    ListBox1.List() = Contenu(0)
End Sub

Si le silence persite, attention, j'explique

[LeForestier]

Bonjour Ousk,
Beh oui, c'est le plus compacte...
Et j'y ai pas pensé

Bonjour également à l'homme heureux, petite remarque, le Me. .... n'est pas nécessaire quand le code se trouve dans le module de l'UF.
A+