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

 

[mapomme]

Bonjour bennisay

Testez :

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

 

[gosselien]

Bonjour,

msgbox permet d'afficher un message pas plus , dans ton cas c'est inputbox
en anglais mais ça aide

edit : Oups non.. mapomme a encore mieux répondu

P.

 

[Staple1600]

Bonjour le fil, le forum

Une possibilité de faire le job

Sub benissay()
Dim Question
Question = MsgBox("Voulez-vous imprimer le bon?", vbYesNo, "Impression Bon")
Select Case Question
Case vbYes
'ici tu remplaces la ligne ci-dessous par le code VBA si vbYes
MsgBox "oui"
Case vbNo
End
End Select
End Sub

EDITION:
Bonjour mapomme
Bonjour gosselien

Désolé, j'avion point rafraîchi la page.

 

[bennisay]

RE
Désole mais j ai pas réussis a comprendre tous ce qu'il dit

 

[mapomme]

Bonjour gosselien ,

edit : après réactualisation, bonjour Staple1600

 

[gosselien]

re à tous ... (mapomme stapple )

c'est quoi que tu ne comprends pas ?
essaye me code et tu constateras que ça fonctionne ..


P.

 

[bennisay]

Re mapomme
desole le code s execute dans les deux conditions

 

[bennisay]

re ( gosselien)
la video est en anglais et je comprend pas ce qu il dit

 

[Staple1600]

Re

@bennisay
[petite poussée d'egotisme]
Et moi je pue de la gue*ule ?
(voir ma macro dans le message#4)
[petite poussée d'egotisme]

 

[bennisay]

Re Staple1600
j ai mis votre code mais j ai des erreurs ,il ne s execute pas

 

[Staple1600]

Re

@benissay
C'est bizarre, chez moi cela fonctionne
C'est dans doute pour cela, que je me suis permis de tester une macro qui fonctionne...
PS: Tu as copié où la macro et comment tu la lances ?
Et comment l'as-tu modifiée ?
(puisque mes commentaires en vert t'invitaient à le faire)

 

[mapomme]

Re,

Chez moi, les codes proposés fonctionnent...

 

[Staple1600]

Re

Merci mapomme de ta mansuétude
[pj](alors que je t'ai soi-disant récemment épluché)[pj]
Pour ta peine, m'en vais tester ton fichier

 

[mapomme]

Re,

Merci mapomme de ta mansuétude
[pj](alors que je t'ai soi-disant récemment épluché)[pj]

[petite poussée d'egotisme]
Et moi je pue de la gue*ule ?
(voir ma macro dans le message#4)
[petite poussée d'egotisme]

Comment répondre à cette légitime et intime interrogation ? Le forum n'accepte pas de véhiculer les odeurs. Mais en général la pomme à bon goût et parfum. Le macro nettement moins...