Discussion :

[BlackMountain]

Bonjour le forum

J'ai à utiliser une ComboBox dans ma macro via un UserForm. Je lui affecte des valeurs statiques comme suit :

Code :

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

1
2
3
4
5
6
7
8
Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
    With ComboBox1
        .AddItem "val1"
        .AddItem "val2"
        .AddItem "val3"
    End With
End Sub

Je voudrai qu'une fois cliquée, la valeur reste affichée dans ma comboBox (la liste déroulante refermée) or elle ne le fait pas. J'ai regardé sur ce Topic : http://silkyroad.developpez.com/VBA/...serForm/#LII-F et je retrouve une fonction

Code :

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

.ListIndex

. Je suis perdu dans son utilisation (qui renvoie une chaine de caractère située dans la ComboBox).

En plaçant ce code :

Code :

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

1
2
3
4
5
Private Sub ComboBox1_Click()
 With ComboBox1
  MsgBox "Index = " & .ListIndex
 End With
End Sub

Il me l'affiche après affichage de la MsgBox, seulement je ne souhaite pas que la MesBox s'affiche, je n'en ai pas le besoin.

Avez-vous des pistes à explorer? Je ne sais plus où trop chercher.
Merci d'avance!

BlackMountain

[lionel86500]

Bonjour,

essai ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub UserForm_Initialize()
 
ComboBox1.Clear
    With ComboBox1
        .AddItem "val1"
        .AddItem "val2"
        .AddItem "val3"
    End With
 
End Sub

[BlackMountain]

Et bien si tout était aussi simple à résoudre ... Du coup j'aimerai bien comprendre pourquoi ça ne fonctionnait pas.
1. Comment ça se faisait qu'en sélectionnant la valeur avant avec le menu déroulant cette dernière ne s'est pas affichée.
2. Comment ça se fait également qu'après le code faisant afficher la MsgBox la valeur s'est affichée?

Une idée?

[lionel86500]

Désolé je ne saurais pas répondre pourquoi.
Peu être une personne plus expérimentée le saura.

Si mon exemple te convient, c'est le principal.

[BlackMountain]

Ton exemple me convient parfaitement, Merci beaucoup pour ça .

[antonysansh]

Et bien si tout était aussi simple à résoudre ... Du coup j'aimerai bien comprendre pourquoi ça ne fonctionnait pas.
1. Comment ça se faisait qu'en sélectionnant la valeur avant avec le menu déroulant cette dernière ne s'est pas affichée.
2. Comment ça se fait également qu'après le code faisant afficher la MsgBox la valeur s'est affichée?

Une idée?

tu peux tester ce code :

Code :

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

1
2
3
Private Sub ComboBox1_DropButtonClick()
    MsgBox "Evenement DropButtonClick"
End Sub

le message va s'afficher 2 fois.
Une première fois lorsque tu clics sur le bouton pour afficher la liste et une fois que auras sélection un élément de la liste.

la première fois tout va bien, on vide la liste (.Clear) et on ajoute les 3 éléments.
la seconde, Aie ! la liste est ouverte mais quand je sélection un élément, le .Clear est à nouveau exécuté. Donc le contenu est effacé avant de remettre les éléments dans la liste mais pas le ComboBox.