Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Filtre avec macro dans userform

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion lisooo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

lisooo

Guest
Bonjour à tous!
Depuis la dernière fois, j'ai pas mal avancé dans mon projet...
Mais quelques problèmes encore...

J'ai un formulaire construit sur la base du tri :
If TextBoxAnnée.Text = "1970" Then
ActiveSheet.Range("$A$2:$ZZ$5000").AutoFilter Field:=2, Operator:= _
xlFilterValues, Criteria2:=Array(0, "5/16/1970")

Mon problème : cela m'oblige à rentrer toutes les valeurs possible après le If. Je voulais donc savoir s'il existait un code permettant de mettre If Textbox.Text = "quelquechose" Then...

Mon second problème est différent : dans mon formulaire de création de nouvelle jurisprudence, j'ai un bouton de commande "lien". J'aimerai que celui-ci ouvre la boite de dialogue d'ajout d'un lien hypertexte d'excel... Est-ce possible?

Merci à tous pour vos réponses!
Lisa

PS : n'hésitez pas à m'expliquer les choses car je cherche vraiment à comprendre !
 

Pièces jointes

Trier par date Trier par votes
Re : Filtre avec macro dans userform

Bonjour Lisoo, bonjour le forum,

Pour ton premier problème, peut-être comme ça (non testé) :
Code: 
dim an as string
an = "5/12/" & CStr(TextBoxAnnée.value)

        ActiveSheet.Range("$A$2:$ZZ$5000").AutoFilter Field:=2, Operator:= _
        xlFilterValues, Criteria2:=Array(0, an)
 
Vote positif 0 Vote négatif
Re : Filtre avec macro dans userform

Merci!
Ça marche!!
Je vais essayer d'appliquer cette formule à mes autres champs et si je n'y arrive pas, je vous redirai!
A bientôt!
Lisa
 
Vote positif 0 Vote négatif
Re : Filtre avec macro dans userform

Bonjour,
La méthode indiquée marche très bien pour les dates. J'ai réussi à l'appliquer pour une partie du texte mais deux problèmes (encore) :

- Lorsque je ne saisis pas de date (c'est à dire que j'effectue le tri avec une autre critère comme le critère "type"),
j'ai une erreur 1004 que j'ai essayé de résoudre sans succès.

- Les tris avec les critères "juridiction" et "station" ne fonctionnent pas du tout.
Je pense que mon problème réside dans le fait que les différents tris n'ont pas de connexion qui pourrait leur dire 1èrement, 2èmement...

Bref, un peu d'aide serait bienvenue!
Merci!!

PS : pour Robert : ce qui est bien avec le code que tu m'as donné c'est que je l'ai compris!
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Filtre avec macro dans userform

Je vous joins également le code, ça vous évitera de télécharger!
Code: 
Private Sub CommandButtonAfficher_Click()
        'On effectue le tri 2ere colonne (année)
        Dim an As String
        an = "5/12/" & CStr(TextBoxAnnée.Value)
        ActiveSheet.Range(""$A$2:$ZZ$5000"").AutoFilter Field:=2, Operator:= _
        xlFilterValues, Criteria2:=Array(0, an) - ERREUR 1004
        If TextBoxAnnée.Value = "" Then
        ActiveSheet.Range(""$A$2:$ZZ$5000"").AutoFilter Field:=2
        End If
                
        'On effectue le tri 3ème colonne (Type)
        Dim text1 As String
        text1 = ComboBoxType.Value
        ActiveSheet.Range("C:C").AutoFilter Field:=3, Criteria1:=text1
        If ComboBoxType.Value = "" Then
        ActiveSheet.Range("C:C").AutoFilter Field:=3
        End If
        
        'On effectue le tri 5ème colonne (Juridiction)
        Dim text2 As String
        text2 = ComboBoxJuridiction.Value
        ActiveSheet.Range("E:E").AutoFilter Field:=5, Criteria1:=text2
        If ComboBoxType.Value = "" Then
        ActiveSheet.Range("E:E").AutoFilter Field:=5
        End If
        
        'On effectue le tri 7ème colonne (Station)
        Dim text3 As String
        text3 = ComboBoxStation.Value
        ActiveSheet.Range("G3:G200").AutoFilter Field:=7, Criteria1:=text3
        If ComboBoxType.Value = "" Then
        ActiveSheet.Range("G3:G200").AutoFilter Field:=7
        End If
        End Sub
 
Vote positif 0 Vote négatif
Re : Filtre avec macro dans userform

