XL 2013 Rendre une macro inutilisable après utilisation

[R.R.]

Bonjour à toutes et à tous,

Je cherche, sans trouver, le code VBA qui me permettrait de rendre inutilisable une macro, ou le bouton d'une macro, après que celle-ci ait fait son oeuvre. Je l'utilise pour la réalisation d'un test éliminatoire.

Concrètement, j'ai un feu tricolore. Quand je clique sur le bouton rouge, ma macro s'exécute : elle affiche une valeur et marque un message comme quoi le test est terminé. Mais si je re-clique sur la macro, elle s'exécute de nouveau, ce que je voudrais éviter, puisque le test est terminé.

J'ai essayé avec un Exit Sub à la fin de la macro, sans réussir. J'ai trouvé comment "détruire" la macro, mais ce n'est pas ce que je veux. Ainsi, je fais appelle à vous pour quelque chose qui doit pourtant être très simple.

Merci d'avance à ceux qui me fourniront la réponse

 

[JCGL]

Re : Rendre une macro inutilisable après utilisation

Bonjour à tous,

Peut-être en mettant un compteur ou la valeur 1 dans une cellule ?

Si la variable ou la cellule est égale à 1 alors Exit Sub

A+ à tous

 

[DoubleZero]

Re : Rendre une macro inutilisable après utilisation

Bonjour à toutes et à tous,

... Quand je clique sur le bouton rouge, ma macro s'exécute... Mais si je re-clique sur la macro, elle s'exécute de nouveau, ce que je voudrais éviter, puisque le test est terminé...

Autre possibilité : supprimer le bouton après traitement.

Double bise, JCGL ,

A bientôt

 

[James007]

Re : Rendre une macro inutilisable après utilisation

Bonjour à tous,

Comme le dit JCGL ... avec un simple compteur ... tu pourras éviter que la macro soit relancée ...

Mais si tu veux vraiment "détruire" ta macro ... il te faudra passer par VBE ... avec une référence à la librairie :

Microsoft Visual Basic Extensibilty 5.3

A +

 

[DoubleZero]

Re : Rendre une macro inutilisable après utilisation

Re-bonjour,

C'est un grand plaisir de te lire à nouveau, James007

A bientôt

 

[DoubleZero]

Re : Rendre une macro inutilisable après utilisation

Re-bonjour,

Une autre idée : rendre le bouton inactif.

Option Explicit
Sub Macro_1_fois()
' code souhaité...
    [a1] = "toto"
    ActiveSheet.Shapes("Bouton_rouge").OnAction = ""    ' nom du bouton adapter
End Sub

A bientôt

 

[mapomme]

Re : Rendre une macro inutilisable après utilisation

Bonjour à tous ,

Un fichier pour illustrer. Une méthode utilisant une forme et une autre utilisant un CommandButton (ActiveX). A chaque ouverture du fichier, on ré-active les codes. Si on ne le désire pas, supprimer le code de ThisWorkbook.

 

[Si...]

Re : Rendre une macro inutilisable après utilisation

salut

Avec le fichier de mapomme : ni vu, ni connu !

 

[DoubleZero]

Re : Rendre une macro inutilisable après utilisation

Re-bonjour, bonjour, mapomme , Si,

Une nouvelle suggestion...

A bientôt

 

[R.R.]

Re : Rendre une macro inutilisable après utilisation

Hello tout le monde

Merci pour vos réponses !!! J'ai eu quelques difficultés à retranscrire vos solutions dans mon fichier, mais ça y est !!! J'y suis Encore un immense merci à vous tous. J'ai bien compris les démarches, mais j'ai quand même une question : quelle est la signification de "Nop" ???

Au plaisir de vous reposer quelques problèmes un de ces jours pour vous relire

R.R.

 

[R.R.]

Re : Rendre une macro inutilisable après utilisation

Euh , en fait j'ai été un peu vite.
Toutes mes macros sont dans "Module 1", notamment "ReInit" et "Nop". J'ai placé le bout de code concernant la réinitialisation concernant ce module dans l'objet "Thisworkbook". Mais visiblement, l'appel de la macro ReInit ne se fait pas comme il faudrait. J'ai écrit la chose suivante :

Option Explicit
Private Sub Workbook_Open()
Call Module1.ReInit
End Sub

Mais le fichier ne se réinitialise pas ...

 

[mapomme]

Re : Rendre une macro inutilisable après utilisation

Bonsoir R.R. ,

[...] j'ai quand même une question : quelle est la signification de "Nop" ? [...]

NOP = "No operation" -> une procédure qui ne fait rien...

[...] Euh , en fait j'ai été un peu vite. [...]

En effet, vous avez oublié de joindre le fichier

 

[R.R.]

Re : Rendre une macro inutilisable après utilisation

Oui
C'est beaucoup mieux avec ...

 

[JCGL]

Re : Rendre une macro inutilisable après utilisation

Bonjour à tous,

Il me semble que tu tournes sous Mac.
La procédure WorkBook_Open doit être placée dans le module ThisWorkBook :



A+ à tous

 

[R.R.]

Re : Rendre une macro inutilisable après utilisation

Merci mapomme et JCGL. J'ai fais et refais. Et quand j'ai refais, ça a marché

Mission remplie !