Trier avec macro et combobox

**manuseverine** · 18/08/2010, 09h59

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** · 18/08/2010, 10h32

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** · 18/08/2010, 11h28

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** · 18/08/2010, 12h20

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** · 18/08/2010, 14h31

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** · 18/08/2010, 15h05

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

**manuseverine** · 18/08/2010, 15h45

Merci, je viens de tester mais ça ne marche pas. Peux-tu me dire à quoi correspond A1 pour que j'essaie de comprendre pourquoi ça ne marche pas ?
Merci

**mercatog** · 18/08/2010, 16h07

A1 est la cellule A1 (j'ai fais ça en devinant que la ligne 1 de la feuille Feuil3 est la lignes des titres, les données sont à partir de la ligne 2
de plus les départements sont en colonne A.
à toi d'adapter donc

**manuseverine** · 18/08/2010, 16h49

j'ai pourtant modifié le nom de la feuille et remplacé A1 par E2 (c'est là où est le titre, "CP") mais ça ne marche pas

**mercatog** · 18/08/2010, 19h03

j'ai pourtant modifié le nom de la feuille et remplacé A1 par E2 (c'est là où est le titre, "CP") mais ça ne marche pas

Comme si j'ai ton fichier sous la main.
ça ne marche pas, ça ne vaut rien dire en terme d'explication.

**manuseverine** · 18/08/2010, 21h32

le problème c'est que dans mon fichier il y a les coordonnées de mes clients et donc je ne peux pas vous le joindre par respect pour eux.

Quand je clique sur le bouton, il me demande le département, mais quand je lui donne, je fais "enter ", il ne me trouve jamais de correspondance, alors qu'il y en a une, voir même plusieurs.

Mon classeur à en ligne 1, des boutons, en ligne 2 ce sont les titres des colonnes, et j'ai des colonnes qui vont de A à M. Les Codes Postaux sont en colonne E.

Je ne vois pas quoi vous dire de plus pour vous aider ...

Merci en tout cas

**mercatog** · 18/08/2010, 22h31

Tu remplaces les clients et leurs coordonnées par des coordonnées fictifs et tu joints un extrait du fichier. peut être tu recevras des réponses exactes.

**manuseverine** · 19/08/2010, 08h39

bonjour,

j'ai enregistré le fichier au format 97-2003 car en 2007 je n'arrive pas à le télécharger.

j'ai laissé que l'essentiel

merci beaucoup

**mercatog** · 19/08/2010, 12h34

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("Clients").Range("A2")
    .AutoFilter
    .AutoFilter field:=5, Criteria1:=Dpt
End With
End Sub

**manuseverine** · 19/08/2010, 13h46

Merci beaucoup, ça marche.

Par contre comme tu as pu le constater ce ne sont pas des départements mais des codes postaux que j'ai mis.

Alors pour éviter d'avoir à créer une autre colonne avec simplement les 2 premiers chiffre du code postal pour avoir le département.

Est-il possible de créer le même type de filtre mais qu'il ne prenne en compte que les 2 premiers chiffre ?

Merci encore pour ton précédent code

**mercatog** · 19/08/2010, 14h40

Transforme ta colonne E en du texte en ajoutant une apostrophe avant lees n°

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton2_Click()
Dim i As Long
With Sheets("Clients")
    For i = 3 To .Cells(Rows.Count, "E").End(xlUp).Row
        .Range("E" & i) = "'" & .Range("E" & i)
    Next i
End With
End Sub

ton code précédent sera

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
Dim Dpt As String
 
Dpt = InputBox("Entrez n° département") & "*"
With Sheets("Clients")
    With .Range("A2")
        .AutoFilter
        .AutoFilter field:=5, Criteria1:=Dpt
    End With
End With
End Sub

**manuseverine** · 19/08/2010, 15h11

je viens de tester ça marche mais pourquoi faut-il transformer mes codes postaux sous forme de texte ? Le problème c'est que apparement si je veux rajouter des lignes en bas de coordonnées et bien ces nouveaux codes postaux que je viendrais de saisir restent en chiffre et donc ne font pas parti de la sélection pour le filtre

Invité · 28/08/2010, 11h51

Bonjour,

je viens de tester ça marche mais pourquoi faut-il transformer mes codes postaux sous forme de texte ?

Tout simplement parce que, en numérique, tous les codes postaux dont le n° de département est inférieur à 10 ne seront plus que sur quatre chiffres (2110 au lieu de 02110 par exemple) et donc votre question précédente :

Est-il possible de créer le même type de filtre mais qu'il ne prenne en compte que les 2 premiers chiffres ?

n'aura pas de solution.

**manuseverine** · 28/08/2010, 17h44

merci beaucoup, j'ai compris. Je suis retourné lire le tutoriel sur les chiffres et avec ta réponse j'ai mieux compris.

Merci à tous

Trier avec macro et combobox [XL-2007]

Macros et VBA Excel

Discussions similaires

Partager

Partager