Pb programme vba

Version imprimable

1 pièce(s) jointe(s)

Pb programme vba

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:

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

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:

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

12/06/2013, 07h55
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

Bonjour,

A tester :

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
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

12/06/2013, 16h28
Rob's

Super!

Ca fonctionne super bien :)

Merci beaucoup!!:ccool: