Liste déroulante combobox

**catetesse** · 27/09/2011, 09h54

Bonjour,

Je débute avec les userform et j'ai quelques soucis. J'ai consulté les tutoriels et je crois que je ne peux pas faire ce que je souhaite.

Donc j'ai une base de données d'offres de transports. Avec un tableau croisé dynamique je met à jour une liste de transporteurs, de destinations, de points de départ et pays.
J'ai nommé mes zones "transp", "dest", "depart" et "pays".

Dans un userform je souhaite pouvoir filtrer les offres en fonctions des critères sélectionnés : on peut choisir un filtre ou plusieurs. Je préfère passer par un userform pour que ça soit plus facile à utiliser.

Dans mon userform j'ai une combobox pour chaque critère. Dans le champ "row source" j'ai indiqué ma zone qui a un nb de valeurs variables (ex "transp").
Ensuite je dois écrire qqch dans "Private Sub ComboBox1_Change()" mais c'est là que je bloque car dans des exemples il faut déclarer toutes les variables mais dans mon cas ça n'est pas possible. Y a t-il une autre solution ?

Merci pour votre aide.
Catherine

**Daniel.C** · 27/09/2011, 10h08

Bonjour,

mais c'est là que je bloque car dans des exemples il faut déclarer toutes les variables mais dans mon cas ça n'est pas possible. Y a t-il une autre solution ?

Pourquoi ?

**catetesse** · 27/09/2011, 10h49

En fait j'ai bien ma liste déroulante, j'avais dû faire une fausse manip.

Par contre je ne sais pas trop comment continuer : afficher les solutions possibles en fonction des solutions retenues.

J'ai mis un bouton valider, c'est là que je dois entrer la programmation et je n'arrive pas à trouver d'exemple précis.

**Daniel.C** · 27/09/2011, 11h03

Pour une liste à valider en colonne A :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Valider_Click()
    If Me.ComboBox1.ListIndex > -1 Then
        With Sheets("Feuil1").Range("A1")
            .Range("A1").AutoFilter
            .Range("A1").AutoFilter 1, Me.ComboBox1.Value
        End With
    End If
End Sub

**catetesse** · 27/09/2011, 11h10

Pour afficher le résultat faut-il déclarer toutes les valeurs dans "Private Sub ComboBox1_Change()" etc ?

**Daniel.C** · 27/09/2011, 11h31

1. A quoi te sert la macro évènementielle "Private Sub ComboBox1_Change()"
si tu te sers du bouton "Valider" ?
2. Si tu fais allusion aux cellules dans RowSource, non, heureusement, ce sont des données, pas des variables. Une variable est un nom que tu choisis pour lui affecter une valeur quelconque, par exemple :

Code :

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

1
2
3
Dim c as Range, Var as Integer
set c = Sheets("Feuil1").Range("F4")
Var = 2

etc.

**catetesse** · 27/09/2011, 11h34

Merci ça fonctionne bien.
Toutefois je souhaite pouvoir filtrer sur au maximum 5 critères.

J'en ai mis 2 à la suite mais le filtre ne se fait pas sur les 2 mais uniquement le dernier

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
Private Sub cmdbValider_Click()
 
'filtre point départ
    If Me.ComboBox1.ListIndex > -3 Then
        With Sheets("Liste").Range("c2")
            .Range("c2").AutoFilter
            .Range("c2").AutoFilter 3, Me.ComboBox1.Value
        End With
    End If
 
'filtre destination
    If Me.ComboBox2.ListIndex > -4 Then
        With Sheets("Liste").Range("d2")
            .Range("d2").AutoFilter
            .Range("d2").AutoFilter 4, Me.ComboBox1.Value
        End With
    End If
 
End Sub

Y a t-il une fonction pour cumuler les filtres ?

Dans un fichier fait par un ancien collègue ""Private Sub ComboBox1_Change()" était complété. Mais je n'ai pas besoin de cela.
Merci