Fonction before Print

Bixou69 -  
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai un fichier excel qui possède 8 onglets.
J'ai enregistré un bouton d'impression dans un de mes onglets mais cependant j'ai une Macro qui va verifier le contenu de 2 cellules dans une des feuilles avant d'autoriser l'impression.
Mon problème est que lorsque je clique sur mon bouton, on me dit que mes 2 cellules sont vides.

Comment faire pour que la macro d'autorisation ne vérifie seulement les cellules de l'onglet 1 et pas l'onlet actif...j'ai essayé ce code sans succèse :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveWorkbook.Sheets(1).Activate
If (IsEmpty(ThisWorkbook.ActiveSheet.Range("L5")) = True Or IsEmpty(ThisWorkbook.ActiveSheet.Range("AB1")) = True) Then
MsgBox ("Please fill cell L5 (New customer?) and/or cell AB1 (Type of quote)")
Cancel = True
Else
If (ThisWorkbook.ActiveSheet.Range("L5") = "YES" And IsEmpty(ThisWorkbook.ActiveSheet.Range("L83")) = True) Then
MsgBox ("Please quote the EDI")
Cancel = True
End If
End If
End Sub

Merci !

A voir également:

1 réponse

eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Bonjour,

If (IsEmpty(ThisWorkbook.Sheets(1).Range("L5")) = True Or
ou par le nom :
If (IsEmpty(ThisWorkbook.Sheets("Feuil1").Range("L5")) = True Or

eric
0