Cellule obligatoire avant impression

[bbruno93]

Bonjour et bonne année a tous. Je voudrais savoir quel serais la formule qui me permettrai de rendre une cellule obligatoire avant impression (Lorsque je clique sur impression, je voudrais que cela me donne un message d'erreur si une cellule "connue" n'est pas remplis).
Merci de votre aide

 

[Arnaud61]

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!

🙂

 

[joss56]

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

 

[wilfried_42]

Re : Cellule obligatoire avant impression

bonjour et bienvenue, bonjour joss, arnaud

Voici un code à mettre dans le module ThisWorkbook

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

 

[bbruno93]

Re : Cellule obligatoire avant impression

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

 

[wilfried_42]

Re : Cellule obligatoire avant impression

re:

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