Discussion :

[Tomeloale]

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 :

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

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 :

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

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

[alsimbad]

bonjour
essaye en remplaçant

Code :

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

Sheets(Array("a")).Select

par

Code :

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

Sheets(Array(a)).Select

ps : il manque un bonjour a ta requete

[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.

[AlainTech]

Je te propose une petite variante de ton code:

Code :

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

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

[decondelite]

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 :

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

Option Base 1

[Gorfael]

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

[decondelite]

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/

[Gorfael]

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 :

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

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+

[decondelite]

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

[AlainTech]

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

[Tomeloale]

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

Je te propose une petite variante de ton code:

Code :

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

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