récupération de donnée liste déroulante

**adriennoob** · 26/03/2010, 18h19

Salut tout le monde,

J'ai un soucis dans mon code. J'ai créé un userform qui m'affiche des listes déroulantes. Celles ci m'affichent bien le résultat que je souhaite. Le problème vient du transfert de mes données en fonction de se que je viens de sélectionner dans mes comboboxs. Mais là je n'y arrive pas.

voila mon code au total, tout marche sauf dans le Private Sub CommandButton1_Click() à son End Sub.

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
Option Explicit
 
Dim Ws As Worksheet
Dim NbLignes As Integer
Dim k As String
Dim i As Integer
Dim LaDerniere As String
 
 
Private Sub CommandButton1_Click()
 
 
LaDerniere = Application.Workbooks("CascadeCombobox.xls").Worksheets("Base").Cells(i, 4000).End(xlUp).Row
k = 1
For i = 2 To LaDerniere
If Application.Workbooks("CascadeCombobox.xls").Worksheets("Base").Cells(i, 1).Value = ComboBox1.Value and Application.Workbooks("CascadeCombobox.xls").Worksheets("Base").Cells(i, 2).Value = ComboBox2.Value and Application.Workbooks("CascadeCombobox.xls").Worksheets("Base").Cells(i, 3).Value = ComboBox3.Value Then
 
Application.Workbooks("CascadeCombobox.xls").Worksheets("Base").Range("A" & i & ":E" & i & "").Copy
Application.Workbooks("CascadeCombobox.xls").Worksheets("Base").Range("F" & k & "").Select
ActiveSheet.Paste
k = k + 1
End If
Next i
 
 
End Sub
 
'Les données sont dans les colonnes A à D, d'un onglet nommé "Base".
'La procédure effectue un remplissage conditionnel des Combobox en fonction de
'ce qui est sélectionnée dans le contrôle précédent:
'La sélection du ComboBox1 (données colonne A) définit le contenu du ComboBox2 (données colonne B) ,
'La sélection du ComboBox2 définit le contenu du ComboBox3 (données colonne C) …etc...
'
 
Private Sub UserForm_Initialize()
    'Définit la feuille contenant les données
    Set Ws = Worksheets("Base")
    'Définit le nombre de lignes dans la colonne A
    NbLignes = Ws.Range("A65536").End(xlUp).Row
 
    'Remplissage du ComboBox1
    Alim_Combo 1
 
End Sub
 
 
Private Sub ComboBox1_Change()
    'Remplissage Combo2
    Alim_Combo 2, ComboBox1.Value
End Sub
 
 
Private Sub ComboBox2_Change()
    'Remplissage Combo3
    Alim_Combo 3, ComboBox2.Value
End Sub
 
 
Private Sub ComboBox3_Change()
    'Remplissage Combo4
    Alim_Combo 4, ComboBox3.Value
End Sub
 
 
 
'Procédure pour alimenter les ComboBox
Private Sub Alim_Combo(CbxIndex As Integer, Optional Cible As Variant)
    Dim j As Integer
    Dim Obj As Control
 
    'Définit le ComboBox à remplir
    Set Obj = Me.Controls("ComboBox" & CbxIndex)
    'Supprime les anciennes données
    Obj.Clear
 
    'alimente le Combobox initial (Combobox1)
    If CbxIndex = 1 Then
        'Boucle sur les lignes de la colonne A (à partir de la 2eme ligne)
        For j = 2 To NbLignes
            Obj = Ws.Range("A" & j)
            'Remplit le ComboBox sans doublons
            If Obj.ListIndex = -1 Then Obj.AddItem Ws.Range("A" & j)
        Next j
    Else
        'Alimentation conditionnelle des autres Combobox en fonction de
        'ce qui est sélectionnée dans le contrôle précédent:
        '(La sélection du ComboBox1 définit le contenu du ComboBox2,
        'La sélection du ComboBox2 définit le contenu du ComboBox3 …etc...)
        For j = 2 To NbLignes
            If Ws.Range("A" & j).Offset(0, CbxIndex - 2) = Cible Then
                Obj = Ws.Range("A" & j).Offset(0, CbxIndex - 1)
                If Obj.ListIndex = -1 Then Obj.AddItem Ws.Range("A" & j).Offset(0, CbxIndex - 1)
            End If
        Next j
   End If
 
   'Enlève la sélection dans le ComboBox
   Obj.ListIndex = -1
