Comment donner une instruction à une variable?

Bonjour,

Débutante, je m'appuie sur des codes existants (merci de vos contributions) pour apprendre et pour egalement m'en servir voire ameliorer; J'ai déclarer une Dim pour mettre. Celle-ci faite J'aimerai que ma Dim fasse un aperçu avant impression. Or je ne sais pas faire. Voir la dernière ligne qui ne fonctionne pas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub ccc() ' ' ccc Macro '   ' Dim liste, Cptr As Byte liste = Array("Liste B -", "Liste A -", "Liste HL -") For Cptr = 0 To UBound(liste) MsgBox (Cptr) Next liste.PrintPreview   End Sub

---

Merci de votre aide

Bonjour,
Est-ce que ta liste est une liste d'onglets? Pour faire référence à plusieurs onglets, on écrit :

Code:

---

Sheets(Array("Feuil1", "Feuil2", "Feuil3")).PrintPreview

---

Bonjour riaolle,

Oui ma liste correspond bien à une liste d'onglets. Cependant si je l'écrit avec "Sheets(Array..." comme tu l'indiques, l'ordre d'impression ne sera pas respecter comme je le souhaite. Mes onglets doivent s'imprimer dans le désordre d'où la variable liste.

Je me réponds à moi-même car j'ai trouvé une solution afin de réaliser une impression des onglets dans le désordre. Pour ceux que ça intéresse car visiblement c'est galère :
J'ai utilisé la commande move Before.
Pour ne pas faire d'impairs avec l'aide de l'enregistreur de macro, j'ai modifié glisser/déplacer mes onglets en fonction de mon besoin d'impression. J'ai sélectionné ensuite l'ensemble de mes onglets afin de creer un groupe de travail puis lancer la commande impression. Enfin, j'ai remis mes onglets à leur place initiale. J'ai arrêté l'enregistreur de macro. Tout fonctionne sans ralentissement. J'ai ajouté dans la macro l'aperçu avant impression : c'est parfait.

A bientôt