boite de dialogue

[Jean Marc]

Rebonjour le forum

je me permets un nouveau post puisque rien a voir avec le précédent

je voudrais améliorer ce msgbox :

'Lancer l'édition
edition = MsgBox('Lancer l'impression de la saison ?', vbYesNo + vbQuestion, 'IMPRESSION')
If edition = 7 Then Call Menu

par quelque chose du genre :

que voulez vous imprimer ?
tout ? si oui alors

Sheets('Synt').PrintOut
Sheets(WS.Name).PrintOut
Sheets('Pagegarde').PrintOut

ou au choix : Synt / WS.Name/ Pagegarde avec boite a cocher

si synt et WS.Name alors Sheets('Synt').PrintOut
Sheets(WS.Name).PrintOut

si Synt et page de garde alors Sheets('Synt').PrintOut
Sheets('Pagegarde').PrintOut

si WS.name et pagegarde alors Sheets(WS.Name).PrintOut
Sheets('Pagegarde').PrintOut

le problème c que ce genre de chose je n'ai jamais fait et surtout comment faire !!!!

j'espère avoir été suffisamment clair

je vous remercie

JM

 

[Eric C]

Bonjour le forum
Bonjour Jean Marc

Trouvé dans ma boîboîte cette superbe démo (trop fainéant et manque de temps pour le faire moi-même ....)
Tu remercieras l'auteur (Propriétés du fichier) qui a réalisé ce que tu demandes et bien plus [file name=Imprimer.zip size=21438]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Imprimer.zip[/file]

 

[Jean Marc]

re le forum, bonjour Eric C

ouh là là !!!!
sacré boulot mé je me sens bien incapable de l'adapter à mes besoins car dans mon cas je souhaite un choix sur 3 feuilles uniquement

merci kan même pour le lien et bonne journéé

JM

 

[Eric C]

re le forum
Re bonjour Jean Marc


Une tite USF très basique à adapter à ton besoin (lancement au vu de la réponse de ton MsgBox) si oui aors appel USF - Code Alt F11 -
[file name=JM.zip size=9425]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/JM.zip[/file]

 

[Jean Marc]

Re le forum, re Eric

merci Eric, ça fonctionne très bien !
ai réussi a l'adapter a mes besoins !

je deviens très fort en VBA :unsure:

euh !! vachement grace a vous !!!
merci encore

JM

 

[Jean Marc]

Bonsoir tout le monde

comme je disais plus haut j'ai réussi a caler comme il faut mon UserForm avec des checkbox (en ai 4)

est il possible de d'empécher la validation de OK tant qu'il n'y a pas au moins 1 checkbox de cocher?

si oui quelle est la procédure ?

merci bcp

JM

 

[galopin01]

bonsoir,
Tu rajoutes tout ça dans les macros du USF :

Private Sub UserForm_Initialize()
CommandButton1.Enabled = False
End Sub
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then CommandButton1.Enabled = True Else CommandButton1.Enabled = False
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then CommandButton1.Enabled = True Else CommandButton1.Enabled = False
End Sub
Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then CommandButton1.Enabled = True Else CommandButton1.Enabled = False
End Sub
Private Sub CheckBox4_Click()
If CheckBox4.Value = True Then CommandButton1.Enabled = True Else CommandButton1.Enabled = False
End Sub

On ne rigole pas SVP !
Ok ?

 

[Eric C]

Bonsoir le forum
Bonsoir Jean Marc, bonsoir Galopin01

Moi je ne rigole pas en tout cas ... Toujours sérieux... Enfin .....

 

[Jean Marc]

Bonsoir every body !

Je te remercie Galopin

une merveille :woohoo:

très bonne soirée

JM