arret macro

[michel33]

bonjour
dans un module j'ai 2 macros a declenchement par boutons:
Sub filtre()
' filtre Macro
Range('C5:G120').AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range('d1:g2')
End Sub

Sub PAS_FILTRE()
' PAS_FILTRE Macro
ActiveSheet.ShowAllData
End Sub

la deuxieme macro arrete le filtre elabore
probleme: si je clique une autre fois sur le bouton'PAS FILTRE' j'ai bien entendu
un message d'erreur.
comment faire pour que cette macro ne s'execute qu'une fois?
merci pour la reponse

michel33

 

[ERIC S]

Bonjour

des pistes à explorer

1/ rendre les boutons visibles/invisibles quand il le faut, à la fin de la macro filtre mettre

'bouton pas_filtre visible
commandbuttonx.visible = true
'bouton filtre non visible
commandbuttony.visible=false

x et y sont à définir selon les numéros de tes boutons

2/ essayer

Sub PAS_FILTRE()
' PAS_FILTRE Macro
on error goto fin
ActiveSheet.ShowAllData
fin:
End Sub

j'aime moins la gestion des erreurs mais cela doit marcher

3/ regarder si les filtres sont activés en début de macro et si non, sortir

A+

 

[Robert]

Salut Michel, Eric, le Forum,

Je rejoins Éric dans son idée de bouton et te propose un bouton bascule (ToggleButton1) avec ce code ci-dessous :

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
' filtre Macro
Range('C5:G120').AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range('d1:g2')
ToggleButton1.Caption = 'Pas Filtre'
ToggleButton1.Accelerator = 'P'
Else
' PAS_FILTRE Macro
ActiveSheet.ShowAllData
ToggleButton1.Caption = 'Filtre'
ToggleButton1.Accelerator = 'F'
End If
End Sub

Message édité par: Robert, à: 06/05/2005 13:46

 

[michel33]

bonjour
un grand merci à eric et robert
robert: ta solution par gestion d'erreur fonctionne a merveille
eric: ta solution etait pas mal mais lebouton filtre doit pouvoir
servir plusieurs fois de suite
a charge de revanche
michel33

 

[ERIC S]

re

juste pour info

tu peux ne rendre invisible que le pas_filtre (à la fin de son code) et le réactiver à la fin du code filtre

La solution de Robert est mieux je pense (selon tes besoins)

 

[Robert]

Re , le fil, le forum,

Michel tu t'es emmêlé les pinceaux. Rendons à César ce qui appartient à Éric... La gestion d'erreur (qui marche) c'est Éric, Le togglebutton (qui ne marche pas) c'est Robert.