Discussion :

[fibule38]

Bonjour,

J'ai un dossier comprenant 40 onglets ayant des noms différents et ayant tous la même structure et notamment la case E7 comprend une liste de 3 choix dont un noté : A RENSEIGNER. (il faut que l'utilisateur choisisse dans les 2 autres : oui ou non). Cette réponse est très important pour la suite et c'est pour cela que je voudrai bloquer l'impression de l'onglet en cours, si cette case E7 est toujours en état A RENSEIGNER, et ce quel que soit le libellé des autres onglets avant ou après celui en cours. J'ai essayé avec le code ci-dessous mais cela ne fonctionne pas, soit car ce code est faux, soit je ne sais pas où mettre ce code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim ws As Worksheet
    Dim targetSheet As Worksheet
 
    Set targetSheet = ActiveSheet 'L'onglet en cours d'impression
 
        'Si la cellule E7 dans l'onglet en cours est égale à "A RENSEIGNER", annulez l'impression
        If targetSheet.Range("E7").Value = "A RENSEIGNER" Then
            Cancel = True
            MsgBox "ATTENTION : L'impression est interdite pour cet onglet car le forfait n'est pas renseigné.", vbExclamation, "Impression interdite"
       End If
End Sub

Merci encore une fois de votre précieuse aide.
Cordialement

[Philippe Tulliez]

Bonjour,
Cette procédure événementielle doit être placée dans le module ThisWorkbook

Même si cela n'a pas d'incidence sur la bonne marche de la procédure, la ligne 2 peut être supprimée car elle ne sert à rien, la variable ws n'étant pas utilisée et je ne vois pas l'intérêt d'utiliser la variable targetSheet . ActiveSheet suffirait amplement

Voici une version allégée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_BeforePrint(Cancel As Boolean)
  ' Si la cellule E7 dans l'onglet en cours est égale à "A RENSEIGNER", annulez l'impression
  If ActiveSheet.Range("E7").Value = "A RENSEIGNER" Then
     Cancel = True
     MsgBox "ATTENTION : L'impression est interdite pour cet onglet car le forfait n'est pas renseigné.", vbExclamation, "Impression interdite"
  End If
End Sub

Pour en savoir plus sur les procédures événementielles

• Les évènements du module objet ThisWorkbook, dans Excel
• Les évènements dans la feuille de calcul Excel
• Utiliser les évènements dans les graphiques Excel

[fibule38]

grand MERCI. Bonne semaine