Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

msgbox avec choix

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion fr832
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

fr832

XLDnaute Occasionnel
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
Code: 
Sub printbosseordinaire()
Sheets("PV bosses").PrintPreview
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1
End Sub

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

PAr avance merci à tous
😎
 
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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

Code: 
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
Code: 
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
 
Vote positif 0 Vote négatif
Re : msgbox avec choix

bonsoir et merci j'ai une ereur ici
Code: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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.
Code: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
696
job75
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
243
vazvaz
V
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
788
AtTheOne
L
  • Résolu(e)
Microsoft 365 Tableaux emboités
2
Réponses
15
Affichages
293
nullosse
N
H
  • Question Question
XL 2013 Erreur VBA 1004 Impression zone d'impression tableau
Réponses
13
Affichages
706
Helios77
H
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
1 K
Nounours4173
N
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
792
ph.vanne
A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
389
AlineJ
A
S
  • Résolu(e)
XL 2021 enregistrer xltm en xlsm avec chemin automatiquement
2
Réponses
27
Affichages
599
TooFatBoy
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
791
lynyrd
C
  • Résolu(e)
XL 2019 User Form qui renvoi dans un tableau avec celulle fusionnée
2
Réponses
16
Affichages
369
Piment
P
  • Résolu(e)
XL 2021 Envoi mail via VBA et Outlook
Réponses
6
Affichages
660
patricktoulon
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
646
AtTheOne
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
818
thunder23
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
1 K
VBA_dev_Anne_Marie
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
566
mikeduff
M
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
647
safranien
S
F
  • Question Question
XL 2021 bug "lib32" suite à passage à office 2021
Réponses
6
Affichages
434
fredl
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…