Pouvoir dit OUI ou NON pour imprimer

Salut,
essaies ça.

Sub Macro1()
Reponse = MsgBox("Voules-vous imprimer?", 36, "Demande d'impression")
If Reponse = 6 Then ActiveSheet.PrintOut Copies:=1
End Sub

Ici ton MsgBox va donner une valeur (à Reponse) en fonction du clic.
La valeur 36 de la MsgBox correspond à 4 + 32:
- 4 => bouton OUI / NON dans la MsgBox
- 32 => Icone QUESTION dans la MsgBox
Le clic sur le bouton OUI donne la valeur 6 à Reponse. De ce fait SI clic OUI alors on imprime SINON on fait rien.

Tout est dans l'aide de Visual Basic Editor en cherchant "MsgBox"

Voilà @+

Salut Victor,

Tu dois utiliser la fonction MsgBox avec l'option vbOKCancel comme ceci :

If MsgBox("La feuille est imprimée",vbOKCancel, "INDICATION") = vbOK Then
ActiveWindow:SelectdSheets.PrintOut Copies:"1
End If

Ainsi, si l'on clique sur "Annuler", il ne se passera rien.

A+
Horry

Salut Nelson,

Je vient de tapper ce que tu m'a écrit et cela va bien.
Encore merci à toi, mais j'aurai des autres questions car je débute en VBA
A+ Victor


Salut Stany,

J'ai essayé ton code mais cela ne va pas, ( erreur de moi certainement vu mes débuts en VBA )
Pourrais-tu écrire le code en entier sans explication stp. Merci.

A+ Victor

Voici le code nu à écrire dans un module (une macro par exemple).

Reponse = MsgBox("Voules-vous imprimer?", 36, "Demande d'impression")
If Reponse = 6 Then ActiveSheet.PrintOut Copies:=1


@+

Salut Stany,

OK cela fonctionne bien à la différence de Nelson ou lieu
de OUI ou ANNULER

Chez toi c'est

OUI ou NON

Merci encore et à + Victor