Restriction macro

[between]

Bon, je ne vais pas trop vous parlez de ma macro, parce qu'elle est bien ridicule et fais n’importe comment. Mais le problème est que j'ai une macro donc pour faire tout un bordel, et une autre pour le défaire, et si je lance 2 fois la même macro d’affiler, tout est cassé.
Est il possible de verrouiller une macro ?

Il faudrait que macro1, si c'est la dernière macro à être lancé, ne peu pas être relancé sans que macro2 soit lancé avant.
Ces macros sont rattachés à des boutons, je ne pense pas que cela change grand chose mais bon, ce n’est pas moi qui saurais

Merci pour l'aide.

 

[Creepy]

Hello,

Le mieux serait de mettre un exemple en PJ pour qu'on puisse t'aider.

On pourrait aussi peut être arrangé ta macro.

Mais pour repondre vaguement.

A la fin de ta macro1 tu fais:

CommandButton1.Enabled = False ' Desactive le bouton 1
CommandButton2.Enabled = True ' Active le bouton 2

et à la fin de ta macro 2 :

CommandButton1.Enabled = True' Active le bouton 1
CommandButton2.Enabled = False ' Désactive le bouton 2

Enfin à l'ouverture de ton fichier à toi de définir en uqel position tu veux démarrer :

dans : Private Sub Workbook_Open()

Tu mets l'un des deux texte si dessous. L'ideal etant de faire un test sur ce qu'est sensé faire ta macro 1 ou 2 pour définir 'l'état' dans lequel se trouve ton fichier pour faire ou defaire.

++

Creepy

 

[Riddick]

Bonjour between

En attendant une reponse peut etre meilleur je te propose de faire un truc:

Declare une variable de type boolean public en dehors des Sub

Public variable as boolean

dans ta macro 1

sub
If variable=false then
ton code
variable=true
end if
end sub

dans ta macro 2

sub
ton code
variable = false
end sub

 

[Riddick]

Bnjour Creepy

Désolé je t'avais pas vu
Ta solution et meme meilleure...
et encore un train de retard decidemment aujourd'hui....
Tchou......tchou.....

 

[between]

Bon, il bug sur CommandButton1.Enabled donc va falloir que j'envoie le fichier et biensur j'ai pas winzip ici (comme pas mal de gens le savent maintenant
Donc des que je rentre chez moi, jvous passe ça.

 

[Creepy]

RE all, Riddick, Between,

En faites commandbutton1 est le nom du bouton.

C'est le nom par défaut peut être ne s'appelle t-il pas comme ca dans ton application !! ?? !!!

En faites la commande est :

NomDeTonBouton.enabled = True ou False

++

Creepy

 

[between]

merci bcp, cest ce que je me demandais ^^

 

[between]

Meme lorsque je fais dans un nouveau documents avec les bouton par defaut

CommandButton1.Enabled = True' Active le bouton 1
CommandButton2.Enabled = False ' Désactive le bouton 2

ne marche pas : /

ya bug sur le Commandbutton

 

[Creepy]

Re all,

Voici en PJ un exemple !

Comme d'hab change le .ZIP en .XLS !

Faudrait voir à demander à ton bosse un peu de sous pour t'installer Winzip !

PS : J'ai mis devant les commandbutton un : Feuil1. pour lui indiquer que les bouttons se trouvent sur la feuille 1.

++

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

 

[between]

a nan mais dis toi que je l'ai télécharger winzip : )

mais bon, faut droit d'administrateur pour l'executer, et en temps que stagiaire, on me repond 'désolé j'ai pas le temps, je verais sa plustard' mais bon,moi voila dans de beaux draps :x

techniquement je devrais pourvoir ouvrir le .zip avec le 'click droit ---> ouvrir avec ---> dossiers compressé'.

Et puis merci mille fois pour l'explication du 'feuil1' devant.
Je me demandais aussi comment il arriverait à differencier le bouton Retour de la feuil2 à celle de la feuil4 :whistle: