[Toutes versions] Evénement BeforePrint sur une collection de feuilles [Résolu]

[Domimart]

Bonjour à tous

J'aimerais utiliser l'évenement BeforePrint du classeur pour lancer une procédure.
Or BeforePrint agit sur toutes les feuilles d'un classeur,et ce n'est pas ce qui m'interresse:
Ce classeur contient 24 onglets, et j'aimerais que cette procédure se déclenche seulement si la feuille active fait partie d'une collection de 14 onglets et non pas sur les onglets restant. (ou ne se déclenche pas sur les 10 autres)

Les infos que j'ai trouvé concernent des boucles sur toutes les feuilles d'un classeur et non pas sur une partie des feuilles.

Voici un code que j'ai élaboré sur un classeur test avec trois feuilles, mais ce n'est pas décent avec 14 feuilles:

Code :

1
2
3
4
5
6
7
8
9
10
 Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
 
If ActiveSheet.Name = ("Sheet1") Or ActiveSheet.Name = ("Sheet3") Then
 Exit Sub
Else
MsgBox ("Ca marche") 'Call procédure
End If
 
End Sub

Si quelqu'un avait une idée?

Merci à tous
Cdlt
Dom

[jfontaine]

Bonjour,

Une solution consiste à mettre un "Flag" dans une cellule des feuilles qui doivent passer par ton code.
Ex : en A1 mettre P sur tes 14 feuilles puis tester si la feuille active à P dans A1

[Domimart]

Bonne idée !

Je vais tester toutes les feuilles et si la condition est requise je lance la procédure...

Je te remercie pour ta réponse rapide et je vais essayer ça cette après midi.

A mon avis, l'événement BeforePrint aurrait été plus exploitable sur l'objet Worksheet que sur l'objet Workbook, mais bon...

Bonne journée
Cdlt
Dom

[Ormonth]

Bonjour,

Autre possibilité, c'est toujours aussi une question de contexte au niveau de l'emploi du classeur, si ça s'y prête, perso je ferais ainsi:

Rajout au nommage des feuilles d'un (ou +) caractère spécifique genre :

Code :

Feuille Ventes#

puis ce code :

Code :

1
2
3
4
5
6
7
Private Sub Workbook_BeforePrint(Cancel As Boolean)
 
If InStr(ActiveSheet.Name, "#") <> 0 Then
    MsgBox "Lance ma procédure"
End If
Cancel = True ' pour les tests....
End Sub

De plus au niveau maintenance, en un coup d’œil, tu gères.

Tu as tagué "Toutes versions", mais sinon depuis 2002 (je crois), plus élégamment, tu peux jouer sur la couleur des onglets :

Code :

1
2
3
4
5
6
7
8
Private Sub Workbook_BeforePrint(Cancel As Boolean)
 
If ActiveWorkbook.ActiveSheet.Tab.ThemeColor = xlThemeColorLight2 Then
    MsgBox "Lance ma procédure"
End If
 
Cancel = True ' pour les tests....
End Sub

cordialement,

Didier

[Domimart]

Bonjour Didier,

Je viens de voir ta réponse et je t'en remercie. Finalement voici le code que j'ai éssayé hier au boulot :
En poussant plus loin, j'ai mis une condition sur le flag pour être certain que le formulaire soit complêtement rempli par l'opérateur.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'mise à jour archivage gratif avant impression
Dim Ws As Worksheet
 For Each Ws In ThisWorkbook.Worksheets
   If ActiveSheet.Range("B5").Value = "Check_Gratif" Then
        Call macro_Check_Gratif
   Else
        Exit Sub
   End If
   Next Ws
End Sub

Le seul souci, c'est que d'une manière ou d'une autre, je suis obligé de tester chaqu'un des 24 onglets afin de voir si la condition est remplie et c'est plus long que la procédure elle même. C'est tout le problème des boucles...
L'avantage de ce systême, c'est que la fiabilité d'avoir la dernière "mouture" est optimale, et c'est ce qui est important.

Je vais essayer de gagner du temps en remplaçant:

Code :

1
2
3
   Else
        Exit Sub
   End If

par

Code :

Cancel = True

Merci encore à vous deux pour votre réponse rapide

Cdlt
Dom

[Ormonth]

Le seul souci, c'est que d'une manière ou d'une autre, je suis obligé de tester chaqu'un des 24 onglets afin de voir si la condition est remplie et c'est plus long que la procédure elle même. C'est tout le problème des boucles...

Bonjour,

Si tu n'imprimes qu'une feuille, dans les 2 approches proosées Flag ou onglet, il n'y a pas de boucles à faire

cordialement,

Didier

[Domimart]

Rebonjour,

Ca y est, j'ai vu ce que tu veux dire. Je vais essayer ce code cette après midi en supprimant la boucle For each et directement avec If
Là ça va être interressant...

Merci à toi

Cdlt
Dom

J'imprime bien effectivement qu'une seule feuille, donc voila ce que ça donne au final :

Option Explicit

Code :

1
2
3
4
5
6
7
8
9
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'mise à jour archivage gratif avant impression
   If ActiveSheet.Range("B5").Value = "Check_Gratif" Then
        Call macro_Check_Gratif
   Else
        Cancel = True 'Exit Sub
   End If
End Sub

Et là plus de perte de temps ça marche nickel chrome..

Merci à vous deux de m'avoir ouvert les yeux.

Cdlt
Dom