Discussion :

[Rob's]

Bonjour à tous,

J'ai un soucis avec mon programme VBA!
Mon programme se décompose en 2 parties.

1ere partie: Lorsque je choisi un client, je n'ai que les modèles fabriqués par ce client (Cela fonctionne)

2nd partie: Lorsque je choisi un atelier, les initiales du responsable de cet atelier s'affichent et les défauts visibles dans ces ateliers doivent aussi s'afficher dans une liste déroulante.

Mes initiales s'affichent correctement mais, rien ne s'affiche dans la liste déroulante des défauts... (en pièce jointe un doc excel avec mes feuilles pour mieux comprendre)

Voici mon programme:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Qui_initiales_Change()
 
Dim Initiale As String
 
Initiale = Qui_Initiales.Value
 
Defaut.Value = ""
 
If Initiale <> "" Then
 Qui.Caption = Application.WorksheetFunction.VLookup(Initiale, Worksheets("Tables").Range("A:B"), 2, False)
 Defaut.RowSource = Liste_Defauts
 Else
 Qui.Caption = ""
 Defaut.RowSource = Application.WorksheetFunction.VLookup(Initiale, Worksheets("Tables").Range("E:F"), 2, False)
 
End If
 
End Sub

Merci à tous ceux qui pourront m'aider