Y a t'il une autre possibilité de remettre un filtre à 0 car avec cette proc
ci-dessous cela provoque un ralentissement.
Merci de votre aide
Salutations
David
Sub Essais()
Selection.AutoFilter Field:=11
Selection.AutoFilter Field:=10
Selection.AutoFilter Field:=9
Selection.AutoFilter Field:=8
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=1
Sheets("Feuille1").Select
End Sub
--
direction-ternoise@(supprimerceci)wanadoo.fr
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
Nicolas B.
Salut David,
Pour afficher toutes les lignes : ActiveSheet.ShowAllData
Pour supprimer le filtre : Selection.AutoFilter
A+ -- Nicolas B.
Bonsoir
Y a t'il une autre possibilité de remettre un filtre à 0 car avec cette proc ci-dessous cela provoque un ralentissement. Merci de votre aide Salutations David
Sub Essais() Selection.AutoFilter Field: Selection.AutoFilter Field: Selection.AutoFilter Field:=9 Selection.AutoFilter Field:=8 Selection.AutoFilter Field:=7 Selection.AutoFilter Field:=6 Selection.AutoFilter Field:=5 Selection.AutoFilter Field:=4 Selection.AutoFilter Field:=3 Selection.AutoFilter Field:=2 Selection.AutoFilter Field:=1 Sheets("Feuille1").Select End Sub -- direction-ternoise@(supprimerceci)wanadoo.fr
Salut David,
Pour afficher toutes les lignes :
ActiveSheet.ShowAllData
Pour supprimer le filtre :
Selection.AutoFilter
A+
--
Nicolas B.
Bonsoir
Y a t'il une autre possibilité de remettre un filtre à 0 car avec
cette proc ci-dessous cela provoque un ralentissement.
Merci de votre aide
Salutations
David
Sub Essais()
Selection.AutoFilter Field:
Selection.AutoFilter Field:
Selection.AutoFilter Field:=9
Selection.AutoFilter Field:=8
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=1
Sheets("Feuille1").Select
End Sub
--
direction-ternoise@(supprimerceci)wanadoo.fr
Pour afficher toutes les lignes : ActiveSheet.ShowAllData
Pour supprimer le filtre : Selection.AutoFilter
A+ -- Nicolas B.
Bonsoir
Y a t'il une autre possibilité de remettre un filtre à 0 car avec cette proc ci-dessous cela provoque un ralentissement. Merci de votre aide Salutations David
Sub Essais() Selection.AutoFilter Field: Selection.AutoFilter Field: Selection.AutoFilter Field:=9 Selection.AutoFilter Field:=8 Selection.AutoFilter Field:=7 Selection.AutoFilter Field:=6 Selection.AutoFilter Field:=5 Selection.AutoFilter Field:=4 Selection.AutoFilter Field:=3 Selection.AutoFilter Field:=2 Selection.AutoFilter Field:=1 Sheets("Feuille1").Select End Sub -- direction-ternoise@(supprimerceci)wanadoo.fr
David T.
Bonsoir Nicolas
Merci de ton aide.
J'ai fais ceci, mais cela fonctionne à condition qu'une colonne soit filtrée. Une autre idée ?
Sub Essais() ActiveSheet.ShowAllData Sheets("Feuille1").Select End Sub
"Nicolas B." a écrit dans le message de news:%
Salut David,
Pour afficher toutes les lignes : ActiveSheet.ShowAllData
Pour supprimer le filtre : Selection.AutoFilter
A+ -- Nicolas B.
Bonsoir
Y a t'il une autre possibilité de remettre un filtre à 0 car avec cette proc ci-dessous cela provoque un ralentissement. Merci de votre aide Salutations David
Sub Essais() Selection.AutoFilter Field: Selection.AutoFilter Field: Selection.AutoFilter Field:=9 Selection.AutoFilter Field:=8 Selection.AutoFilter Field:=7 Selection.AutoFilter Field:=6 Selection.AutoFilter Field:=5 Selection.AutoFilter Field:=4 Selection.AutoFilter Field:=3 Selection.AutoFilter Field:=2 Selection.AutoFilter Field:=1 Sheets("Feuille1").Select End Sub -- direction-ternoise@(supprimerceci)wanadoo.fr
Bonsoir Nicolas
Merci de ton aide.
J'ai fais ceci, mais cela fonctionne à condition qu'une colonne soit
filtrée.
Une autre idée ?
Sub Essais()
ActiveSheet.ShowAllData
Sheets("Feuille1").Select
End Sub
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message de
news:%232thWgIBEHA.3284@TK2MSFTNGP09.phx.gbl...
Salut David,
Pour afficher toutes les lignes :
ActiveSheet.ShowAllData
Pour supprimer le filtre :
Selection.AutoFilter
A+
--
Nicolas B.
Bonsoir
Y a t'il une autre possibilité de remettre un filtre à 0 car avec
cette proc ci-dessous cela provoque un ralentissement.
Merci de votre aide
Salutations
David
Sub Essais()
Selection.AutoFilter Field:
Selection.AutoFilter Field:
Selection.AutoFilter Field:=9
Selection.AutoFilter Field:=8
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=1
Sheets("Feuille1").Select
End Sub
--
direction-ternoise@(supprimerceci)wanadoo.fr
J'ai fais ceci, mais cela fonctionne à condition qu'une colonne soit filtrée. Une autre idée ?
Sub Essais() ActiveSheet.ShowAllData Sheets("Feuille1").Select End Sub
"Nicolas B." a écrit dans le message de news:%
Salut David,
Pour afficher toutes les lignes : ActiveSheet.ShowAllData
Pour supprimer le filtre : Selection.AutoFilter
A+ -- Nicolas B.
Bonsoir
Y a t'il une autre possibilité de remettre un filtre à 0 car avec cette proc ci-dessous cela provoque un ralentissement. Merci de votre aide Salutations David
Sub Essais() Selection.AutoFilter Field: Selection.AutoFilter Field: Selection.AutoFilter Field:=9 Selection.AutoFilter Field:=8 Selection.AutoFilter Field:=7 Selection.AutoFilter Field:=6 Selection.AutoFilter Field:=5 Selection.AutoFilter Field:=4 Selection.AutoFilter Field:=3 Selection.AutoFilter Field:=2 Selection.AutoFilter Field:=1 Sheets("Feuille1").Select End Sub -- direction-ternoise@(supprimerceci)wanadoo.fr
Nicolas B.
En gérant les erreurs :
Sub Essais() On Error Resume Next ActiveSheet.ShowAllData Sheets("Feuille1").Select End Sub
Ou alors, j'ai pas compris la question...
A+ -- Nicolas B.
Bonsoir Nicolas
Merci de ton aide.
J'ai fais ceci, mais cela fonctionne à condition qu'une colonne soit filtrée. Une autre idée ?
Sub Essais() ActiveSheet.ShowAllData Sheets("Feuille1").Select End Sub
"Nicolas B." a écrit dans le message de news:%
Salut David,
Pour afficher toutes les lignes : ActiveSheet.ShowAllData
Pour supprimer le filtre : Selection.AutoFilter
A+ -- Nicolas B.
Bonsoir
Y a t'il une autre possibilité de remettre un filtre à 0 car avec cette proc ci-dessous cela provoque un ralentissement. Merci de votre aide Salutations David
Sub Essais() Selection.AutoFilter Field: Selection.AutoFilter Field: Selection.AutoFilter Field:=9 Selection.AutoFilter Field:=8 Selection.AutoFilter Field:=7 Selection.AutoFilter Field:=6 Selection.AutoFilter Field:=5 Selection.AutoFilter Field:=4 Selection.AutoFilter Field:=3 Selection.AutoFilter Field:=2 Selection.AutoFilter Field:=1 Sheets("Feuille1").Select End Sub -- direction-ternoise@(supprimerceci)wanadoo.fr
En gérant les erreurs :
Sub Essais()
On Error Resume Next
ActiveSheet.ShowAllData
Sheets("Feuille1").Select
End Sub
Ou alors, j'ai pas compris la question...
A+
--
Nicolas B.
Bonsoir Nicolas
Merci de ton aide.
J'ai fais ceci, mais cela fonctionne à condition qu'une colonne soit
filtrée.
Une autre idée ?
Sub Essais()
ActiveSheet.ShowAllData
Sheets("Feuille1").Select
End Sub
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le
message de news:%232thWgIBEHA.3284@TK2MSFTNGP09.phx.gbl...
Salut David,
Pour afficher toutes les lignes :
ActiveSheet.ShowAllData
Pour supprimer le filtre :
Selection.AutoFilter
A+
--
Nicolas B.
Bonsoir
Y a t'il une autre possibilité de remettre un filtre à 0 car avec
cette proc ci-dessous cela provoque un ralentissement.
Merci de votre aide
Salutations
David
Sub Essais()
Selection.AutoFilter Field:
Selection.AutoFilter Field:
Selection.AutoFilter Field:=9
Selection.AutoFilter Field:=8
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=1
Sheets("Feuille1").Select
End Sub
--
direction-ternoise@(supprimerceci)wanadoo.fr
Sub Essais() On Error Resume Next ActiveSheet.ShowAllData Sheets("Feuille1").Select End Sub
Ou alors, j'ai pas compris la question...
A+ -- Nicolas B.
Bonsoir Nicolas
Merci de ton aide.
J'ai fais ceci, mais cela fonctionne à condition qu'une colonne soit filtrée. Une autre idée ?
Sub Essais() ActiveSheet.ShowAllData Sheets("Feuille1").Select End Sub
"Nicolas B." a écrit dans le message de news:%
Salut David,
Pour afficher toutes les lignes : ActiveSheet.ShowAllData
Pour supprimer le filtre : Selection.AutoFilter
A+ -- Nicolas B.
Bonsoir
Y a t'il une autre possibilité de remettre un filtre à 0 car avec cette proc ci-dessous cela provoque un ralentissement. Merci de votre aide Salutations David
Sub Essais() Selection.AutoFilter Field: Selection.AutoFilter Field: Selection.AutoFilter Field:=9 Selection.AutoFilter Field:=8 Selection.AutoFilter Field:=7 Selection.AutoFilter Field:=6 Selection.AutoFilter Field:=5 Selection.AutoFilter Field:=4 Selection.AutoFilter Field:=3 Selection.AutoFilter Field:=2 Selection.AutoFilter Field:=1 Sheets("Feuille1").Select End Sub -- direction-ternoise@(supprimerceci)wanadoo.fr
isabelle
bonjour David,
c'est à adapter selon la plage ou est posé le filtre,
Sub Macro1() With Range("A1:D1") .AutoFilter .AutoFilter End With End Sub
isabelle
Bonsoir Nicolas
Merci de ton aide.
J'ai fais ceci, mais cela fonctionne à condition qu'une colonne soit filtrée. Une autre idée ?
Sub Essais() ActiveSheet.ShowAllData Sheets("Feuille1").Select End Sub
"Nicolas B." a écrit dans le message de news:%
Salut David,
Pour afficher toutes les lignes : ActiveSheet.ShowAllData
Pour supprimer le filtre : Selection.AutoFilter
A+ -- Nicolas B.
Bonsoir
Y a t'il une autre possibilité de remettre un filtre à 0 car avec cette proc ci-dessous cela provoque un ralentissement. Merci de votre aide Salutations David
Sub Essais() Selection.AutoFilter Field: Selection.AutoFilter Field: Selection.AutoFilter Field:=9 Selection.AutoFilter Field:=8 Selection.AutoFilter Field:=7 Selection.AutoFilter Field:=6 Selection.AutoFilter Field:=5 Selection.AutoFilter Field:=4 Selection.AutoFilter Field:=3 Selection.AutoFilter Field:=2 Selection.AutoFilter Field:=1 Sheets("Feuille1").Select End Sub -- direction-ternoise@(supprimerceci)wanadoo.fr
bonjour David,
c'est à adapter selon la plage ou est posé le filtre,
Sub Macro1()
With Range("A1:D1")
.AutoFilter
.AutoFilter
End With
End Sub
isabelle
Bonsoir Nicolas
Merci de ton aide.
J'ai fais ceci, mais cela fonctionne à condition qu'une colonne soit
filtrée.
Une autre idée ?
Sub Essais()
ActiveSheet.ShowAllData
Sheets("Feuille1").Select
End Sub
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message de
news:%232thWgIBEHA.3284@TK2MSFTNGP09.phx.gbl...
Salut David,
Pour afficher toutes les lignes :
ActiveSheet.ShowAllData
Pour supprimer le filtre :
Selection.AutoFilter
A+
--
Nicolas B.
Bonsoir
Y a t'il une autre possibilité de remettre un filtre à 0 car avec
cette proc ci-dessous cela provoque un ralentissement.
Merci de votre aide
Salutations
David
Sub Essais()
Selection.AutoFilter Field:
Selection.AutoFilter Field:
Selection.AutoFilter Field:=9
Selection.AutoFilter Field:=8
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=1
Sheets("Feuille1").Select
End Sub
--
direction-ternoise@(supprimerceci)wanadoo.fr
c'est à adapter selon la plage ou est posé le filtre,
Sub Macro1() With Range("A1:D1") .AutoFilter .AutoFilter End With End Sub
isabelle
Bonsoir Nicolas
Merci de ton aide.
J'ai fais ceci, mais cela fonctionne à condition qu'une colonne soit filtrée. Une autre idée ?
Sub Essais() ActiveSheet.ShowAllData Sheets("Feuille1").Select End Sub
"Nicolas B." a écrit dans le message de news:%
Salut David,
Pour afficher toutes les lignes : ActiveSheet.ShowAllData
Pour supprimer le filtre : Selection.AutoFilter
A+ -- Nicolas B.
Bonsoir
Y a t'il une autre possibilité de remettre un filtre à 0 car avec cette proc ci-dessous cela provoque un ralentissement. Merci de votre aide Salutations David
Sub Essais() Selection.AutoFilter Field: Selection.AutoFilter Field: Selection.AutoFilter Field:=9 Selection.AutoFilter Field:=8 Selection.AutoFilter Field:=7 Selection.AutoFilter Field:=6 Selection.AutoFilter Field:=5 Selection.AutoFilter Field:=4 Selection.AutoFilter Field:=3 Selection.AutoFilter Field:=2 Selection.AutoFilter Field:=1 Sheets("Feuille1").Select End Sub -- direction-ternoise@(supprimerceci)wanadoo.fr
