Discussion :

[da991319]

Bonjour tout le monde,

ca fait quelques mois que je n'avais pas touche excel et la je suis de retour sur excel 2007.
la je me sens un peu stupide, car j'essai de remplir un combobox tout bettement. Ca n'est pas la premiere fois que j'utilise des combobox mais la y a rien qui marche.
Je doute que cela soit lie a la version d'excel car j'ai essayer d'appliquer ce qu'il me proposait (qui ressemble beaucoup a toute les autre version d'excel).
Je pense qu'il y a quelquechose de stupide que j'ai du oublie de faire.
voici mon code:
dans le userform:

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub UserForm_Initialize()
    Dim i As Byte
 
    For i = 1 To 5
        ComboBox1.AddItem "Ligne" & i
 
    Next i
End Sub

dans le module

Code :

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

1
2
3
4
5
6
7
8
Sub main()
 
Load UserForm1
 
UserForm1.Show
 
 
End Sub

Si jamais il ya quelquechose de flagrant n'esitez pas a me tirer dessus a boulets rouges

[ouskel'n'or]

Essaie de placer ton code dans Private Sub UserForm_Activate()

[obsolète]

Bonsoir,
ne faudrait-il pas nommer de la même façon le userform ?

(load userform1 mais userform??_initialize)

[da991319]

salut tout le monde,
J'ai essaye en utilisant userform_activate au lieu initialize, mais aucun changement. mon combobox est tjrs vide.

Obsolete: non apparement c'est bien userform que vba me met automatiquement

Ca me semble vraiment bizarre.

[da991319]

Est ce que les comboboxs sont lie a une librairie, reference quelquonque que je n'aurais pas cochee?

[ouskel'n'or]

Si ton userform s'affiche, ce n'est pas un pb de librairie.
Pour Userform_initialize, tu n'as rien à changer.
As-tu un message d'erreur ? Sur quelle ligne ?
Comment ouvres-tu l'userform ?
...
A+

[da991319]

Salut ouskel,
non je n'ai rien change outre le fait que maintenant dans mon form le code est:

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Activate()
Dim i As Byte
 
    For i = 1 To 5
        ComboBox1.AddItem "Ligne" & i
 
    Next i
End Sub

au lieu d'etre Userform_Initialize


sinon pour lancer mon form dans un module:

Code :

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

1
2
3
4
5
6
Load UserForm1
 
UserForm1.Show
 
 
End Sub

voila en fait je veux juste voir si j'arrive a remplir un combo tout betement avant de le remplir d'une autre facon.

[da991319]

pour d'obscure raison apres avoir redemarrer excel ca marche maintenant. Pas plus de bonnes raisons