Annuler un tri Manuel

[Fouding]

Bonjour à tous et meilleurs voeux 2014.

J'ai besoin de votre aide pour réaliser cette petite macro :

1) j'ai appliquer l'option "Filtrer" (ou "Ctrl+Maj+L") sur les colonnes de mon tableau
2) ensuite, manuellement, j'effectue divers tris sur divers colonnes

Comment annuler ces tris pour revenir à ma feuille d'origine, en conservant "l'option filtrer" ?

La solution "ActiveSheet.AutoFilterMode = False" ne me convient pas, puisqu'elle supprime l'option "Filtrer".

Merci d'avance pour votre coup de main.

Bonne fin de journée

 

[Fouding]

Re : Annuler un tri Manuel

Je viens de trouver ...

ActiveSheet.ShowAllData

Bonne soirée !

 

[Jiheme]

Re : Annuler un tri Manuel

Bonjour Fouding, le Forum

Voila ce que j'utilise (grâce aux membres de ce forum)

Application.ScreenUpdating = False
Dim col As Integer
For col = 1 To 33 'nombre de colonnes _ "d_filtrer"
Selection.AutoFilter Field:=col
Next
Application.ScreenUpdating = True
Call ProtegeFeuilles
End Sub

A+

 

[Fouding]

Re : Annuler un tri Manuel

Impecc. Merci à tous