Discussion :

[manuseverine]

Bonjour,

J'ai un tableau de clients avec leur coordonnées et j'aimerais que l'on puisse avoir un bouton, qui quand on clique dessus nous ouvre une combobox, je crois que c'est comme ça que vous appelez ça, pour demander par quel département on veut trier les clients.

Est-ce possible ?

[tarnx]

Par comboBox, tu sous entends une liste avec tous les départements ou une fenêtre de saisie? Dans ce dernier cas, c'est une InputBox.

Code :

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

1
2
3
4
5
6
7
8
9
Sub TonBouton_Click()
    Dim intDpt as Integer
 
    intDpt = InputBox("Saisir le département")
 
    'Ici tu met le code pour effectuer le tri
    ...
 
End Sub

J’espère que c'est ce que tu recherche.

[manuseverine]

merci tarnx. Merci pour Inputbox, je saurais comme ça. Peux tu me dire comment on fait pour créer le filtre en fonction de ce qu'on aura saisi dans l'Inputbox ?

J'ai cherché dans d'autres discussions mais je n'ai pas trouvé.

Par exemple, si je saisi "44", tous les clients du département 44 s'affiche et seulement ceux là.

Il faudrait également que l'on mentionne dans le code que mon tri commence à la ligne 3 car en ligne 2, j'ai le titre des colonnes et en ligne 1 des boutons.

Faut-il suivre ce modèle ?

Code :

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

Filter(sourcesrray, match[, include[, compare]])

Merci pour ton aide

[tarnx]

On peux essayer de faire comme ça :

Je considère que les départements se situent sur le colonne A.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub TonBouton_Click()

    Dim intDpt as Integer
 
    intDpt = InputBox("Saisir le département")
             
           ' On compte les lignes du tableau
    Range("A3").Select
    Range(Selection, Selection.End(xlDown)).Select
    intDataRow = Selection.CurrentRegion.Rows.Count + 2
           ' On effectue le filtre
    Range("A2:C" & intDataRow ).AutoFilter Field:=1, Criteria1:= intDpt 

End Sub

A tester.

Mais cette méthode me parait un peu redondante étant donné qu'elle crée un filtre automatique sous forme de liste déroulante.

[manuseverine]

Merci mais comme tu le dis, ce n'est pas ce que je cherche à faire. J'ai quand-même testé mais c'est quand même très compliqué à l'utilisation

J'aimerais que quand on a rentré notre département dans l'inputbox, on fait enter et on a la liste des clients, avec leur coordonnées correspondantes bien sûr.

[mercatog]

Pour le filtre

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
Dim Dpt As String
 
Dpt = InputBox("Entrez n° département")
With Sheets("Feuil3").Range("A1")  'Nom feuille à adapter
    .AutoFilter
    .AutoFilter field:=1, Criteria1:=Dpt
End With
End Sub