Discussion :

[Fludje]

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 :

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
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

[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

[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

[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

[Fludje]

Voici la structure le code utilisé.

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
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

[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 ??