[Toutes versions] Remplir une ListBox avec les données d'une autre feuille

[Valoche37]

Bonsoir tout le monde,

Dans mon userform j'ai mis une liste déroulante. D'habitude les données pour ma liste déroulante sont sur la feuille de "départ" et "d'arrivée", donc c'est un code du genre :

Code :

1
2
3
4
 
DerNomduvendeur = Range ("B12").End(xlDown).Adress
Nomduvendeur.RowSource = "B12:" & DerNomduvendeur
Nomduvendeur.ListIndex = 0

La page où se trouve mes données pour la liste déroulante s'appelle "Vendeur" et celle où doit s'afficher ma userform c'est "Commande".

Des idées parce que là je sèche?

Bonne soirée et merci d'avance

Valoche37

[mercatog]

Code :

1
2
3
DerNomduvendeur = Worksheets("Vendeur").Range("B12").End(xlDown).Address
Nomduvendeur.RowSource = "Vendeur!B12:" & DerNomduvendeur
Nomduvendeur.ListIndex = 0

[Valoche37]

Mes listes ne s'affichent pas... Au lieu d'avoir une liste déroulante, j'ai un truc que je ne peux pas toucher. Le userform fonctionne très bien, c'est juste que les listes ne s'affichent pas...

Je mets le code juste au cas où :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub UserForm_Click()
DerNomduvendeur = Worksheets("Vendeur").Range("B12").End(xlDown).Address
Nomduvendeur.RowSource = "Vendeur!B12:" & DerNomduvendeur
Nomduvendeur.ListIndex = 0
 
DerProduit = Worksheets("Catalogue").Range("G11").End(xlDown).Address
Produit.RowSource = "Produit!G11:" & DerProduit
Produit.ListIndex = 0
 
DerTypedeproduit = Worksheets("Catalogue").Range("I11").End(xlDown).Address
Typedeproduit.RowSource = "Typedeproduit!I11:" & DerTypedeproduit
Typedeproduit.ListIndex = 0
 
DerMontantproduit = Worksheets("Catalogue").Range("H11").End(xlDown).Address
Montantproduit.RowSource = "Montantproduit!H11:" & DerMontantproduit
Montantproduit.ListIndex = 0
 
End Sub

Code :

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
32
33
34
35
Private Sub Valider_Click()
Dim trouve As String
Dim nblignes_remplies3 As Integer
Dim cellule As Variant
 
trouve = "N"
 
If Len(Vente.TextBox1.Value) > 0 And Len(Vente.TextBox2.Value) > 0 And Len(Vente.TextBox3.Value) > 0 Then
 
 
Else
MsgBox ("Vous n'avez pas rempli tous les champs")
Exit Sub
 
 
If trouve = "N" Then
nblignes_remplies1 = Sheets("Commande").Range("nblignes_remplies3").Value
 
Sheets("Commande").Range("C9").Offset(nblignes_remplies1 + 1, 0).Value = Vente.TextBox1.Value
Sheets("Commande").Range("C9").Offset(nblignes_remplies1 + 1, 1).Value = Vente.ListBox1.Value
Sheets("Commande").Range("C9").Offset(nblignes_remplies1 + 1, 2).Value = Vente.TextBox2.Value
Sheets("Commande").Range("C9").Offset(nblignes_remplies1 + 1, 3).Value = Vente.ListBox2.Value
Sheets("Commande").Range("C9").Offset(nblignes_remplies1 + 1, 4).Value = Vente.ListBox3.Value
Sheets("Commande").Range("C9").Offset(nblignes_remplies1 + 1, 5).Value = Vente.ListBox4.Value
Sheets("Commande").Range("C9").Offset(nblignes_remplies1 + 1, 6).Value = Vente.TextBox3.Value
 
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
 
Vente.Hide
 
End If
 
End Sub

[mercatog]

Au lieu de l'évènement Click de ton userform, utilise l'évènement Initialize

Code :

1
2
3
Private Sub UserForm_Initialize()

'ton code