initialisation projet vba

[Arnaud]

Voila, je viens de créer un petit programme sous vba pour automatiser un petit reporting.
J'ai donc deux combobox pour la selection des mois et deux command button pour valider les choix du mois, et lancer l'appllication.
le probleme, c'est lorsque je ferme ma feuille excel et que je l'ouvre, mais mois n'apparaissent plus dans les combobox, je dois ré-initialiser les deux combobox sous vba... Comment remedier à ce probleme pour qu'à chaque ouverture de la feuille excel mes combobox apparaissent avec les mois sans rien faire...???
Merci pour votre aide
Arnaud

 

[@+Thierry]

Bonjour Arnaud, le Forum

Mais Moi, ou Mes Mois ?

Mais moi je pense que tu parles de mes mois ! Par contre je ne suis pas certain, mais j'ai compris qu'on parlait d'un ActiveX ComboBox placé directement sur la Feuille... (Pas d'un UserForm)

Donc une solution simple est dans le Private Module de ThisWorkBook comme ceci :



Mais au lieu de MsgBox "Hello" tu mets :

Private Sub Workbook_Open()
With Worksheets("TaFeuille").ComboBox1
.AddItem "Janvier"
.AddItem "Février"
.AddItem "Mars"
.AddItem "Avril"
'etc Les autres mois et moi et moi et moi !!!
End With
End Sub


Ou Encore si tu as une feuille contenant les infos à importer dans la ComboBox :

Private Sub Workbook_Open()
With Worksheets("TaFeuille").ComboBox1
.ListFillRange = "LautreFeuille!A1:A12"
End With
End Sub


Ou encore :

Private Sub Workbook_Open()
Dim ThePlage As Variant
ThePlage = Sheets("LautreFeuille").Range("A1:A12")
Sheets("TaFeuille").ComboBox1.List = ThePlage
End Sub


Ou encore !

Private Sub Workbook_Open()
Dim i As Byte

With Sheets("TaFeuille").ComboBox1
For i = 1 To 12
.AddItem Sheets("LautreFeuille").Range("A" & i)
Next i
End With
End Sub


Bon Aprèm
@+Thierry