Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel filtre automatique

filtre automatique

2 réponses
Avatar
lou
Bonjour,
Apr=E8s avoir r=E9ajuster la largeur des colonnes, je veux=20
remettre le filtre automatique. J'ai =E9cris :
If ActiveSheet.AutoFilterMode =3D false Then
Range("A7").AutoFilter
End If
Le pb est que les petites fl=E8ches bleues n'apparaissent=20
pas dans la feuille, alors que le filtre auto est bien=20
coch=E9 et que si je demande un
msgbox ActiveSheet.AutoFilterMode, il me r=E9pond "Vrai"
Auriez-vous une id=E9e pour faire r=E9appara=EEtre ces fl=E8ches.
Je vous remercie
Lou
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
michdenis
Bonjour Lou,

à partir de la barre des menus de la feuille de calcul , Outils / Options / Onglet Affichage / Ligne Objets / tu actives
l'option "Afficher tout".


Salutations!


"lou" a écrit dans le message de news:122201c4a2a9$1e40ea40$
Bonjour,
Après avoir réajuster la largeur des colonnes, je veux
remettre le filtre automatique. J'ai écris :
If ActiveSheet.AutoFilterMode = false Then
Range("A7").AutoFilter
End If
Le pb est que les petites flèches bleues n'apparaissent
pas dans la feuille, alors que le filtre auto est bien
coché et que si je demande un
msgbox ActiveSheet.AutoFilterMode, il me répond "Vrai"
Auriez-vous une idée pour faire réapparaître ces flèches.
Je vous remercie
Lou
Avatar
Ci-joint un petit bout de code qui fonctionne
pour changer l'affichage d'une feuille ,protégée
qui plus est , masquage de colonnes , tri de données
mise en place du filtre automatique.

La distinction avec ton besoin c'est que j'affichais
les triangles de filtre sur toute la ligne.




Sub Affichage_Pour_Nettoyage_Fichier()
'
' Affichage_Pour_Nettoyage_Fichier Macro
' Macro enregistrée le 05/11/2002 par MARDELLAT
'
' MotDePasse = Range("PcnMotDePasse").Value

Sheets("Liste des DT").Activate


' ActiveSheet.Unprotect (MotDePasse)

If ActiveSheet.AutoFilterMode Then
'Desactiver le filtrage s'il est actif
Selection.AutoFilter
End If
'Reactiver le filtre sans aucun filtre selectionné
Rows("1:1").Select
Selection.AutoFilter
Columns("A:Z").Select
Selection.EntireColumn.Hidden = False
Selection.AutoFilter Field:=5, Criteria1:="Terminé"
Columns("E:E").Select
Selection.EntireColumn.Hidden = True
Columns("A:A").Select
Selection.EntireColumn.Hidden = True
Columns("I:I").Select
Selection.EntireColumn.Hidden = True
Columns("K:M").Select
Selection.EntireColumn.Hidden = True
Columns("Q:Q").Select
Selection.EntireColumn.Hidden = True
Columns("T:T").Select
Selection.EntireColumn.Hidden = True
Columns("U:Z").Select
Selection.EntireColumn.Hidden = True
Range("B1").Select

' ActiveSheet.Protect Password:=MotDePasse,
DrawingObjects:=True, Contents:=True, Scenarios:=True

Selection.Sort Key1:=Range("P2"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
ActiveWindow.FreezePanes = False


End Sub



-----Message d'origine-----
Bonjour Lou,

à partir de la barre des menus de la feuille de calcul ,
Outils / Options / Onglet Affichage / Ligne Objets / tu actives

l'option "Afficher tout".


Salutations!


"lou" a écrit dans
le message de news:122201c4a2a9$1e40ea40$

Bonjour,
Après avoir réajuster la largeur des colonnes, je veux
remettre le filtre automatique. J'ai écris :
If ActiveSheet.AutoFilterMode = false Then
Range("A7").AutoFilter
End If
Le pb est que les petites flèches bleues n'apparaissent
pas dans la feuille, alors que le filtre auto est bien
coché et que si je demande un
msgbox ActiveSheet.AutoFilterMode, il me répond "Vrai"
Auriez-vous une idée pour faire réapparaître ces flèches.
Je vous remercie
Lou


.