Discussion :

[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 :

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

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

[Didier Gonard]

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 :

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

Feuille Ventes#

puis ce code :

Code :

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

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 :

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

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 :

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

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 :

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

1
2
3
   Else
        Exit Sub
   End If

par

Code :

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

Cancel = True

Merci encore à vous deux pour votre réponse rapide

Cdlt
Dom

[Didier Gonard]

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