IMPRESSION FEUILLE NON MASQUEE

[chris33]

Bonjour le Forum,

Je rencontre un soucis. Dans la petite application que je suis en train de monter, je souhaiterai imprimer (à l'aide d'un bouton) uniquement les feuilles non masquées. Le problème, c'est que certaines peuvent sur le fichier 1 êtres affichées, alors que ces mêmes feuilles seront masquées sur le fichier 2 et que d'autres seront affichées......
....J'éspère être clair...

D'avance, un grand merci pour votre dévouement et votre assistance.
Bonne journée

Chris33

 

[Luki]

Re Chris,

Tu peux faire une boucle pour savoir si ta feuille est affichée.
dim I as Integer

For I = 1 to Sheets.count
If Sheets(I).visible = True then
Là tu imprimes ou tu fais ce que tu veux
end if
next I


ça devrait marcher

Bon courage

 

[WILFRIED]

Salut Chris,

J'ai moi même été confronter au problème. Je l'ai résolut par un tableau de selection :

Option explicite

Sub recherche_fls_impression
dim tab_impression() as string
dim int_nb_fls as integer
dim fls as worksheets
dim classeur as workbooks

set classeur =activeworkbook
set fls=activesheet

int_nb_fls=classeur.worksheets.count

for each fls in classeur
if fls.visible=true then
selection.add
end if
next

end sub

C'est de mémoire si il y a un message d'erreur fait le moi savoir et je recopirait ma macro.

A+

 

[chris33]

Bonsoir le Forum,

Merci à Luki et wilfried pour votre assistance. J'essaie tout cela ce soir et reviens vers vous si ça ne fonctionne pas.

Encore merci,
Bye Bye
Chris33