message pour faire controle

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:

---

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:

---

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

---

cordialement

Pascal

bonjour,

essaie ça:

Code:

---

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

---

Code:

---

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

---

Bonsoir,
simplement

Code:

---

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

bonjour a vous

merci de vos réponses
abdou57 ta solution fonctionne mais pas tout a fait comme je l'attendais merci beaucoup:ccool:
helas ta solution ne peux pas etre appliqué car les 2 boutons font imprimé:(:ccool:
Mercatog comme a ton habitude ta solution excelle en tout point un grand merci:ccool::merci::king:
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:ccool::ccool:

cordialement

Pascal

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

Citation:

---

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:

---

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

---

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

Code:

---

vbokcancel+ vbDefaultButton2

---

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

cordialement

Pascal

Bonsoir Pascal
C'est pas question de m'embêter, mais vous êtes assez assidu au forum pour avoir déjà les réflexes de chercher la syntaxe sois même. (soit par le F1, soit l'enregistreur de macros dans d'autres cas)
L'aide vba:

Citation:

---

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.

---

En bas de l'aide tu as d'autres précisions sur les valeurs des paramètres

Citation:

---

Valeurs

L'argument buttons prend les valeurs suivantes :

Constant Value Description
vbOKOnly 0 Affiche le bouton OK uniquement.
vbOKCancel 1 Affiche les boutons OK et Annuler.
.....

---

Code:

---

1 2	vbOKCancel + vbDefaultButton2+vbExclamation

---

Signifie, notre msgbox a 2 boutons, OK et Cancel, avec le focus par défaut sur le 2ème boutton (Cancel) et un signe d'exclamation.
Au lieu de ceci vbOKCancel + vbDefaultButton2+vbExclamation, tu peux faire (mais c'est non significatif) 1+256+48

Code:

---

1 2 3 4 5 6

If MsgBox("Voulez-vous imprimer la page?", vbOKCancel + vbDefaultButton2+vbExclamation, "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

---

idem à

Code:

---

1 2 3 4 5

If MsgBox("Voulez-vous imprimer la page?", 305, "ATTENTION A L'OUBLI") = 1 Then Sheets("Feuil1").PrintOut Copies:=2, Collate:=True Else MsgBox "Impression annulée", , "Grisan29...Ceci est le titre de ce Msgbox" End If

---