MSGBOX

[bennisay]

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 :

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

 

[Staple1600]

Re

Pour le fun et par désœuvrement du samedi après-midi où le temps se gâte

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