Discussion :

[RichSant]

Bonjour,

Après de nombreuses recherches infructueuses, je me décide à demander de l'aide sur un petit problème que je n'arrive pas à résoudre.

Voici le contexte :
Je réalise une macro sur un fichier excel contenant 10 feuilles (nombre fixe, noms fixes)
Dans cette macro, l'utilisateur choisit une ou plusieurs feuilles en cochant des checkbox, une pour chaque feuille, dans le but de les imprimer.

J'aimerai sélectionner les feuilles en fonction de l'état de ces checkbox.

J'arrive à sélectionner un nombre fixe de feuilles en faisant :

Code :

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

Sheets.(Array("Feuil1","Feuil2")).Select

Mais lorsque je fais :

Code :

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

1
2
3
4
5
6
Dim Sheets2Print() As String  'Tableau des feuilles à imprimer, désignées par leur nom
ReDim Sheets2Print(nbSheets)  'Je redimensionne le tableau au nombre de feuilles que je veux imprimer, et qui est une variable
Sheets2Print(0) = "NomFeuille1"
Sheets2Print(1) = "NomFeuille2"
etc...
Sheets(Sheets2Print).Select

Une erreur s'affiche :

Erreur d'exécution '9':
L'indice n'appartient pas à la sélection

Et mes feuilles ne sont pas sélectionnées.
Attention, j'aimerais les sélectionner toutes en meme temps pour les imprimer.
Les sélectionner les unes à la suite des autres ne convient pas :
Si je fais

Code :

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

1
2
Sheets.("Feuil2").Select
Sheets.("Feuil2").Select

seule Feuil2 sera sélectionnée.

La solution est peut être toute bete, mais je ne la trouve pas !

Merci d'avance pour votre aide !

[zyhack]

Bonjour

je viens d'essayer ton code et il fonctionne, a mon avis comme ton tableau commence à 0 il faudrait que tu enlève 1 à nbsheets car en faisant ton redim, si nbsheets =2 (pour deux feuilles) tu vas avoir ceci dans ton tableau

Sheets2Print(0) = "NomFeuille1"
Sheets2Print(1) = "NomFeuille2"
Sheets2Print(2) = ""

et c'est dernière ligne qui te donne l'erreur.

en fait
ReDim Sheets2Print(2) correspond à 3 lignes dans le tableau

j'espère avoir été clair car je trouve ça assez difficile à expliquer

[RichSant]

Oh mon dieu...
Suis je bete.

En effet, je n'avais pas fait attention à la taille du tableau...
Que de temps perdu pour une petite inattention !
Ca m'apprendra à être plus rigoureux à l'avenir !

Tout fonctionne très bien à présent !
Merci beaucoup zyhack !