Bloquer impression/sauvegarde si cellules vide

yeti_yeti · 28 Novembre 2008

Bonjour à tous,

J'ai un petit soucis avec une macro à réaliser.
Je dois, dans un fichier, empêcher l'utilisateur d'imprimer ou de sauver un document tant que les cellule A1 et A2 sont vides. Dès qu'il y a le moindre caractère dans les deux cellules (et non pas une des deux), l'utilisateur pourra donc imprimer/sauver le document.

Une petite aide? 🙂

Merci

YeTi

Guest · 28 Novembre 2008

Re : Bloquer impression/sauvegarde si cellules vide

Bonjour Yeti:

Avec ceci:

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With Sheets("Feuil1")
        Cancel = .Range("A1").Text = vbNullString Or .Range("A2").Text = vbNullString
    End With
End Sub

A+

tototiti2008 · 28 Novembre 2008

Re : Bloquer impression/sauvegarde si cellules vide

Bonjour yeti yeti, Bonjour Hasco,

et le même code dans Workbook_BeforeSave...

yeti_yeti · 28 Novembre 2008

Re : Bloquer impression/sauvegarde si cellules vide

Merci à tous pour votre aide, c'est parfait 🙂

Bloquer impression/sauvegarde si cellules vide

yeti_yeti

XLDnaute Junior

Guest

Guest

tototiti2008

XLDnaute Barbatruc

Pièces jointes

yeti_yeti

XLDnaute Junior

Discussions similaires

Bloquer impression/sauvegarde si cellules vide

yeti_yeti

XLDnaute Junior

Guest

Guest

tototiti2008

XLDnaute Barbatruc

Pièces jointes

yeti_yeti

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency