Bonjour à tous,


Je souhaiterais trouver une astuce pour empêcher l'utilisateur de fermer et donc d'enregistrer son travail s'il ne "défiltre" pas une certaine colonne.
En passant par une Msgbox lui demandant de le faire, et que s'il répond NON son travail ne sera pas sauvegardé et que les modifications seront perdues.

S'il répond NON : Message = "Le classeur va être fermé, votre travail ne sera pas sauvegardé et les modifications seront perdues."

S'il répond OUI: Vérifier qu'il à bien défiltré et sauvegarder s'il le souhaite.

J'ai réussi à afficher des msgbox mais je n'arrive pas à mettre la condition qui contrôle si le filtre à bien été enlevé.

Ps: J'ai également figer des cellules et je souhaiterais interdire toutes modifications au suppressions de ce réglage. (oui j'ai des collègues indisciplinés ^^)

Merci de l'aide que vous pourrez m'apporter

Cordialement,

Bonsoir,

Tu nous dit avoir déjà travaillé sur un fichier.
Aussi, pourrais-tu joindre ton fichier zippé (80 ko maximum), exempt de données confidentielles et épuré à l'essentiel du présent problème STP ?
Ca serait sans aucun doute plus simple pour nous de te répondre ainsi.

Cordialement

PS : Vous avez vu, je fais du mDF...

Bonjour Ghandra , spitnolan08, le Forum,
Citation :Je n'aurais pas dit mieux lol !

Cordialement,

Re,

Une piste toutefois pour notre ami Ghandra :
...teste si le 3ème filtre (3ème colonne ?) du filtre automatique de la feuille Feuil1 est actif ou non.

Cordialement,

Merci pour l'intérêt que vous portez à mon cas ^^

En fait ce que j'ai fait n'a rien de terrible, j'ai juste mis une messagebox à l'ouverture du classeur demandant de ne pas fractionner et defiger les cellules. Et une messagebox en "beforesave" demandant de veiller a défiltrer avant de sauvegarder & quitter. Visiblement insuffisant car les utilisateur clic sur OK et je me demande même s'ils prennent la peine de lire le message ^^.


Citation : est un bon début, c'est effectivement ce que je veux vérifier, j'ai essayé de le mettre dans le petit exemple joint, mais cela n'empèche pas de sauvegarder et quitter ^^

Encore merci pour votre aide ;)

Bonjour Ghandra, spitnolan08, le Forum,

L'évènement Workbook_BeforeSave() possède un argument Cancel (de type Boolean). Tu devrais donc pouvoir faire comme ceci :

A noter que tu peux supprimer du même coup l'utilisation de l'évènement Workbook_BeforeClose() qui ne devrait plus servir dans ce cas.
Note également que ce code ne teste que le filtre en première colonne de la seule feuille "Janvier".

Par ailleurs, plutot que d'afficher un message et empêcher la sauvegarde, tu pourrais aussi imposer la désactivation du filtre par macro avant sauvegarde (bien sûr, cette dernière méthode risque fort de ne pas être très appréciée des utilisateurs lorsqu'ils sauvegardent le classeur en séance de travail sans le fermer pour autant).

Cordialement,

Merci pour ce petit code qui devrait faire l'affaire et discipliner un peu les collègues

En revanche je n'ai pas réussi à le faire fonctionner sur toutes les feuilles !

J'ai mis
Citation :

mais ça ne fonctionne pas :-L

Bonsoir Ghandra,

Une façon de faire :

Cordialement,

Super !!!

Merci beaucoup myDearFriend!

Cela répond parfaitement à mes besoins

Je suis une nouvelle fois impressionné par la réactivité et la pertinence des réponses.

J'ai juste rajouté un " qui manquait devant --> les filtres pour le msgbox

Je mets le sujet en résolu

Bonjour Ghandra, le Forum,

Tu as tout à fait raison pour le guillemet manquant dans le code présenté, je corrige le message.

Merci de ton retour et pour le résolu

Cordialement,