Cellule obligatoire avant impression

A

Arnaud61

XLDnaute Occasionnel

• 4 Janvier 2008

• #2

Re : Cellule obligatoire avant impression

Hello

Je dirais:

Sub test()
If Range("A1") = "" Then
MsgBox "La cellule A1 est vide"
End if
End sub

Si ça peut t'aider!

🙂

 

Vote positif 0 Vote négatif

J

joss56

XLDnaute Accro

• 4 Janvier 2008

• #3

Re : Cellule obligatoire avant impression

bonjour,

tu crée un bouton sur ta feuille et tu tapes le code suivant:

if range("A1")="" then
msgbox "La cellule A1 doit être renseignée", vbokonly," Cellule vide"
else
activesheet.printout
end if

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 4 Janvier 2008

• #4

Re : Cellule obligatoire avant impression

bonjour et bienvenue, bonjour joss, arnaud

Voici un code à mettre dans le module ThisWorkbook

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Range("A1") <> "OUI" Then
        MsgBox "Vous ne pouvez pas imprimer"
        Cancel = True
    End If
End Sub

Alt + F11 Pour acceder au VBA, A gauche une fenettre avec une liste de module

Double click sur ThisWorkbook et copier coller le code Ci-dessus

Adapter la reference de cellule et la valeur selon tes besoins

 

Vote positif 0 Vote négatif

B

bbruno93

Guest

• 4 Janvier 2008

• #5

Re : Cellule obligatoire avant impression

je viens de mettre votre formule et cela fonctionne. Merci a vous

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 4 Janvier 2008

• #6

Re : Cellule obligatoire avant impression

re:

Ca n'empechera pas d'imprimer par l'icone imprimante ou par menu fichier / imprimer

 

Vote positif 0 Vote négatif