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.