MessageBox vbyesno

[bennisay]

Bonjour le forum
Je cherche a mettre un messagBox vbyesno
pour activer ou pas une impression de plus
vous trouverez une piece joint pour expliquer mon cas

 

[Chris24]

Bonjour

Une façon de faire

Private Sub CommandButton1_Click()
Dim msg, style, title
Dim Retour As Integer

If MsgBox("voulez-vous imrimer transport", vbYesNo + vbQuestion, "Impression") = vbYes Then

'' TRANSPORT Macro
    Sheets("TRANSPRT").Select
    ExecuteExcel4Macro "PRINT(2,1,1,1,,,,,,,,2,,,TRUE,,FALSE)"
    Sheets("LIVRAISON").Select
    GoTo suite
Else

suite:
    With Sheets("LIVRAISON")
        '---------------- Impression noir et blanc ou couleur ------------------------
        If Range("N21") = "Non" And Range("N22") = 0 Then
            MsgBox ("IMPRESSION NON AUTORISEE / OBLIGATION DE PAIMENT "), vbInformation
            Exit Sub
        End If
        ActiveSheet.PageSetup.PrintArea = "B2:I55"
        'ActiveSheet.PrintPreview
        ActiveWindow.SelectedSheets.PrintPreview 'PrintOut copies:=1
    End With
End If
End Sub

Cdt

 

[herve62]

bonjour
J'étais dessus ( CHris pas vu ta réponse) c'est kif-kif sauf que je sors avant si annul ! (et pas de goto !!!)

 

[bennisay]

Merci bcp ca marche tres tres bien sauf que

Comment inverser l impression : c est a dire avoir l impression du bl avant le bon du transport
car quand j ai teste l impression j ai eu le bon transport imprime avant le bl

 

[Chris24]

Bonjour herve62

J'ai moi même horreur des appels à des sous routines, codage vieux comme le Basic
mais bon des fois on ne réfléchit pas

 

[herve62]

Bonsoir
@Chris24 :codage vieux comme le Basic ;
? VBA c'est toujours du BASIC ? j'ai commencé en 81 avec un ZX et le résultat en termes de traitements , calculs ..etc
était le même . dans les codes je dis toujours pour l'utilisateur c'est le résultat qui compte !!!!!
bon là ça va pas pour Monsieur !!
Donc voici la modif

 

[bennisay]

BONJOUR le forum
Merci bcp herve62, Chris24
Bon travail je remercie le forum pour son aide