Autofilter

Le
Denys
Bonjour,

Je souhaiterais, qu'à la fermeture d'un fichier que si "l'autofilter"
est présent, qu'il se désactive, mais que si l'utilisateur ne l'a pas
mis, alors qu'on ferme le dossier.

Présentement, je fais:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Selection.AutoFilter
End Sub

Mais si l'autofilter n'était pas coché, alors il le devient.je
voudrais éviter cela. Alors en gros, à la fermeture on devrait lire:
si'l'autofilter est coché alors enlèves-le sinon ferme l'application.

Auriez-vous une idée?

Merci

Denys
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #24689272
Bonjour,


Dans le thisWorkbook de ton classeur, copie cette procédure :

Attention, si une modification est apportée au fichier, tu auras
une requête de la part d'Excel demandant à l'usager d'enregistrer ou
non les modifications.

Si tu désires, tu peux ajouter la ligne de code :
ThisWorkbook.Saved = true > Excel fermera sans rien demander

Ou

ThisWorkbook.Save -> le classeur sera enregistré.

Ou
Tu peux laisser l'usager décider!

'--------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

'Feuil1 est la propriété "Name" de l'objet feuille
'visible seulement en VBA et non le nom de l'onglet de la feuille
With Feuil1 'Nom Feuille à adapter
If .AutoFilterMode Then
.Range("_FilterDataBase").AutoFilter
'ThisWorkbook.Saved = true
'OU
'ThisWorkbook.Save
End If
End With

End Sub
'--------------------------------




MichD
---------------------------------------------------------------
"Denys" a écrit dans le message de groupe de discussion :


Bonjour,

Je souhaiterais, qu'à la fermeture d'un fichier que si "l'autofilter"
est présent, qu'il se désactive, mais que si l'utilisateur ne l'a pas
mis, alors qu'on ferme le dossier.

Présentement, je fais:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Selection.AutoFilter
End Sub

Mais si l'autofilter n'était pas coché, alors il le devient....je
voudrais éviter cela. Alors en gros, à la fermeture on devrait lire:
si'l'autofilter est coché alors enlèves-le sinon ferme l'application.

Auriez-vous une idée?

Merci

Denys
Denys
Le #24689312
Bonjour Denis,

Merci infiniment, c'est parfait....

Bonne journée

Denys
Publicité
Poster une réponse
Anonyme