Balayer cellules vides avant impression

[sigma]

bonjour à tous,


après recherche dans les archives, je n'ai pas réussi à trouver mon bonheur.

voici mon souci, j'ai des cellules qui doivent systématiquement être renseignées avant impression (par ex C1 / C2 /C3), j'aimerai donc balayer une à une ces cellules lorsque j'appuie sur le bouton d'impression ou lorsque je fait fichier => imprimer.. d'où 2 solutions soit je bloque l'impression soit je l'autorise.
voici un bout de mon code :


Dim Cell As Range 'Déclaration de la variable Cell


For Each Cell In Range("C1")
If Cell.Value = "" Then
MsgBox "Vous avez omis d'entrer la date ou l'heure" & " en " & Cell.Address
Exit Sub
End If...

mais il me manque l'instruction concernant l'impression.
auriez vous une idée.
merci.

A+

 

[PascalXLD]

Re : Balayer cellules vides avant impression

Bonjour

dans Workbook tu as

Private Sub Workbook_BeforePrint(Cancel As Boolean)

End Sub

et donc cela donne à peu près

Private Sub Workbook_BeforePrint(Cancel As Boolean)

if range("C1")="" then
msgbox "Alors tête en l'air et C1 !!"
cancel=true
end if

End Sub

Edit ; sinon pas terrible Cell comme nom de variable car mot de VBA

 

[BOISGONTIER]

Re : Balayer cellules vides avant impression

Bonjour,

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  If [C1] = "" Then
     MsgBox "Saisissez en C1!"
     Cancel = True
   End If
End Sub

JB
Formation Excel VBA JB

 

[sigma]

Re : Balayer cellules vides avant impression

Re,

parfait, merci à vous.

A+