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
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
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