Initialiser Combobox ouverture fichier

[meldja]

Bonjour,
Voila, j'ai une combobox dans une feuille qui prends la valeur des onglets de feuilles (à partir de la 3ème feuille jusqu'à l'avant dernière)
Elle fonctionne lorsque j'active la feuille (worksheet_Activate) ou lorsque j'ajoute une feuille.
Le pbme est que le fichier s'ouvre sur la feuille dans laquelle se trouve la combobox et je n'arrive pas à initialiser la combobox sur ouverture du fichier.
J'ai essayé de placer le code dans ThisWorkbook :

Private Sub Workbook_Open()
ComboBox1.Clear
For i = 3 To Sheets.Count - 1
ComboBox1.AddItem (Sheets(i).Name)
Next i
End Sub

mais il ne reconnait pas ma combobox.

J'ai essayé de lui indiquer sur quelle feuille elle se trouve mais ça marche pas :

Private Sub Workbook_Open()
Sheets("DataBase").ComboBox1.Clear
For i = 3 To Sheets.Count - 1
Sheets("DataBase").ComboBox1.AddItem (Sheets(i).Name)
Next i
End Sub

Si vous avez une idée, merci d'avance

 

[Pierrot93]

Re : Initialiser Combobox ouverture fichier

Bonjour Meldja

il faut bien sur lui indiquer sur quelle feuille est la "combo", chez moi le code ci dessous fonctionne :

Option Explicit
Private Sub Workbook_Open()
Dim i As Byte
Sheets("DataBase").ComboBox1.Clear
For i = 3 To Sheets.Count - 1
    Sheets("DataBase").ComboBox1.AddItem (Sheets(i).Name)
Next i
End Sub

Et quand tu dis "ca ne marche pas", cela veut quoi ? tu as un message d'erreur ou tu n'as pas le résultat attendu ?

bon dimanche.
@+

 

[BOISGONTIER]

Re : Initialiser Combobox ouverture fichier

Bonjour,

Fonctionne bien.

JB
Formation Excel VBA JB

 

[meldja]

Re : Initialiser Combobox ouverture fichier

Merci Boisgontier,
Apparemment ça marche nickel.
Je pense que ça plantait parce que je n'avais pas déclaré "i" (Dim i as Byte)
Pourtant, sans déclarer "i" dans Worsheet_Activate, ça marche quand même.
En tout cas, encore merci

 

[Pierrot93]

Re : Initialiser Combobox ouverture fichier

Re

c'est pas sur ce post que je vois la déclaration de variable moi... mais bon....