OVH Cloud OVH Cloud

Thiswoorkbook 2000

1 réponse
Avatar
fpracht
bonjour
j'ai recu une aide presieuse hier, il etait question de bloqué une
impression suivant le contenu
d'une cellule,avec "beforeprint" bon ca marche sur mon excel de office 2003
mais cela ne fonction pas sur excel 200????
pourquoi?
merci de votre aide
fred
rapelle de la procédure.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Range("Feuil1!B12").Value = 0 Then
MsgBox "Entrez vos initiales, Merci!"
Cancel = True
End If
End Sub





begin 666 p.gif
M1TE&.#EAH0`1`( ````3S/___R'Y! $```$`+ ````"A`!$```+_C(^IR^T/
MHYRTVHNSWKS[#X9B!I0.D*"(JJBL]"[ES,54;#_Y>>P!GF*X*C[#JSA:!9._
M)>UGZCFC-%34>+4VH;9CTY6%8J7;K_BL-&)96JYZ+0VWR$ E^TU];Z_ENCJ/
M!X:G9R581M@WEC@4. AW=\@UT[:'Z+0D,VE9:<EHMHD("4E'ZABG&0DDNHG:
MQ:=')NFYNAC;M=>Z`DC+&3>7YNO(Z_D;:UM,>S=Z2PP;/'R<F!J4S&CHYQ?=
MFQPLC0G]UVG\!*?H#,:FQ6?2[(8Y+B>=SJX-['[X-%_/Q-_OCS$IH,"!! L:
:/(@PH<*%#!LJ_ <QHL2)%"M:O(@Q8X8"`#L`
`
end

1 réponse

Avatar
Jacky
Bonjour,

Il n'y a aucune raison apparente pour que ce code (qui fonctionne même sur
xl97) ne fonctionne pas.
S'il est placé dans le ThisWorkbook du classeur en question.

Salutations
JJ

"fpracht" a écrit dans le message de
news:43ec8505$0$6689$
bonjour
j'ai recu une aide presieuse hier, il etait question de bloqué une
impression suivant le contenu
d'une cellule,avec "beforeprint" bon ca marche sur mon excel de office
2003

mais cela ne fonction pas sur excel 200????
pourquoi?
merci de votre aide
fred
rapelle de la procédure.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Range("Feuil1!B12").Value = 0 Then
MsgBox "Entrez vos initiales, Merci!"
Cancel = True
End If
End Sub