MSGBOX

mapomme

XLDnaute Barbatruc

Supporter XLD

• 28 Avril 2018

• #2

Bonjour bennisay

Testez :

VB:

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

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 28 Avril 2018

• #3

Bonjour,

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

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

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

P.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Avril 2018

• #4

Bonjour le fil, le forum

Une possibilité de faire le job

VB:

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.

 

Vote positif 0 Vote négatif

bennisay

XLDnaute Occasionnel

• 28 Avril 2018

• #5

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 28 Avril 2018

• #6

Bonjour gosselien 🙂,

edit : après réactualisation, bonjour Staple1600 😉

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 28 Avril 2018

• #7

re à tous ... (mapomme 😀 stapple 😀)

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


P.

 

Vote positif 0 Vote négatif

bennisay

XLDnaute Occasionnel

• 28 Avril 2018

• #8

Re mapomme
desole le code s execute dans les deux conditions

 

Vote positif 0 Vote négatif

bennisay

XLDnaute Occasionnel

• 28 Avril 2018

• #9

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Avril 2018

• #10

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]

 

Vote positif 0 Vote négatif

bennisay

XLDnaute Occasionnel

• 28 Avril 2018

• #11

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Avril 2018

• #12

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)

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 28 Avril 2018

• #13

Re,

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

 

Pièces jointes

• bennisay- et pourtant ça marche- v1.xlsm

  15.4 KB · Affichages: 30

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Avril 2018

• #14

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 😉

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 28 Avril 2018

• #15

Re,

Staple1600 à dit:

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

Cliquez pour agrandir...

Staple1600 à dit:

[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]

Cliquez pour agrandir...

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...

 

Vote positif 0 Vote négatif