Discussion :

[Lechette]

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?

[ouskel'n'or]

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+

[Lechette]

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

[tomy7]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Lechette]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[tomy7]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

pour ton sub impression

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Lechette]

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?

[tomy7]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
commandbutton1.enabled = false
ou par exemple
Archiver.enabled = false

je ne sais pas comment tu l a appele.

[Lechette]

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

[tomy7]

est ce possible d avoir ton fichier?

[Lechette]

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

[fring]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[fring]

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

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.

[ouskel'n'or]

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

[tomy7]

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

[Lechette]

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