Discussion :

[tweebe]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[Krovax]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tweebe]

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