Creer une variable contenant plusieurs onglets

J'essaie de créer une variable dans le vba me permettant de lui attribuer plusieurs onglets dans le but d'imprimer ces onglets. Mon code sans variable est le suivant :

Code:

---

1 2	Sheets(Array("ELODIE", "ALEX", "TOMMY")).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

---

C'est ces noms d'onglets que j'aimerais rendre variable. J'ai donc choisi une cellule dans l'onglet impression dont le contenu est les noms d'onglets que je voulais imprimersoit "ELODIE", "ALEX", "TOMMY" et j'ai par la suite attribué cette valeur à une variable dans mon code VBA:

Code:

---

1 2 3 4 5 6

Dim p As Worksheet Dim a As String Set p = ActiveWorkbook.Worksheets("Impression") '.Range("B5").Value a = p.Range("B6").Value Sheets(Array("a")).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

---

Bien qu'il reconnait la valeur de la variable a comme étant "ELODIE", "ALEX", "TOMMY" il me donne un message comme quoi l'indice n'appartient pas à la sélection à la ligne de code Sheets(Array("a")).Select

Quelqu'un peut-il m'aider?

Merci

bonjour
essaye en remplaçant

Code:

---

Sheets(Array("a")).Select

---

par

Code:

---

Sheets(Array(a)).Select

---

ps : il manque un bonjour a ta requete

Bonjour,

J'ai essayé sans les guillemets mais cela me fait toujours le même message d'erreur. Je crois aussi que cela vient de la façon dont il interprète la variable. Soit "ELODIE", "ALEX", "TOMMY" vs " "ELODIE", "ALEX", "TOMMY"", si il tient compte des guillemet double ou non, ce que je ne sais pas.

Merci pour votre aide précieuse.

Je te propose une petite variante de ton code:

Code:

---

1 2 3 4 5 6

Dim p As Worksheet Dim a() As String Set p = ActiveWorkbook.Worksheets("Impression") a = Split(p.Range("B6").Value, ",") Sheets(a).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

---

Dans la cellule B6, écris les noms des feuilles sans guillemets ni espaces:
ELODIE,ALEX,TOMMY

Citation:

---

Envoyé par Tomeloale

Bonjour,

J'ai essayé sans les guillemets mais cela me fait toujours le même message d'erreur. Je crois aussi que cela vient de la façon dont il interprète la variable. Soit "ELODIE", "ALEX", "TOMMY" vs " "ELODIE", "ALEX", "TOMMY"", si il tient compte des guillemet double ou non, ce que je ne sais pas.

Merci pour votre aide précieuse.

---

A tout hasard, si ta variable a est censée partir de 1, mets ceci tout en haut de ton module:

Code:

---

Option Base 1

---

Salut à tous
À ma connaissance, on ne peut pas le feire directement :
peut-être en créant la macro par le code, mais, je reconnais mon incompétence là-dessus. ce qui pose problème, je présume, est que les "," font partie de l'instruction et non de la variable
Tu as la solution d'imprimer page par page dans une boucle
for each Cel in range([B1],[B65536].end(xlup))

next cel

Purée je n'y avais pas fait gaffe: j'ai déjà donné la solution à ton problème à quelqu'un d'autre sur ce forum. Il avait exactement le même problème, mais je ne me souviens plus ce que je lui ai répondu.

J'ai mis un petit peu de temps mais je l'ai retrouvé:
http://www.developpez.net/forums/d63...iste-cochable/

Salut à tous
À ma connaissance, on ne peut pas le feire directement :
peut-être en créant la macro par le code, mais, je reconnais mon incompétence là-dessus. ce qui pose problème, je présume, est que les "," font partie de l'instruction et non de la variable
Tu as la solution d'imprimer page par page dans une boucle

Code:

---

1 2	for each Cel in range([B1],[B65536].end(xlup)) if not isempty(cel) then sheets(cel).PrintOut...

---

Seulement si c'est pour faire un document avec des pages numérotées...
- Soit on recalcule la numérotation dans le programme (bof), soit si on a un nombre de page limité, on crée des modéle d'impressions de 1, 2, ... X pages, avec un chargement des noms dans un tableau qui donnera le préformatage a imprimer avec un "select case" par exemple
Un petit classeur pour préciser mes dire

A+

Sinon ça fonctionnait pour toutes les pages voulues d'un coup pour l'autre personne concernée... avec un seul printout... :roll:

Je vous signale que j'ai testé le code proposé dans ce message et qu'il fonctionne suivant les désirs du posteur.

Un gros merci à vous tous pour votre aide et votre grande efficacité la suggestion de M. Tech fonctionne parfaitement soit :

Citation:

---

Envoyé par AlainTech

Je te propose une petite variante de ton code:

Code:

---

1 2 3 4 5 6

Dim p As Worksheet Dim a() As String Set p = ActiveWorkbook.Worksheets("Impression") a = Split(p.Range("B6").Value, ",") Sheets(a).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

---

Dans la cellule B6, écris les noms des feuilles sans guillemets ni espaces:
ELODIE,ALEX,TOMMY

---

:)