J'ai réussi!
Code: 
Private Sub CommandButtonAfficher_Click()

        'On effectue le tri 2ere colonne (année)
        If Not TextBoxAnnée.Value = "" Then
        Dim an As String
        an = "5/12/" & CStr(TextBoxAnnée.Value)
        ActiveSheet.Range("B2").AutoFilter Field:=2, Operator:= _
        xlFilterValues, Criteria2:=Array(0, an)
        ElseIf TextBoxAnnée.Value = "" Then
        ActiveSheet.Range("B2").AutoFilter Field:=2
        End If
                
        'On effectue le tri 3ème colonne (Type)
        If Not ComboBoxType.Value = "" Then
        Dim text1 As String
        text1 = ComboBoxType.Value
        ActiveSheet.Range("C2").AutoFilter Field:=3, Criteria1:=text1
        ElseIf ComboBoxType.Value = "" Then
        ActiveSheet.Range("C2").AutoFilter Field:=3
        End If
        
        'On effectue le tri 5ème colonne (Juridiction)
        If Not ComboBoxJuridiction = "" Then
        Dim text2 As String
        text2 = ComboBoxJuridiction.Value
        ActiveSheet.Range("E2").AutoFilter Field:=5, Criteria1:=text2
        ElseIf ComboBoxType.Value = "" Then
        ActiveSheet.Range("E2").AutoFilter Field:=5
        End If
        
        'On effectue le tri 7ème colonne (Station)
        If Not ComboBoxStation = "" Then
        Dim text3 As String
        text3 = ComboBoxStation.Value
        ActiveSheet.Range("G2").AutoFilter Field:=7, Criteria1:=text3
        ElseIf ComboBoxType.Value = "" Then
        ActiveSheet.Range("G2").AutoFilter Field:=7
        End If
        End Subb

Merci à tous pour votre aide, voilà le fichier définitif!
Bonne soirée!
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Question Question
XL 2021 Fichier partagé - erreur de l'objet TextRange2
Réponses
7
Affichages
548
macseb
M
D
  • Question Question
Microsoft 365 VBA filtre plusieurs colonne a partir d'une donnée (sous combobox)
Réponses
7
Affichages
1 K
Dranreb
L
  • Question Question
Microsoft 365 Macro Insertion image dans cellule
Réponses
3
Affichages
1 K
Dranreb
X
  • Question Question
XL 2016 Souci copier/coller avec un filtre.
2 3 4
Réponses
55
Affichages
5 K
Xender
X
  • Question Question
Autres Simplifier une macro
Réponses
1
Affichages
477
fanch55
  • Question Question
XL 2016 Excel VBA : syntaxe insertion de variable dans un filtre avancé
Réponses
5
Affichages
2 K
xUpsilon
  • Question Question
XL 2016 Filtre vba avec critères dans une plage
Réponses
7
Affichages
4 K
Compte Supprimé 979
C
C
  • Question Question
XL 2019 Filtrage de données en VBA
Réponses
11
Affichages
2 K
Phil69970
A
  • Question Question
Microsoft 365 Macro : Somme automatisée sur plusieurs feuilles.
Réponses
2
Affichages
1 K
AntoineLTO
A
J
  • Question Question
XL 2016 Activer un filtre "Non vide" dans un tableau avec un code VBA
Réponses
1
Affichages
2 K
Jerome5625
J
S
  • Résolu(e)
Autres Pourquoi les coches dans le filtre ne s'affiche pas malgré code VBA semble marcher (uniquement filtre personnalisé dans table base de données)
Réponses
6
Affichages
1 K
Scoub
S
V
  • Résolu(e)
Microsoft 365 Afficher filtres appliqués par macro dans la cellule B3 directement et non par F5 puis Réinitialiser
Réponses
12
Affichages
2 K
VirginieG
V
D
  • Question Question
XL 2016 VBA erreur 1004 sur filtre automatique (feuille non protégée)
2
Réponses
22
Affichages
5 K
Dudu2
S
  • Question Question
Microsoft 365 Macro à 2 critères pour filtre auto (valeur cellule + Vide)
Réponses
8
Affichages
1 K
fanch55
L
  • Question Question
Microsoft 365 Compter et afficher un numéro correspondant à un filtre sélectionné
Réponses
2
Affichages
1 K
Legendre
L
K
  • Question Question
XL 2019 Extraction données avec filtre d'un fichier .txt sur Excel & créer nouveau fichier .txt
Réponses
1
Affichages
3 K
Hasco
C
  • Résolu(e)
XL 2010 utiliser 2 listbox avec une même source dans un userfom
2
Réponses
17
Affichages
3 K
cgpa
C
  • Résolu(e)
XL 2016 Optimisation MACROS
2 3
Réponses
38
Affichages
6 K
Michest94
M
  • Question Question
XL 2010 AutoFilter entre 2 dates UserForm et TextBox
Réponses
5
Affichages
2 K
modus57
M
I
  • Résolu(e)
XL 2019 Rapprochement
Réponses
3
Affichages
1 K
iliess
I
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…