• Initiateur de la discussion Initiateur de la discussion bennisay
  • 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 !

bennisay

XLDnaute Occasionnel
Bonjour le forum
Svp j ai mi un code MsgBox "vb yes no" pour deux options
1: yes pour exécuter le code qui suit
2: no pour ne pas exécuter le code
le code est le suivant :

Code:
MsgBox " Voulez Vous Imprimer Le Bon ?", vbYesNo
Range("L6:R13").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = -0.499984740745262
        .PatternTintAndShade = 0
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone


Mais le code qui suit s exécute dans les deux conditions : soit que je clic sur yes ou sur no le code qui suit s execute
pourriez vous modifier le code de sorte que si je clic sur yes le code qui suit s exécute et si je clic sur no s arrête
Et merci
 
Re

Pour le fun et par désœuvrement du samedi après-midi où le temps se gâte
VB:
Sub TestStaple1600_bis()
Dim Question
   Question = MsgBox("Voulez-vous imprimer le bon?", vbYesNo, "Impression Bon")
   Select Case Question
      Case vbYes
         coloriage Range("L6:R13"), 49, xlDiagonalDown, xlDashDotDot
         MsgBox "Oui, on on a voulu imprimer.", vbInformation, "Mise en forme pour impression"
      Case vbNo
         coloriage Range("L6:R13"), xlColorIndexNone, xlDiagonalDown, xlLineStyleNone
         MsgBox "Impression annulée.", vbCritical, "Message à caractère informatif"
   End Select
End Sub
Private Sub coloriage(Plage As Range, Fond As XlColorIndex, Bord As XlBordersIndex, BordStyle As XlLineStyle)
Plage.Interior.ColorIndex = Fond: Plage.Borders(Bord).LineStyle = BordStyle
End Sub
 
- 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

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
536
Réponses
9
Affichages
601
  • Question Question
Microsoft 365 colorer une plage
Réponses
2
Affichages
872
Réponses
8
Affichages
1 K
Réponses
22
Affichages
3 K
Retour