Discussion :

[tintin69]

Bonjour,

Je souhaite réaliser un aperçu avant impression,

A partir d'une liste déroulante je souhaite sélectionner l'onglet pour avoir l'aperçu dans un second temps (onglets de septembre à aout).

Exemple : je sélectionne le mois de septembre il fait un aperçu du mois de septembre pour qu'ensuite je puisse imprimer.

Précision : J'ai définis les zones d'impressions dans chacun des onglets concernés "B10:AB167" et les onglets sont filtrés de manières à ne pas afficher certaines lignes vides. (ces éléments sont justes pour informations)

=> Avec une macro je connais la commande print preview mais mes connaissances en VBA sont basiques ; Est-ce qu'il faut insérer un contrôle "ActiveX" avec une zone de liste ou un contrôle ou une simple liste déroulante suffit ?

Source : http://www.cjoint.com/data/0DcmETt2hyT.htm

Merci d'avances.

Toute aides est la bienvenue

Cordialement,

[Aposto]

Bonjour,

tu peux faire les deux:

si tu choisi le control activeX il faudra que tu insères ton code de preview dans l'évenement

Code :

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

1
2
3
Private Sub ListBox1_Click()
 
End Sub

J'ai mis "Click" mais ça peut-être n’importe quel événement géré par cet objet.


Sinon, tu mais une liste déroulante sur celulle, A1 par exemple, et ensuite tu met ton code de preview dans l’événement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
'Désactive les événements, car si cette procédure modifie une cellule de cette feuille, cela va créer un boucle récursive
Application.EnableEvents = False
 
'Vérifier que c'est la cellule A1 qui déclenche l’événement
if target.address = "A1" then
'lancer la procédure de preview
end if
'réactive les évènements à la fin de la procédure
Application.EnableEvents = true
 
End Sub

Pour info je n'ai pas ouvert ton fichier .xlsm voir le post de Pierre Fauconnier...

[mercatog]

@Aposto

Attention à Address

Code :

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

if target.address="$A$1" then

[Aposto]

Très juste

[tintin69]

Tout d'abord, merci pour votre aide.

J'ai essayé mais j'ai un peu de mal, je suis un novice dans la macro et j'aimerai comprendre d'où peux venir l'erreur.
J'ai peut être mal compris un élément, ou il y a une étape que j'ai loupé.

Ce que j'ai fais :
Etape 1 - Création d'une liste déroulante dans le MENU en cellule A1 (j'ai renseigné les valeurs de la liste déroulante il correspond au nom des différents onglets à choisir pour avoir en aperçu : septembre, octobre, novembre, décembre, janvier, février, mars, avril, mai, juin, juillet, aout. La liste déroulante permettant de sélectionner le mois à avoir en vision avant de lancer l'impression.

Etape 2 - dans mon onglets feuille "menu" ; j'ai remplacé le code existant par celui-ci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
'Désactive les événements, car si cette procédure modifie une cellule de cette feuille, cela va créer un boucle récursive
Application.EnableEvents = False
 
'Vérifier que c'est la cellule A1 qui déclenche l’événement
if target.address="$A$1" then
'lancer la procédure de preview
end if
'réactive les évènements à la fin de la procédure
Application.EnableEvents = true
 
End Sub

une fois terminé, j'ai testé mais rien ne se passe (sachant que je filtre mes données avant et qu'il y a déjà des macros créées, Est-ce un problème d'incompatibilité ?).

Merci d'avances.

[Aposto]

Bonjour a tous,

en fait la ligne

Code :

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

'lancer la procédure de prewiew

était à compléter par:

Code :

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

Sheets(Target.Value).PrintPreview

.

Ps: un bon moyen pour apprendre petit à petit, à chaque fois que tu ne comprend pas une instruction ou que tu cherche une méthode d'un objet, appuies sur F1 avec le curseur sur l'objet ou l'instruction et tu auras directement l'aide correspondante.

N'hésites pas si tu as d'autres questions.