Positionner un filtre sans critère sur une plage
Bonjour à tous,
Voici mon problème :
J'ai une feuille sur laquelle il y a une ligne où on insert les diverses information relatives à une facture.
Lorsque l'on clique sur "insérer", la macro copie la ligne et la colle sur la première ligne vide à la fin du tableau du dessous.
Ce tableau contient un filtre par colonne.
Mon problème est que si un filtre est appliqué et que la macro "insérer" est lance, elle colle par dessus des données qui sont masquées par le filtre.
J'ai pensé à ShowAllData pour palier à ce problème mais si aucun filtre n'est appliqué, cela créer une erreur. Pour moi pas de soucis mais comme je ne suis pas la seule à utiliser ce fichier c'est un problème pour les autres.
J'ai donc mis en place la macro suivante :
Sub Test()
Sheets("Invoices 2014").Activate
If ActiveSheet.AutoFilterMode Then
isOn = "On"
Else
isOn = "Off"
End If
MsgBox "AutoFilterMode is " & isOn
ActiveSheet.AutoFilterMode = False
End Sub
Mais le filtre est efface, ce n'est donc pas la solution.
Est-ce que quelqu'un aurait une idée ?
Le but étant de conserver le filtre mais de supprimer le tri s'il y en a un en place.
Merci d'avance
Bonsoir,
Essaie :
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0Magnifique, merci infiniment !!!