Afficher tout après une filtre...

E

effeZERO

Guest

• 9 Juin 2004

• #2

Bonjour Lapou, le forum,
Essaye ceci :

Sub Macro1()
Selection.AutoFilter
End Sub

Bonne soirée.
Franck

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 9 Juin 2004

• #3

Re Bonjour Lapou, Bonjour EffetZéro, le Forum

Je conseillerai plutôt ceci :

Sub AutoFilterShowAll()
With Sheets("TheFeuille")
If .FilterMode = True Then .ShowAllData
End With
End Sub

Car ce que tu proposes Franck, n'affiche pas toutes les données mais supprime carrément l'AutoFilter si il est ON et le met si il est OFF...

Bonne Soirée

 

Vote positif 0 Vote négatif

E

effeZERO

Guest

• 9 Juin 2004

• #4

Re-bonsoir à tous les deux, le forum,
Merci pour l'astuce @+Thierry, j'utilisais toujours la même méthode mais dorénavant je procéderais comme tu le dis ! Ca va m'enlever quelques épines du pied !!!
Encore merci et bonne soirée !
Franck

 

Vote positif 0 Vote négatif

L

lapou

Guest

• 10 Juin 2004

• #5

Bonjour,

Juste une ultime question en ce jolie jeudi qui arrive ;-) : où dois-je mettre cette macro ? car je n'ai pas encore ttes ces notions ;-)

Merci
Lapou...

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 10 Juin 2004

• #6

Salut Lapou, Franck, le Forum

Et bien Lapou, c'est une simple Macro que tu peux mettre dans un Module Standard... Ou alors dans le Private Module de Feuille...

Il n'y a rien de Sorcier, c'est pareil que si tu enregistres une macro, tu dessines ensuite un Bouton et tu y affectes cette macro.

Je t'ai fait une démo ci-jointes car il y a deux style de Boutons...
Rudiments-Basics =>Buttons : "Controls" or "Forms"...



Bon Aprèm
@+Thierry

 

Pièces jointes

• Rudiments-Basic-Button-Control-or-Form.zip

  21.9 KB · Affichages: 86

Vote positif 0 Vote négatif

L

lapou

Guest

• 10 Juin 2004

• #7

Enormes merci pour toi Thierry ;-)

Bonne journée
Tchao

 

Vote positif 0 Vote négatif