Fonction BeforePrint

Bonjour,

Un usagé m'a demandé de créer une macro qui permet de valider l'information d'une cellule avant de lancer l'impression. Si la valeur dans la cellule egale zéro, on doit afficher un message a l'écran et ne pas imprimer le document, autrement, on fait comme si de rien n'était. J'ai vu que la fonctione BeforePrint devrait bien repondre a mes besoins mais on dirait que excel ne voit pas ce code. Pour faire un test, j'ai créé un bouton IMPRIMER et j'ai placer le code dans la fonction Click du bouton et ca fonctionne bien. Voici ce que j'ai (BeforePrint)...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Worksheet_BeforePrint(cancel As Boolean)   Dim Valeur As Integer   Valeur = sheets("Feuille1").Range("D16")   If ValeurDesign = "0" Then MsgBox "Valeur a Zéro, Impression impossible" cancel = True Else Cancel-false End If End Sub

---

Est-ce qu'il y aurait une erreur dans ce bout de code?

Est-ce que la fonction BeforePrint fonctionne avec Excel2007. Est-ce que je dois installer des "modules" supplémentaire?

Merci!

Pour commencer la prochaine fois utilise les balise code

Pourquoi veux tu mettre cancelm a false? ce n'est pas obligatoire. Et si tu veux le faire on le fait ainsi

Code:

---

Cancel=false

---

Tu déclare valeur et utilise ValeurDesign de plus tu la compar a une chaine de caractère "0" et non un chiffre 0.
On peut même se passer de cette variable

Ce code devrais marche

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_BeforePrint(cancel As Boolean)   If sheets("Feuille1").Range("D16")= 0 Then MsgBox "Valeur a Zéro, Impression impossible" cancel = True End If End Sub

---

Ok.. On peut oubloier cela. Il fallait placer le code sur Workbook et non sur WorkSheet.. :oops: