Discussion :

[grisan29]

Bonjour a vous tous
Comment puis je modifié ce code (venant de l’aide) afin de lancer l’impression une fois que l’appui sur le bon bouton avant impression soit fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton4_Click()
Dim Msg, Style, Title, Response, MyString
Msg = "avez-vous cliquez sur le bon bouton ?"    ' Définit le message.
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Définit les boutons.
Title = "ATTENTION A L'OUBLI "    ' Définit le titre.
 ' Affiche le message.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then    ' L'utilisateur a choisi Oui.
    MyString = "Oui"    ' Effectue une action.imprime 2 pages
Else    ' L'utilisateur a choisi Non.
    MyString = "Non" ' Effectue une action.quitter
End If
End Sub

Puis si clic « oui » lancer l’impression de type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil1").PrintOut Copies:=2, Collate:=True

cordialement

Pascal

[abdou57]

bonjour,

essaie ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
If Response = vbYes Then    ' L'utilisateur a choisi Oui.
    Sheets("Feuil1").PrintOut Copies:=2, Collate:=True    ' Effectue une action.imprime 2 pages
Else    ' L'utilisateur a choisi Non.
    MyString = "Non" ' Effectue une action.quitter
End If

[helas]

Bonsoir,
simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim Msg, Style, Title, Response, MyString
Msg = "avez-vous cliquez sur le bon bouton ?"   
Style = vbYesNo + vbCritical + vbDefaultButton2   
Title = "ATTENTION A L'OUBLI "  
 
If MsgBox(Msg, Style, Title) Then Sheets("Feuil1").PrintOut Copies:=2, Collate:=True

Si msgbox retourne Vrai (vbYes) , on imprime

[grisan29]

bonjour a vous

merci de vos réponses
abdou57 ta solution fonctionne mais pas tout a fait comme je l'attendais merci beaucoup
helas ta solution ne peux pas etre appliqué car les 2 boutons font imprimé
Mercatog comme a ton habitude ta solution excelle en tout point un grand merci
par contre j'aurai bien voulu le titre "attention à l'oubli ,le fait d'écrire la ligne de titre ne la fait pas apparaitre

merci a vous tous de vos réponses

cordialement

Pascal

[mercatog]

Je ne comprends pas comment tu ne peux pas utiliser F1 (l'aide) pour pouvoir trouver la syntaxe exacte et les différents paramètres

Syntaxe

MsgBox(prompt[, buttons] [, title] [, helpfile, context])

La syntaxe de la fonction MsgBox comprend les arguments nommés suivants :

Élément Description
prompt Expression de chaîne affichée comme message dans la boîte de dialogue. La longueur maximale de l'argument prompt est d'environ 1 024 caractères selon la largeur des caractères utilisés. Si l'argument prompt occupe plus d'une ligne, n'oubliez pas d'insérer un retour chariot (Chr(13)) ou un saut de ligne (Chr(10)) entre les lignes, ou une combinaison de caractères retour chariot-saut de ligne (Chr(13) & Chr(10)).
buttons Facultatif. Expression numérique qui représente la somme des valeurs indiquant le nombre et le type de boutons à afficher, le style d'icône à utiliser, l'identité du bouton par défaut, ainsi que la modalité du message. Si l'argument buttons est omis, sa valeur par défaut est 0.
title Facultatif. Expression de chaîne affichée dans la barre de titre de la boîte de dialogue. Si l'argument title est omis, le nom de l'application est placé dans la barre de titre.
helpfile Facultatif. Expression de chaîne indiquant le fichier d'aide à utiliser pour fournir une aide contextuelle sur la boîte de dialogue. Si l'argument helpfile est défini, l'argument context doit l'être également.
context Facultatif. Expression indiquant le numéro de contexte attribué par l'auteur de l'aide à la rubrique appropriée. Si l'argument context est défini, l'argument helpfile doit l'être également.

Pour le titre,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub CommandButton4_Click()
 
If MsgBox("Voulez-vous imprimer la page?", vbOKCancel + vbDefaultButton2, "ATTENTION A L'OUBLI") = vbOK Then
    Sheets("Feuil1").PrintOut Copies:=2, Collate:=True
Else
    MsgBox "Impression annulée", , "Grisan29...Ceci est le titre de ce Msgbox"
End If
End Sub

[grisan29]

Bonsoir Mercatog
dans l'aide je n'ai pas trouvé l'association que tu a fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

vbokcancel+ vbDefaultButton2

un tres grand merci et désolé de t'avoir embêter une fois de plus

cordialement

Pascal

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub CommandButton4_Click()
 
If MsgBox("Voulez-vous imprimer la page?", vbOKCancel) = vbOK Then
    Sheets("Feuil1").PrintOut Copies:=2, Collate:=True
Else
    MsgBox "impression annulée"
End If
End Sub