Est-il possible de positionner (par macro) des "petites flèches" de
filtres sur certaines colonnes (et non toutes comme Excel le fait -
apparement - par défaut) ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
j-pascal
Merci Denis,
Sur : .AutoFilter field:=a, visibleDropDown:úlse,
J'ai : "La méthode AutoFilter de la classe Range a échoué"
??
jp
Bonjour J-Pascal,
Un petit exemple :
J'ai supposé que le filtre en "Feuil1" avait 4 colonnes et que seules les colonnes 1 et 3 afficheraient les boutons du filtre automatique.
'---------------------------------------------- Sub FiltreAvecBoutonCache() Dim MaPlage As Range Set MaPlage = Worksheets("Feuil1").Range("a1").CurrentRegion
With MaPlage For a = 1 To MaPlage.Columns.Count Select Case a Case 1, 3 .AutoFilter field:=a, visibleDropDown:=True Case 2, 4 .AutoFilter field:=a, visibleDropDown:úlse End Select Next .AutoFilter field:=1, Criteria1:="Toto" End With End Sub '----------------------------------------------
"j-pascal" a écrit dans le message de groupe de discussion : Bonsoir,
Est-il possible de positionner (par macro) des "petites flèches" de filtres sur certaines colonnes (et non toutes comme Excel le fait - apparement - par défaut) ?
(ie) ColA, ColC, ColE.
Merci pour vos lumières,
jp
Merci Denis,
Sur : .AutoFilter field:=a, visibleDropDown:úlse,
J'ai : "La méthode AutoFilter de la classe Range a échoué"
??
jp
Bonjour J-Pascal,
Un petit exemple :
J'ai supposé que le filtre en "Feuil1" avait 4 colonnes
et que seules les colonnes 1 et 3 afficheraient les
boutons du filtre automatique.
'----------------------------------------------
Sub FiltreAvecBoutonCache()
Dim MaPlage As Range
Set MaPlage = Worksheets("Feuil1").Range("a1").CurrentRegion
With MaPlage
For a = 1 To MaPlage.Columns.Count
Select Case a
Case 1, 3
.AutoFilter field:=a, visibleDropDown:=True
Case 2, 4
.AutoFilter field:=a, visibleDropDown:úlse
End Select
Next
.AutoFilter field:=1, Criteria1:="Toto"
End With
End Sub
'----------------------------------------------
"j-pascal" <messages@venir.com> a écrit dans le message de groupe de
discussion : mn.2cf17d9590e7732c.81386@venir.com... Bonsoir,
Est-il possible de positionner (par macro) des "petites flèches" de
filtres sur certaines colonnes (et non toutes comme Excel le fait -
apparement - par défaut) ?
J'ai : "La méthode AutoFilter de la classe Range a échoué"
??
jp
Bonjour J-Pascal,
Un petit exemple :
J'ai supposé que le filtre en "Feuil1" avait 4 colonnes et que seules les colonnes 1 et 3 afficheraient les boutons du filtre automatique.
'---------------------------------------------- Sub FiltreAvecBoutonCache() Dim MaPlage As Range Set MaPlage = Worksheets("Feuil1").Range("a1").CurrentRegion
With MaPlage For a = 1 To MaPlage.Columns.Count Select Case a Case 1, 3 .AutoFilter field:=a, visibleDropDown:=True Case 2, 4 .AutoFilter field:=a, visibleDropDown:úlse End Select Next .AutoFilter field:=1, Criteria1:="Toto" End With End Sub '----------------------------------------------
"j-pascal" a écrit dans le message de groupe de discussion : Bonsoir,
Est-il possible de positionner (par macro) des "petites flèches" de filtres sur certaines colonnes (et non toutes comme Excel le fait - apparement - par défaut) ?
"j-pascal" a écrit dans le message de groupe de discussion : Merci Denis,
Sur : .AutoFilter field:=a, visibleDropDown:úlse,
J'ai : "La méthode AutoFilter de la classe Range a échoué"
??
jp
Bonjour J-Pascal,
Un petit exemple :
J'ai supposé que le filtre en "Feuil1" avait 4 colonnes et que seules les colonnes 1 et 3 afficheraient les boutons du filtre automatique.
'---------------------------------------------- Sub FiltreAvecBoutonCache() Dim MaPlage As Range Set MaPlage = Worksheets("Feuil1").Range("a1").CurrentRegion
With MaPlage For a = 1 To MaPlage.Columns.Count Select Case a Case 1, 3 .AutoFilter field:=a, visibleDropDown:=True Case 2, 4 .AutoFilter field:=a, visibleDropDown:úlse End Select Next .AutoFilter field:=1, Criteria1:="Toto" End With End Sub '----------------------------------------------
"j-pascal" a écrit dans le message de groupe de discussion : Bonsoir,
Est-il possible de positionner (par macro) des "petites flèches" de filtres sur certaines colonnes (et non toutes comme Excel le fait - apparement - par défaut) ?
(ie) ColA, ColC, ColE.
Merci pour vos lumières,
jp
Merci pour ton fichier,
J'ai vu où j'ai fait l'erreur.
jp
Exemple là : http://cjoint.com/?fhmPmFDBno
"j-pascal" <messages@venir.com> a écrit dans le message de groupe de
discussion : mn.2d3b7d9529a71359.81386@venir.com... Merci Denis,
Sur : .AutoFilter field:=a, visibleDropDown:úlse,
J'ai : "La méthode AutoFilter de la classe Range a échoué"
??
jp
Bonjour J-Pascal,
Un petit exemple :
J'ai supposé que le filtre en "Feuil1" avait 4 colonnes
et que seules les colonnes 1 et 3 afficheraient les
boutons du filtre automatique.
'----------------------------------------------
Sub FiltreAvecBoutonCache()
Dim MaPlage As Range
Set MaPlage = Worksheets("Feuil1").Range("a1").CurrentRegion
With MaPlage
For a = 1 To MaPlage.Columns.Count
Select Case a
Case 1, 3
.AutoFilter field:=a, visibleDropDown:=True
Case 2, 4
.AutoFilter field:=a, visibleDropDown:úlse
End Select
Next
.AutoFilter field:=1, Criteria1:="Toto"
End With
End Sub
'----------------------------------------------
"j-pascal" <messages@venir.com> a écrit dans le message de groupe de
discussion : mn.2cf17d9590e7732c.81386@venir.com... Bonsoir,
Est-il possible de positionner (par macro) des "petites flèches" de
filtres sur certaines colonnes (et non toutes comme Excel le fait -
apparement - par défaut) ?
"j-pascal" a écrit dans le message de groupe de discussion : Merci Denis,
Sur : .AutoFilter field:=a, visibleDropDown:úlse,
J'ai : "La méthode AutoFilter de la classe Range a échoué"
??
jp
Bonjour J-Pascal,
Un petit exemple :
J'ai supposé que le filtre en "Feuil1" avait 4 colonnes et que seules les colonnes 1 et 3 afficheraient les boutons du filtre automatique.
'---------------------------------------------- Sub FiltreAvecBoutonCache() Dim MaPlage As Range Set MaPlage = Worksheets("Feuil1").Range("a1").CurrentRegion
With MaPlage For a = 1 To MaPlage.Columns.Count Select Case a Case 1, 3 .AutoFilter field:=a, visibleDropDown:=True Case 2, 4 .AutoFilter field:=a, visibleDropDown:úlse End Select Next .AutoFilter field:=1, Criteria1:="Toto" End With End Sub '----------------------------------------------
"j-pascal" a écrit dans le message de groupe de discussion : Bonsoir,
Est-il possible de positionner (par macro) des "petites flèches" de filtres sur certaines colonnes (et non toutes comme Excel le fait - apparement - par défaut) ?