Bonjour à tous,
Avant de lancer une de mes macros, j'aimerai m'assurer qu'aucun filtre
automatique de ma feuille n'est activé (donc qu'on peut voir l'ensemble des
lignes!)
Je pensais que la commande Hidden suffirait mais ce n'est apparement pas le
cas.
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
isabelle
bonjour Aurélie,
With Worksheets("Feuil1") If .AutoFilterMode Then For i = 1 To 3 If .AutoFilter.Filters(i).On Then Range("A1").AutoFilter Field:=i Next End If End With
isabelle
Bonjour à tous, Avant de lancer une de mes macros, j'aimerai m'assurer qu'aucun filtre automatique de ma feuille n'est activé (donc qu'on peut voir l'ensemble des lignes!) Je pensais que la commande Hidden suffirait mais ce n'est apparement pas le cas.
Savez vous comment faire?
Merci d'avance pour votre aide
Aurélie
bonjour Aurélie,
With Worksheets("Feuil1")
If .AutoFilterMode Then
For i = 1 To 3
If .AutoFilter.Filters(i).On Then Range("A1").AutoFilter Field:=i
Next
End If
End With
isabelle
Bonjour à tous,
Avant de lancer une de mes macros, j'aimerai m'assurer qu'aucun filtre
automatique de ma feuille n'est activé (donc qu'on peut voir l'ensemble des
lignes!)
Je pensais que la commande Hidden suffirait mais ce n'est apparement pas le
cas.
With Worksheets("Feuil1") If .AutoFilterMode Then For i = 1 To 3 If .AutoFilter.Filters(i).On Then Range("A1").AutoFilter Field:=i Next End If End With
isabelle
Bonjour à tous, Avant de lancer une de mes macros, j'aimerai m'assurer qu'aucun filtre automatique de ma feuille n'est activé (donc qu'on peut voir l'ensemble des lignes!) Je pensais que la commande Hidden suffirait mais ce n'est apparement pas le cas.
Savez vous comment faire?
Merci d'avance pour votre aide
Aurélie
michdenis
Bonjour Aurelie,
Cette procédure va te dire si au moins une des colonnes de la plage de cellules est filtré et si oui, elle va enlever le filtre.
La présence des boutons du filtre n'empêche pas la lancée d'un nouveau filtre si un filtre particulier n'est pas en application.
'--------------------------------- Sub test1()
On Error Resume Next
With Worksheets("Feuil1") If Not .AutoFilter.Range Is Nothing Then For Each c In .AutoFilter.Range If .AutoFilter.Filters(c.Column).On = True Then MsgBox "Un filtre est appliquée sur " & _ "la colonne : " & c.Column c.AutoFilter Exit Sub End If Next End If End With
End Sub '---------------------------------
Salutations!
"aurelie" a écrit dans le message de news: Bonjour à tous, Avant de lancer une de mes macros, j'aimerai m'assurer qu'aucun filtre automatique de ma feuille n'est activé (donc qu'on peut voir l'ensemble des lignes!) Je pensais que la commande Hidden suffirait mais ce n'est apparement pas le cas.
Savez vous comment faire?
Merci d'avance pour votre aide
Aurélie
Bonjour Aurelie,
Cette procédure va te dire si au moins une des colonnes de la plage de cellules est filtré et si oui, elle va enlever le filtre.
La présence des boutons du filtre n'empêche pas la lancée d'un nouveau filtre si un filtre particulier n'est pas en application.
'---------------------------------
Sub test1()
On Error Resume Next
With Worksheets("Feuil1")
If Not .AutoFilter.Range Is Nothing Then
For Each c In .AutoFilter.Range
If .AutoFilter.Filters(c.Column).On = True Then
MsgBox "Un filtre est appliquée sur " & _
"la colonne : " & c.Column
c.AutoFilter
Exit Sub
End If
Next
End If
End With
End Sub
'---------------------------------
Salutations!
"aurelie" <aurelie@discussions.microsoft.com> a écrit dans le message de news: 29F36D45-D1DF-4C70-8727-2E7C5AA8A311@microsoft.com...
Bonjour à tous,
Avant de lancer une de mes macros, j'aimerai m'assurer qu'aucun filtre
automatique de ma feuille n'est activé (donc qu'on peut voir l'ensemble des
lignes!)
Je pensais que la commande Hidden suffirait mais ce n'est apparement pas le
cas.
Cette procédure va te dire si au moins une des colonnes de la plage de cellules est filtré et si oui, elle va enlever le filtre.
La présence des boutons du filtre n'empêche pas la lancée d'un nouveau filtre si un filtre particulier n'est pas en application.
'--------------------------------- Sub test1()
On Error Resume Next
With Worksheets("Feuil1") If Not .AutoFilter.Range Is Nothing Then For Each c In .AutoFilter.Range If .AutoFilter.Filters(c.Column).On = True Then MsgBox "Un filtre est appliquée sur " & _ "la colonne : " & c.Column c.AutoFilter Exit Sub End If Next End If End With
End Sub '---------------------------------
Salutations!
"aurelie" a écrit dans le message de news: Bonjour à tous, Avant de lancer une de mes macros, j'aimerai m'assurer qu'aucun filtre automatique de ma feuille n'est activé (donc qu'on peut voir l'ensemble des lignes!) Je pensais que la commande Hidden suffirait mais ce n'est apparement pas le cas.
Savez vous comment faire?
Merci d'avance pour votre aide
Aurélie
aurelie
Merci bcp Isabelle! c'est tout à fait ce que je souhaitais! Bonne journée
bonjour Aurélie,
With Worksheets("Feuil1") If .AutoFilterMode Then For i = 1 To 3 If .AutoFilter.Filters(i).On Then Range("A1").AutoFilter Field:=i Next End If End With
isabelle
Bonjour à tous, Avant de lancer une de mes macros, j'aimerai m'assurer qu'aucun filtre automatique de ma feuille n'est activé (donc qu'on peut voir l'ensemble des lignes!) Je pensais que la commande Hidden suffirait mais ce n'est apparement pas le cas.
Savez vous comment faire?
Merci d'avance pour votre aide
Aurélie
Merci bcp Isabelle!
c'est tout à fait ce que je souhaitais!
Bonne journée
bonjour Aurélie,
With Worksheets("Feuil1")
If .AutoFilterMode Then
For i = 1 To 3
If .AutoFilter.Filters(i).On Then Range("A1").AutoFilter Field:=i
Next
End If
End With
isabelle
Bonjour à tous,
Avant de lancer une de mes macros, j'aimerai m'assurer qu'aucun filtre
automatique de ma feuille n'est activé (donc qu'on peut voir l'ensemble des
lignes!)
Je pensais que la commande Hidden suffirait mais ce n'est apparement pas le
cas.
Merci bcp Isabelle! c'est tout à fait ce que je souhaitais! Bonne journée
bonjour Aurélie,
With Worksheets("Feuil1") If .AutoFilterMode Then For i = 1 To 3 If .AutoFilter.Filters(i).On Then Range("A1").AutoFilter Field:=i Next End If End With
isabelle
Bonjour à tous, Avant de lancer une de mes macros, j'aimerai m'assurer qu'aucun filtre automatique de ma feuille n'est activé (donc qu'on peut voir l'ensemble des lignes!) Je pensais que la commande Hidden suffirait mais ce n'est apparement pas le cas.
