(RESOLU)msgbox avant l'impression

[chaelie2015]

Bonjour forum
Je souhaite afficher un message « Nombre de page à imprimer est 6 de 1 à 6 »avant l’affichage de la boite de dialogue d’impression
salutations

 

[chaelie2015]

Re : msgbox avant l'impression

Re
desolé ; j'ai trouvé la réponse

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "Nombre de page à imprimer est 6 de 1 à 6 "
End Sub

mais , je souhaite afficher ce message selon la valeur d'une cellule
c a d
si A6=1 alors afficher le message ci dessus
et si A6=2 afficher le mème code avec message " Nombre de page à imprimer est 8 de 1 à 8"
merci par avance
salutations

 

[gilbert_RGI]

Re : msgbox avant l'impression

Bonjour,

comme ceci peut-être

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
dim a as integer
if [a6].Value = 1 then a = 0
if [a6].Value = 2 then a = 2
MsgBox "Nombre de page à imprimer est " & a + 6 & " de 1 à " & a + 6
End Sub

 

[chaelie2015]

Re : msgbox avant l'impression

Bonjour gilbert
merci pour la réponse ,c'est exactement ce que je cherchais.

 Problème Résolu

SALUTATIONS

 

[Modeste geedee]

Re : (RESOLU)msgbox avant l'impression

Bonsour®

Renvoi du nombre de pages qui seront imprimées conformément aux paramètres en cours pour la feuille active, à l'exclusion des
annotations.

MsgBox "Nombre de pages à imprimer : " & ExecuteExcel4Macro("GET.DOCUMENT(50)"), vbInformation

 

[chaelie2015]

Re : (RESOLU)msgbox avant l'impression

Bonjour Modeste
merci pour la réponse
et bon week end
a+