Balayer cellules vides avant impression

sigma

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Modérateur
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
 

Discussions similaires

Statistiques des forums

Discussions
312 908
Messages
2 093 482
Membres
105 742
dernier inscrit
BTyBGT