Bloquage d'un bouton executant une macro tant qu'une autre macro n'est pas executée

J'ai deux boutons, "imprimer" et "archiver".
Je souhaite que l'utilisateur ne puisse se servir d'"archiver" que si il s'est préalablement serbi de "imprimer"

Est-ce possible?

Tu ne dis pas où sont tes boutons mais sinon, tu mets leur propriété Enabled = False.
Précise l'emplacement de tes boutons (feuille de calculs ou Userform ?)
A+

mes boutons sont sur des feuilles de calcluls je ne sais pas utiliser les users forms

Dans la propriete du bouton archiver

enabled = false

et ds le sub de ton bouton imprimer
Private sub commandbutton1_click ()
tu mets a la fin de ta macro:

Code:

---

1 2	commandbutton(ici le numero du bouton archiver).enabled = true end sub

---

En fait, j'ai créé un bouton, et je lui ai associé une macro:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Impression()   Application.ScreenUpdating = False 'empeche la visualisation du déroulement de la macro qui suit   Range("m10:m150").SpecialCells(xlCellTypeBlanks).EntireRow.Delete   Application.ScreenUpdating = True 'rétablissement de la visualisation   Columns("a:p").PrintOut Copies:=1, Preview:=True, Collate:=True 'apercu avant l'impression   End Sub

---

Ca marche aussi si cen'est pas une private sub?

comme sa tu es sur que des que l on ouvre ton fichier, le bouton est verrouille

Code:

---

1 2 3

Private Sub Workbook_Open() commandbutton(ici le numero du bouton archiver).enabled = false End Sub

---

pour ton sub impression

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Impression()   Application.ScreenUpdating = False 'empeche la visualisation du déroulement de la macro qui suit   Range("m10:m150").SpecialCells(xlCellTypeBlanks).EntireRow.Delete   Application.ScreenUpdating = True 'rétablissement de la visualisation   Columns("a:p").PrintOut Copies:=1, Preview:=True, Collate:=True 'apercu avant l'impression   commandbutton(ici le numero du bouton archiver).enabled = true End Sub

---

Je me suis mal expliqué.
Comment je sais quel numéro de bouton mettre? Il s'agit de bouton que j'ai créé à la main, avec le bloc "formulaire" Je n'ai nulle part un numéro de bouton...
Dois je recommencer avec une autre méthode?

clic droit propriete => "Name"
par defaut quand tu crees un bouton c est CommandButton1

maintenant si tu as change le "name" tu mets ton nouveau "name" a la place dans ce code:

Code:

---

1 2 3

commandbutton1.enabled = false ou par exemple Archiver.enabled = false

---

je ne sais pas comment tu l a appele.

le problème c'est que j'ai créé mon bouton à partir de formulaire et non de boite à outil controle...

est ce possible d avoir ton fichier?

je ne peut pas l'envoyer par pièce jointe il est un peu trop gros...
Par mail c'est possible?

Bonjour tlm,

Lorsque tu clic sur ton bouton, en haut à gauche apparaît son nom (à la place de l'adresse d'une cellule)
Ensuite tu remplaces dans les codes de Tony "CommandButton" par

Code:

---

ActiveSheet.Shapes("Bouton 1").Visible = False

---

Visible = False pour masquer le bouton
Visible = True pour le réafficher

"Bouton 1" étant le nom de ton bouton

Donc à l'ouverture de ton fichier, le bouton Archivage sera ...Visible = False

En fin de code "Impression" le bouton Archivage sera.....Visible = True

si c est des shapes , on ne peut pas les verrouillees au lieu de les rendre invisible , FRING?

EDIT: C est tom pas tony... Lol

Citation:

---

Envoyé par tomy7

si c est des shapes , on ne peut pas les verrouillees au lieu de les rendre invisible , FRING?

EDIT: C est tom pas tony... Lol

---

sorry toMy :aie:

Non la propriété enabled ne fonctionne pas pour un Shapes. Cela est peut-être possible sous une autre syntaxe mais je ne la connais pas.

Les shapes n'ont pas les propriétés des boutons de la barre d'outils Contrôles
C'est pourquoi il est toujours recommandé d'utiliser les contrôles de cette boîte à outils.
Les outils de la barre d'outils "Formulaires" ont d'autres lacunes. Ils ne sont là que pour assurer la pérennité avec les anciennes versions de VBA. En cherchant un peu, l'aide en ligne en parle ;)

Pièce jointe 27878

j ai fais des petites modif alors renomme le et regarde

j ai change une lige qui buggait

range (" M10:M150").....

et j ai mis des command button a la place de shapes .

Si tu veux des shapes fais ce que te dit string


Bye

merci beaucoup je vais essayer de m'en sortir comme ca