Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Workbook_BeforePrint ????

Workbook_BeforePrint ????

4 réponses
Avatar
fpracht
bonjour
je cherche depuis deux jours le moyen de faire une vérification du
remplissage d'une cellule avant l'impression d'un document. voir de deux
cellule.
j'ai essayer le beforprint car j'ai trouvé que cela dans l'aide cela a l'air
de convenir mais je n'arrive pas a le faire fonctionner, et bientôt j'aurais
passé ma rame de papier.
voici ma macro:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Range("B12").Value = 0 Then
Workbook_BeforePrint (True)
MsgBox "Entrée vos initiale, Merci!"
End If
End Sub

merci d'avance de vos réponse et des autres réponse que j'épluche souvent et
qui me sont bien utiles
fred




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
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JpPradier
Bonjour fpracht

Essaye comme ça : ( non testé)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Range("B12").Value = 0 Then
Cancel=True
MsgBox "Entrée vos initiale, Merci!"
End If
End Sub

j-p
Avatar
fpracht
Merci jp mais cela ne fonctione pas non plus

"JpPradier" a écrit dans le message
de news:
Bonjour fpracht

Essaye comme ça : ( non testé)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Range("B12").Value = 0 Then
Cancel=True
MsgBox "Entrée vos initiale, Merci!"
End If
End Sub

j-p



Avatar
AV
| Merci jp mais cela ne fonctione pas non plus



Précise bien la feuille de la cellule à tester et il n'y a aucune raison que ça
ne marche pas :

Dans le module de Thisworbook :

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

AV


Avatar
fpracht
SUPER !!!
Merci ca marche je ne savais pas a quoi servait cette Feuille
ThisworksbooK
merci encore a tout les deux



"AV" a écrit dans le message de news:
%
| Merci jp mais cela ne fonctione pas non plus



Précise bien la feuille de la cellule à tester et il n'y a aucune raison
que ça

ne marche pas :

Dans le module de Thisworbook :

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

AV







begin 666 p.gif
M1TE&.#EAB0`1`( !```3S/___R'Y! $```$`+ ````")`!$```+1C(^IR^T/
MHYRTVHNSWKS[#S[ 6(TFH)WD828HRIO'$XQ+;L?/K,(_H,9@#4'KW'T')-#
M7U,8(!:ABU9T]0S.L%?@TNB,LK"]+LUJ_I'%5^2XS.:=AO"Z2Y6MAKU/NXX MY[0"]R<X!YB7A6?&% 2&`JDVV+=G=4-GZ4A%69@(R+<AY^6F*. I&
MI]JH&LBJYYFZ=RJ8RRG+6T5RPW66R8Y["N%^E:V%6R)UB7*-34]+yH9*M
9O<W=[?T-'BX^_DQM?HZ>KK[.WN[N40``.P``
`
end