Filtrer une colonne à partir d'une combobox

Version imprimable

Bonjour,

Je tourne en rond depuis plusieurs jours alors peut être que vous auriez une solution.
Je souhaite que lorsque je sélectionne un nom chargé dans ma combobox, celui ci soit choisi pour activer un filtre dans ma feuille "Suivi", colonne "N".

Je débute donc une solution clef en main serait idéal.

Merci de votre aide!

Code:

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
 
'Chargement du menu deroulant
Private Sub UserForm_Initialize()
 Dim i As Integer
    i = 2
    Do While Worksheets("Organisation").Cells(i, 1) <> ""
        ComboBox1.AddItem Worksheets("Organisation").Cells(i, 1)
        i = i + 1
    Loop
End Sub
 
Private Sub CommandButton1_Click()
 
    Dim nom As String
 
'la variable nom prend pour valeur le nom choisi dans la liste du combobox1
nom = ComboBox1.Text
 
'Suppression des filtres éventuels
With Worksheets("Suivi PV")
    If .FilterMode = True Then .ShowAllData
End With
 
'Filtrer sur le nom dans la colonne N
Worksheets("Suivi PV").Range("N4").AutoFilter Field:=1, Criteria1:="nom"
 
 
Unload Me
 
End Sub

25/06/2017, 12h24
joe.levrai

Bonjour,

nom était la variable contenant la valeur choisie et à utiliser pour ton filtre, enlève les guillemets sur la ligne 25 de ton code, car là tu demandes de filtrer sur le mot "nom" et pas ce que contient la variable nom
25/06/2017, 12h58
Fludje

Merci pour l'info.
Le filtre semble fonctionner mais toutes les lignes non vides disparaisent et je n'arrive pas à la retrouver sans fermer excel sans enregistrer.

As tu une idee joe.levrai ?

Merci
25/06/2017, 13h16
joe.levrai

Met une copie écran de la feuille Suivi PV afin de voir la structure et le type de données

Et également une copie du code que tu viens d'utiliser et qui ne fonctionne toujours pas

Voici la structure le code utilisé.

Code:

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
Private Sub CommandButton1_Click()
 
    Dim nom As String
 
'Désactivation de la mise à jour à l'ecran (pour accélerer la MAJ)
Application.ScreenUpdating = False
 
'boucle pour vérifier que l'utilisateur ne clique pas sur valider sans avoir choisi son nom dans la liste
If Me.ComboBox1.ListIndex = -1 Then
    MsgBox "Saissisez le nom dans la liste ci-dessous."
End If
 
'la variable nom prend pour valeur le nom choisi dans la liste du combobox1
nom = ComboBox1.Text
 
If nom = "" Then
    MsgBox ("Aucun nom n'a été entré.")
End If
 
'Suppression des filtres éventuels
With Worksheets("Suivi PV")
    If .FilterMode = True Then .ShowAllData
End With
 
'Filtrer sur le nom dans la colonne N
Worksheets("Suivi PV").Range("N4").AutoFilter Field:=1, Criteria1:=nom
 
Unload Me
 
End Sub

Impossible de joindre une copie d'ecran. Peux tu m'envoyer ton adresse mail en message privé?

Merci

25/06/2017, 16h44
joe.levrai

Non désolé, le but du forum est de partager publiquement les choses.

On va tenter de s'en passer alors

Tes données commencent en ligne 4 ou le titre de ta colonne est en ligne 4, ou c'est différent ?

Ce sont quels types de données ? Du texte, des chiffres, des dates, des formules ??
25/06/2017, 19h35
Fludje

Je veux trié la colonne N, de la ligne 4 jusqu'à la dernière ligne non vide de la colonne A.
25/06/2017, 19h43
joe.levrai

Mes questions ne sont pas précises sans raison, soit tu n'y réponds pas, soit tu réponds à la moitié de l'énoncé, mais tu n'apportes pas les éléments nécessaires à la bon compréhension de tes données
25/06/2017, 21h11
Fludje

J'ai lu trop vite désole.
Donc, je veux trié la colonne N, de la ligne 4 jusqu'à la dernière ligne non vide de la colonne A (contrairement à la colonne N, toutes les lignes ont une valeur (chiffre).

Le titre de la colonne est en ligne 2 (la ligne 3 n'est utilisé qu'une fois pour copier une valeur).

La colonne N contient des noms (ex: A. MARTIN).

Je souhaite donc qu'en fin de macro, seuls les lignes qui contiennent (dans la colonne N de la feuille Suivi PV) le nom choisi dans ma combobox1 apparaisse.
26/06/2017, 08h24
Fludje

J'ai trouvé mon erreur.
En comptant les colonnes pour trier la colonne N, j'avais oublié les colonnes masquées. N est la 14eme lettres de l'alphabet et pas la 10eme...
Le bon code est donc:

Code:

Worksheets("Suivi PV").Range("N4").AutoFilter Field:=14, Criteria1:=nom_RTB

Merci joe.levrai pour tes recherches!