End Sub

qui peut m'aider???

**mercatog** · 26/03/2010, 18h45

si tu veux explique ce que fait ton code
ceci est erroné

Code :

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

LaDerniere = Application.Workbooks("CascadeCombobox.xls").Worksheets("Base").Cells(i, 4000).End(xlUp).Row

Ligne 0 et colonne 4000!!
CascadeCombobox.xls c'est ton classeur ou un autre classeur

allège déjà ton code
Application.Workbooks("CascadeCombobox.xls").Worksheets("Base")....
à répétition, c'est trop

**adriennoob** · 26/03/2010, 19h13

ben en fait, Je récupère la valeur de ma combobox1, puis celle de la combobox2, puis celle de la combobox3,

et avec ces valeur je recrée un tableau à partir de ma base de donnée principal, avec seulement les valeurs sélectionnées.

En gros c'est comme si j'utilisais le filtre.

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
Private Sub CommandButton1_Click()
 
 
LaDerniere = Application.Workbooks("CascadeCombobox.xls").Worksheets("Base").Cells(i, 4000).End(xlUp).Row
k = 1
For i = 2 To LaDerniere
If Application.Workbooks("CascadeCombobox.xls").Worksheets("Base").Cells(i, 1).Value = ComboBox1.Value and Application.Workbooks("CascadeCombobox.xls").Worksheets("Base").Cells(i, 2).Value = ComboBox2.Value and Application.Workbooks("CascadeCombobox.xls").Worksheets("Base").Cells(i, 3).Value = ComboBox3.Value Then
 
Application.Workbooks("CascadeCombobox.xls").Worksheets("Base").Range("A" & i & ":E" & i & "").Copy
Application.Workbooks("CascadeCombobox.xls").Worksheets("Base").Range("F" & k & "").Select
ActiveSheet.Paste
k = k + 1
End If
Next i
 
 
End Sub

J'éspère que tu as compris ????

Par contre si tu as une idée pour alléger mon code je suis prenant.

**Bugzy1963** · 26/03/2010, 19h22

Afin d'alléger le programme, tu peux omettre d'inscrire Application.Workbooks("CascadeCombobox.xls") si les combobonx sont dans cette application.

Enlève le .Value à tous les Cells(i, 1).Value = ComboBox.....

En espérant que cela corrige la situation.

**ESVBA** · 26/03/2010, 19h34

comme le fait remarquer mercatog,

que vaut le "i" dans la première ligne ? Elle est alors la valeur de "LaDerniere"
Simplification de la présentation avec "With... End With" voir l'aide
Sinon quel est le problème plus précicemment ?

ESVBA

**Pierre Fauconnier** · 01/04/2010, 20h47

Bonsoir

Travaille avec des objets. Ton code sera déjà beaucoup plus clair. Pense à travailler ton code en pas à pas avec fenêtre des variables locales et des valeurs espion.

Si ton code ne fonctionne pas, dis où il se plante (sur quelle ligne), ou précise le résultat attendu ET le résultat obtenu.

L'option "Boule de cristal" n'est pas encore en plugin sur les forums de DVP

**casefayere** · 01/04/2010, 21h15

Bonsoir,
je t'avais déjà orienté,
exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click() 
With Worksheets("Base")
   LaDerniere = .Range("a" & .Rows.Count).End(xlUp).Row
   k = 1
   For i = 2 To LaDerniere
   If .Cells(i, 1) = ComboBox1 And .Cells(i, 2) = ComboBox2 And .Cells(i, 3) = ComboBox3 Then
      .Range("F" & k, "j" & k) = .Range("A" & i, "E" & i) 'ici j'ai pris de F à J
      k = k + 1
   End If
   Next i
End With
End Sub

**adriennoob** · 07/04/2010, 08h43

Oui merci j'ai trouvé en fait j'ai oublié de convertir mes données avec CStr()

Chaque fois j'oublie.

Merci tout le monde.

récupération de donnée liste déroulante

Macros et VBA Excel

Discussions similaires

Partager

Partager