Discussion :

[azorol]

Bonsoir,

J'ai fais un combobox dans ma Feuil1 et je le charge avec le code vba suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Private Sub UserForm_Initialize()
Feuil1.ComboBox1.Clear
Feuil1.ComboBox1.AddItem "Choix"
Feuil1.ComboBox1.AddItem "Nice"
Feuil1.ComboBox1.AddItem "New york"
Feuil1.ComboBox1.AddItem "Paris"
Feuil1.ComboBox1.AddItem "Oslo"
Feuil1.ComboBox1.BoundColumn = 0
Feuil1.ComboBox1.ListIndex = 0
 
End Sub
 
Private Sub ComboBox1_Change()
 
Select Case Feuil1.ComboBox1.Value
    Case 0
    Sheets("Feuil1").Select
 
    Case 1
    Sheets("Feuil2").Select
 
    Case 2
    Sheets("Feuil3").Select
 
    Case 3
    Sheets("Feuil4").Select
 
End Select
 
End Sub

Seulement lorsque je quitte le classeur en enregitrant, ça m'affiche que la valeur de la position de la derniere sélection (genre 0 ou 2, etc...)
Mais aucunement la liste du combo... Coment faire pour garder les valeurs de la combo lors du chargement de la feuille ?

Merci pour votre aide.
PS: je n'utilise pas un userform.
Cordialement.

[casefayere]

Bonsoir,
permets-moi d'être étonné

PS: je n'utilise pas un userform.

et

Code :

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

1
2
Private Sub UserForm_Initialize()
...

[azorol]

Je me suis ma l exprimé, en faites je voulais dire que je n'ai pas une feuille style vb qui apparait sur le click (Userform1). Mais que le code est directement dans la feuille excel.
Mais bon ça change rien à mon pb.