Macro efface données

Bonjour Le Pingou,

Je viens de trouver le mot de passe. En fait chez moi ça devrais commencer par "C" majuscule mais chez vous vous aviez utiliser "C" minuscule. Merci encore pour tout
Mes respects
Bonisam

Bonjour Le Pingou,

J'imagine le sacrifice que vous aviez fait pour me rendre service. Que le tout puissant vous le rende au centuple. Les mots me manquent pour vous témoigné ma gratitude. je vous dis mille fois merci pour tout.
Par ailleurs j'ai un petit problème parce que je voulais tenté de copier ce code pour coller dans mon fichier original mais je n'y arrive pas parce qu'il y'a un mot de passe. je tente mon mot de passe que j'avais mis qui est Carole1989 mais ça passe pas. Aviez vous changé le mot de passe? est ce possible d'avoir le nouveau?

Mes respects
Bonisam

Bonjour Bonisam,,
Eh bien avec toutes vos protections, j'ai fini par trouver ou le chat à mal à la patte.
Ce sera la dernière fois que je prends du temps sur un fichier avec des protections.
Votre fichier qui fonctionne maintenant : https://www.cjoint.com/?3IjwO2iaYav

Bonjour,
Toutes les plages [A10 :G20] sont vides.

Bonjour,

A ce niveau ça me pose pas de problème. Est ce qu'après avoir lancé l'execution de la macro reinitialisation donnée vous aviez vérifié que les données de toutes les feuilles sont éffectivement éffacée?

Mes respects
Bonisam

Bonjour,
Eh bien oui maintenant que vous le dite, effectivement le bouton [FERMER] provoque l'affichage d'un message : Impossible d'ouvrir le fichier spécifié.

Bonjour,

tout semble correcte chez vous? vraiment chez je mois je deviens fou.
Espoir perdu de solution si le diagnostic de ma maladie n'a rien révélé.
Donc si vous lancé l'execution de la macro aucun message ne s'affiche?

Mes respects
Bonisam

Bonjour,
Je n'ai pas trouvé de problème, tout semble correct

Bonjour,
Moi encore toujours des excuses!!!
Voici le mDp: Carole1989

Mes respects
Bonisam

Bonjour,
Alors là vous faite très fort en demandant de l'aide et vous mettez à disposition un fichier protéger par mot de passe.

Bonjour à tous,

Je m'adresse particulièrement à pijaku et Le Pingou. Tout d'abord je m'excuse parce que j'étais indisposé ce qui ma pas permis de suivre mes discussions c'est pourquoi ce silence mais maintenant je vais assez bien.

Je reviens toujours par rapport à la macro éfface donné.
En fait moi mon problème se trouve que:
- j'ai 12 feuilles dans mon classeur
- quand je lance l'execution de la macro ça m'affiche un message que les graphiques ou les feuilles sont protégé.
- maintenant si je part voir le resultat de l'execution, il se trouve que les données de la première feuille sont éffacées mais les données des autres feuilles non. Donc je comprend pas pourquoi.
Une remarque importante : mes feuilles sont masqués j'epère que c'est pas ça aussi?
Trouvez en attache mon fichier: https://www.cjoint.com/?AIjlo6wEZo6

Vraiment je vous prie de m'aider
Mes respects
Bonisam

Bonjour Bonisam,
Petite réflexion pour débuter la semaine :
Pourquoi vouloir tout protéger par mot de passe alors qu'il est possible d'enter des données erronées dans la plage [A10 :G20] de chaque feuille mensuelle sans passer par votre code !

Bonjour à vous,
Merci le pingou j'étais juste de passage mais je vais revoir ça la semaine prochaine.
Au pijaku je vous souhaite un très bon week end. et à nous revoir la semaine prochaine.

Merci pour tout
Mes respects
Bonisam

Bonjour,
J'ai réalisé un test selon vos informations en protégeant les feuilles et il se trouve que l'excellente procédure de pijaku (salutations) fonctionne correctement et sans faute.
Alors votre problème est ailleurs !

Bonjour,

Si j'ai bien compris je dois indiqué dans la procedure où se trouve la protection dans la feuille et le mot de passe?

Sinon c'est toute la feuille qui est protégée sauf les cellules de la plage indiquée. Maintenant comment vais-je indiqué ça dans la procedure?

Merci pour tout
Mes respects
Bonisam

Bonjour,
Vous indiquez exactement où se trouve les protections et de plus il faut le mot de passe s'il y en a un.

Bonjour,

Juste dire merci à tous pour votre aide particulièrement Le Pingou, Pijaku et mistral 13200.

Je m'execuse aussi de vous avoir trop embêter pour mon problème. Et surtout je m'excuse d'être aussi cancre en VBA.

Sinon finalement après la dernière modification indiquée par le Pingou ça marche sauf qu'il y'a un petite problème. En effet, il y'a des cellules protégé dans ma feuilles bien sur qu'elles ne sont pas comprise dans la plage mais ça demande de les déprotégé sinon ça n'execute pas la macro.
Qaund ôte la protection de la feuille ça marche à defaut ça marche pas.

Si vous aviez une idée, une fois de plus je m'excuse de vous déranger.
Merci pour tout.
Mes respects
Bonisam

Bonjour,
Je pense que vous auriez quand même pu apporter la correction qui est mineur dans ce cas.
Déplacer le [End if] qui est juste devant le [Next] et le placer entre [Next] et [End With]
Nous ne sommes quand pas des machine à tout faire.

Bonjour,

En rapplaçant par 9 voila le message d'erreur que ça me donne :https://www.cjoint.com/?AHmosXL5aIw

Merci pour tout
Mes respects
Bonisam

Bonjour

Je test mais l'execution renvoie une erreure de compilation.

Merci pour tout
Mes respects
Bonisam