Trier avec macro et combobox

Version imprimable

18/08/2010, 09h59
manuseverine

Trier avec macro et combobox

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 ?
18/08/2010, 10h32
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:

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.
18/08/2010, 11h28
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:

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

Merci pour ton aide

On peux essayer de faire comme ça :

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

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.

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

Pour le filtre

Code:

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

18/08/2010, 15h45
manuseverine

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
18/08/2010, 16h07
mercatog

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
18/08/2010, 16h49
manuseverine

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
18/08/2010, 19h03
mercatog

Citation:

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.
18/08/2010, 21h32
manuseverine

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
18/08/2010, 22h31
mercatog

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.
19/08/2010, 08h39
manuseverine

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

Code:

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

19/08/2010, 13h46
manuseverine

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

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

Code:

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:

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

19/08/2010, 15h11
manuseverine

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
28/08/2010, 11h51
Invité

Bonjour,

Citation:

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 :

Citation:

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.
28/08/2010, 17h44
manuseverine

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

Fuseau horaire GMT +2. Il est actuellement 14h38.