Discussion :

[Baraas]

Bonjour,

J'ai un soucis avec mon ComboBox. Je suis en train de réaliser un formulaire, et je souhaite que les informations s'enregistrent en fonction du choix du transporteur (qui se retrouve alors dans le ComboBox).
J'ai essayer plusieurs méthode pour le ComboBox (Que j'ai même renommé en listSct) le soucis est que je n'arrive pas à entrer aucune valeur, que ce soit avec un "listSct.AddItem "test" ; ou même chercher une valeur dans une autre feuille de calcul rien ne marche.. Je pense avoir oublié quelque chose !

Code :

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

1
2
3
4
5
6
7
Private Sub formulaire_Initialize()
        With Me.listSct
            listSct.AddItem "test"
            listSct.AddItem "test2"
            listSct.AddItem "test3"
        End With
End Sub

Code :

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

1
2
3
4
5
Private Sub formulaire_Initialize()
   For I = 1 To 5
      listSct.AddItem Sheets("transports").Cells(I, 1)
   Next
End Sub|

Est ce que vous voyez une erreur ?

Merci beaucoup.

Aurélien

[Theze]

Bonjour,

Est ce que vous voyez une erreur ?

Plutôt oui ! Tu ne doit pas changer "UserForm" en "formulaire". Tu as une ComboBox au dessus de l'éditeur où se trouve tous les noms des contrôles et de la Form et tu peux voir que même si tu renomme ta Form, UserForm ne change pas contrairement aux noms contrôles. Donc c'est :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub UserForm_Initialize()
 
    With Me.listSct
        .AddItem "test"
        .AddItem "test2"
        .AddItem "test3"
    End With
 
End Sub

et non :

Code :

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

1
2
3
4
5
6
 
Private Sub formulaire_Initialize()
...
...
...
End Sub

[Baraas]

Bonjour Theze,

Merci beaucoup pour votre réponse.. tout fonctionne maintenant

A bientôt

Aurélien