Sélectionner plusieurs feuilles pour impression

[EricS]

Bonjour,

Je cherche à automatiser une impression en sélectionnant par exemple toutes les feuilles ayant "essai" en A1 puis en lançant imprimer, feuilles sélectionnées.

J'ai une solution avec boucle et impression des feuilles une à une à la volée mais je n'ai pas trouvé la possibilité de générer

Sheets(Array("Feuil2", "Feuil3")).Select
automatiquement selon critère

l'exemple suivant me génère une erreur sur la dernière ligne

zone = ""
For Each Feuille In Sheets
If Feuille.Range("A1").Value = "essai" Then
If zone <> "" Then zone = zone & """, """
zone = zone & Feuille.Name
End If
Next Feuille
If zone = "" Then Exit Sub
Sheets(Array(zone)).Select

Merci de me lire et me répondre

Eric

 

[Zon]

Salut,

Array est un tableau en VBA de base 0 à 1 dimension. Il faut donc créer ce tableau pour pouvoir imprimer plusieurs feuilles en même temps. Depuis Excel 2000 pas besoin de sélectionner les feuilles pour les imprimer (ça bogue sur XL97 pour une macro lancée depuis un commandbutton)

dim Zone(),I&

For Each Feuille In Sheets
If Feuille.Range("A1").Value = "essai" Then
redim preserve zone(i)
zone(i)=feuille.name
i=i+1
end if
if i>0 then sheets(zone).printout
next feuille

Si tu veux aller plus loin avec les tableaux: Lien supprimé

A+++

 

[EricS]

Bonjour et merci

jevais cogiter tout cela
A+ sur le forum

Eric