Qui peut me dire pourquoi ca marche pas?

[chrichri]

Bonjour à tous et toutes,
Qui pourrais me dire pourquoi après l'exécution des macros mes feuilles ne sont plus protégées en ecriture, c'est vraiment important pour moi mais je ne comprend pas....Il faudrait que toutes mes feuilles le soient.
Merci et bon week-end.
chrichri [file name=situationMagasinOK_20060513074438.zip size=37040]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/situationMagasinOK_20060513074438.zip[/file]

 

[PascalXLD]

Bonjour

Dans ta macro PlacementMouleMachine

Tu appelles bien Protection mais vu que dans ta macro tu as des exit sub et bien tu ne passe pas par cet appel de la macro qui reprotège tes feuilles.

Sinon point de détail : il est plus facil de lire avec des macros incrémentees

 

[chrichri]

Bonjour Pascal76,
Ok mais moi je ne comprend pas grand chose au VBA. Tu pourrais pas modifier et me remettre le fichier avec tes modifs.
Merci beaucoup.
Chrichri

 

[Marc_du_78]

Bonjour chrichri, Pascal,
Avant tes Exit Sub, place Call Protection
Bon Week end

 

[chrichri]

Bonjour Marc,
Merci, j'ai essayer mais cela me marque une erreur de compilation.
C'est peut-être moi qui comprend pas bien ce que tu dis mais je crois que c'est assez clair.
@+

 

[Bricofire]

Bonjour toutle monde,

ChriChri, ce qu'il veulent dire, à raison, c'est que quand tu sors d'une procédure avec un exit sub ( il y en a plein), l'évènement se produit avant le passage du code sur ton call protection (logique), du coup celui-ci n'est pas appellé et donc pas de protection
Donc il te faut scanner tous tes exit sub pour en rajouter par exemple :

If Outil = '' Or Outil = 'Numéro' Then: ActiveSheet.Range('A11').Select: Call Protection: Exit Sub
ici avant le exit sub,il faut en mettre un.

Et donc transformer comme ceci : (des lignes prises au hasard )

If MyValue = '' Then Call Protection: Exit Sub

If Outil = '' Or Outil = 'Numéro' Then: ActiveSheet.Range('A11').Select: Call Protection: Exit Sub

Sinon ton pb est surement un pb de syntaxe ( : oublié etc..)

Dans ta procédure de protection, 'I'n'est pas déclaré, si tu as un option explicit (recommandé) Boum !

Bon WE,

Brico

 

[chrichri]

RE,
Bien voilà j'ai essayer désespérement vos solutions mais j'ai toujours des erreurs quand les macros s'exécutent. Si vous avez la gentillesse de modifier les macros pour pouvoir tester....
Merci à tous.
Chrichri

 

[Bricofire]

re à tous,

Chrichri, je pense qu'il serait plus efficace que tu nous joigne ton nouveau classeur avec tes modifs, on verra plus facilement le pb

bon courage,

Brico

 

[Marc_du_78]

Bonjour chrichri, Bricofire,
Je te renvoie ton fichier avec quelques modifications, mais mes connaissances en vba étant très limitées j'ai juste mis ce que je pensais pouvoir corriger avec question dans le code.
Bon Week end.

 

[chrichri]

Bonjour,
Ben voilà comme vous me le demander, je vous joint le fichier avec les changements fais, mais vous allez voir il y a une erreur de compilation????????
Merci à tous et BONNE FÊTE A TOUTES LES MAMAN DU FORUM (De Belgique)
Chrichri [file name=situationMagasinOK_20060513153053.zip size=36359]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/situationMagasinOK_20060513153053.zip[/file]

Message édité par: chrichri, à: 13/05/2006 17:19

 

[Bricofire]

Re tout le monde,

Arf ! Chrichri, désespérément tu disais, erreur de compilation....
Ben oui, tu as oublié de mettre le message en entier, erreur de compilation : Sub ou fonction non définie !!!
Normal ta procédure 'Sub Protection' a carrément disparue ???? donc ça pose une petit pb au VBA...
Dans la fenêtre du VBA, tu as 2 onglets en haut recherche et général, en cliquant sur la flèche de général, tu as le liste des procédures du module...
Donc remet ton module en place et ça ira mieux....

Sinon la fête des mères est le 28 mai (en France)

Bon WE,

Brico

 

[Charly2]

Bonsoir Chrichri, Pascal, Marc et Brico

Une proposition avec les modifs effectuées dans le fichier joint (à tester) :

[file name=chrichri_situationMagasin.zip size=35514]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/chrichri_situationMagasin.zip[/file]

Tiens nous au courant.

A+

 

[Bricofire]

Bonsoir tout le monde,

Charly2, sur ce fil, tu n'aurai pas récupérer une nouvelle barre d'outils...nommée Outillage dans ton excel ? :whistle:

Bonne nuit,

Brico

 

[Charly2]

Bonjour tout le monde,
Salut Brico,

Eh ben si !!! :woohoo: :woohoo:

Bon, je viens de l'enlever car j'en ai plus besoin, je pense

Bon dimanche
A+

 

[chrichri]

Bonsoir Charly2,
Merci de ton dévouement car moi je n'y comprend plus rien, mais le fichier que je viens de tester me donne une erreur 'ligne 53'.
C'est 'cbernardt' qui avait fait toutes la procédure mais il ne vient plus sur le forum et j'étais sûr de trouver une personne qui aurais pu m'aider car je me serre de ce fichier tout les jours.
Merci à tous et toutes qui avez pris de votre temp. IL faudra que je me serves du fichier comme cela pour l'instant. VOUS êtes tous SUPER sympa.
@+ chrichri