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

[BlueMonkey]

Bonsoir,

Le code qui met qui est censé mettre à jour la liste de défaut Defaut.RowSource = Liste_Defauts n'a pas l'air initialisé.

Essaye ce code.

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()
    Qui.Caption = ""
    defaut.Clear
 
    Dim ws As Worksheet
    Set ws = Worksheets("Tables")
    Dim Initiale As String
    Initiale = Qui_initiales.Value
 
    With Application.WorksheetFunction
        If Initiale <> "" Then
            Qui.Caption = .VLookup(Initiale, ws.Range("A:B"), 2, False)
            defaut.AddItem .VLookup(Initiale, ws.Range("E:F"), 2, False)
        End If
    End With
 
    Set ws = Nothing
End Sub

[Rob's]

Bonjour bluemonkey,

Merci pour ton aide mais, cela ne fonctionne pas tout à fait!

En faite, quand je sélectionne un atelier, dans la liste déroulante des défauts il m'indique ce qu'il y a dans la colonne F de la feuille "Tables" mais, ne va pas chercher les infos de la feuille "Tables_liste".

C'est à dire, quand je sélectionne l'atelier "Expédition", les initiales correspondantes s'affiche mais dans la liste déroulante "Description du défaut" il m'indique "Liste_Expédition" au lieux de m'afficher tous les défauts répertoriés dans la feuille "Tables_liste".

As tu une idée de comment résoudre ce problème?

Merci d'avance

[BlueMonkey]

Bonjour,

A tester :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Option Explicit
 
Private Sub Qui_initiales_Change()
    Qui.Caption = ""
    defaut.Clear
 
    Dim wsTable As Worksheet
    Set wsTable = Worksheets("Tables")
    Dim wsDefaut As Worksheet
    Set wsDefaut = Worksheets("Tables_liste")
    Dim Initiale  As String
    Initiale = Qui_initiales.Value
 
    If Initiale <> "" Then
        Dim InitialLigne As Long
        Dim defaultCol As Long
 
        InitialLigne = wsTable.Range("A2:A" & wsTable.Range("A2").End(xlDown).Row) _
                            .Find(Initiale, LookIn:=xlValues) _
                                .Row
        Qui.Caption = wsTable.Range("B" & InitialLigne).Value
        With wsDefaut
            defaultCol = .Range(.Cells(1, 1), .Cells(1, .Range("A1").End(xlToRight).Column)) _
                            .Find(wsTable.Range("F" & InitialLigne).Value, LookIn:=xlValues) _
                                .Column
            Dim ri As Integer
            For ri = 2 To .Cells(1, defaultCol).End(xlDown).Row
                defaut.AddItem .Cells(ri, defaultCol).Value
            Next ri
        End With
    End If
 
End Sub

[Rob's]

Super!

Ca fonctionne super bien

Merci beaucoup!!