msgbox avec choix

[fr832]

Bonjour à tous je cherche à faire et deja savoir si il est possible d'affecter ces deux macros à un msbox, qui me permettrait de faire mon choix sur une des deux maccros . Par avance merci beaucoup, mes maccros

maccro N°1

Sub printbosseordinaire()
Sheets("PV bosses").PrintPreview
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1
End Sub

maccro N°2

Sub printbosseguerigny()
Sheets("PV bosses").PrintPreview
    ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1
End Sub

PAr avance merci à tous
😎

 

[Staple1600]

Re : msgbox avec choix

Bonsoir


Une Msgbox ou un InputBox ?

 

[fr832]

Re : msgbox avec choix

bonsoir je suis un peu perdu là c'est quoi input box ? Tous les conseils seront les bienvenus je cherche à faire un choix entre quatre feuilles à imprimer, et je les choisis en fonction d'une de mes maccros.
Merci pour tes lumières

 

[Staple1600]

Re : msgbox avec choix

Re



A tester (car je n'ai pa d'imprimante sous la main )

Lancer la macro choixprint

Si on répond oui une type d'impression
si on réponds non l'autre type d'impression

Sub choixprint()
Dim type_print
type_print = MsgBox("type impression", vbYesNo, "choix")
Select Case type_print
Case vbYes
printm 1, 2
Case vbNo
printm 3, 4
End Select
End Sub

Sub printm(paged As Long, pagef As Long, Optional nbcop As Long = 1)
Sheets("PV bosses").PrintOut From:=paged, To:=pagef, Copies:=nbcop
End Sub

 

[fr832]

Re : msgbox avec choix

bonsoir et merci j'ai une ereur ici

Sub choixprint()
Dim type_print
type_print = MsgBox("type impression", vbYesNo, "choix")
Select Case type_print
Case vbYes
[COLOR="Red"]printm [/COLOR]1, 2
Case vbNo
printm 3, 4
End Select
End Sub

merci

 

[Staple1600]

Re : msgbox avec choix

Re

Tu as bien copié les deux codes de mon précédent message ?

 

[fr832]

Re : msgbox avec choix

rebonsoir autant pour moi oui ça a l'air de fonctionner, par contre y a t'il la possibilité de modifié le texte des bouton oui par bosse ordinaire et non par bosse guerigny ?
Merci encre par avance

 

[Staple1600]

Re : msgbox avec choix

Re


Oui c'est possible

Voir ici

https://www.excel-downloads.com/threads/faites-sourire-vos-msgbox-disait-le-captain-hook.126709/

 

[fr832]

Re : msgbox avec choix

merci pour tout amitié"s🙄

 

[fr832]

Re : msgbox avec choix

Re bonsoir j'ai pas réussi d'aprés ton lien staple , mais j'ai essayé d'adapter ton code à ça et ça bugg , moyen de m'aider ou sa bugg.

Option Explicit

Sub printbosses()
Dim MonMessage As String
Dim Rep As Byte
MonMessage = "Mes cher(e)s ami(e)s," & vbLf & vbLf & "Cet article vous a-t'il plu ?"

Rep = MsgBoxPerso(MonMessage, "Impression du PV", vbQuestion, "Bosses Ordinaires", "Bosses Guerigny", True)
Select Case Rep
Case 0
' ici le traitement (éventuel) si Annulation
Unload
Case 1
' ici le traitement si réponse = "Bosses Ordinaires"
printm 1, 2
Case 2
' ici le traitement si réponse = "Bosses Guerigny"
printm 3, 4
End Select
End Sub
Sub printm(paged As Long, pagef As Long, Optional nbcop As Long = 1)
Sheets("PV bosses").PrintOut From:=paged, To:=pagef, Copies:=nbcop
End Sub

et j'ai comme message d'erreur,
erreur de compilation
sub ou fonction non definie

par avance merci

 

[Staple1600]

Re : msgbox avec choix

Re


Il manque MsgBoxPerso

dans ton code

 

[fr832]

Re : msgbox avec choix

merci j'ai trouvé grace à ce lien

http://www.mdf-xlpages.com/modules/smartsection/item.php?itemid=42#ancfichierjoint

amitiés