Selection de pages multiples

Version imprimable

27/06/2007, 14h47
Korleone

Selection de pages multiples

Bonjour, je souhaiterais a travers VB selectionner toutes les Feuilles qui ne commencent pas par F1, dans le but de pouvoir les imprimer en une seule fois dans un PDF.

Je dispose d'une liste de noms de feuilles qui ne commencent pas par F1, mais je ne sais pas comment les selectionner. J'ai pensé a Array, mais je n'arrive pas à avoir le nom des pages sous forme de String, genre :

Code:

"Court Circuit 1", "Court Circuit 2", "Mesure distortion"

à la place, j'obtient

Code:

"Court Circuit 1, Court Circuit 2, Mesure distortion"

qui n'est pas pareil...

Merci de votre aide

PS : Je précise que les pages sont dynamiques (pas le même nom, ni n° de page à chaque fois)

"Une" solution

Code:

1
2
3
4
5
6
7
8
9
Dim LaFeuille As Worksheet
Dim Liste
Liste = Chr(34)
For Each LaFeuille In ActiveWorkbook.Worksheets
     If InStr(LCase(LaFeuille.Name), LCase("F1")) = 0 Then _
          Liste = Liste & LaFeuille.Name & Chr(34) & "," & Chr(34)
Next
Liste = Left(Liste, Len(Liste) - 2) 'retire la dernière virgule et le guillemet ajoutés
MsgBox Liste 'juste pour voir, à supprimer (!)

Tu dis
A+

PS - Pas certain que ce soit bon

28/06/2007, 11h40
Korleone

Merci ouskel'n'or, ta fonction marche à merveille, par contre, c'était une fausse piste que de passer par le

Code:

Sheets(Array(Liste)).Select

, parce que ça ne fonctionne pas... :(

Quelqu'un à une autre idée ?
28/06/2007, 11h49
Korleone

N'y a t-il pas moyen de faire :

Code:

Sheets.select

et d'enlever la feuille "F1" ?
28/06/2007, 11h51
nouha_79

bonjour,
essaye ce code la :

Code:

Sheets (Array("Court Circuit 1", "Court Circuit 2", "Mesure distortion")).Select
28/06/2007, 11h54
Korleone

Merci Nouha_79, cela fonctionne, le problème c'est que le nom de mes pages peut changer...
28/06/2007, 12h12
nouha_79

est ce que tu as essayer au lieu de definir chaque feuille avec son nom ,essaye de faire comme ca peut etre fonctionne meme si tu change le nom j ai pas tester ,mais essaye:

Code:

Sheets (Array(" Sheet 1", "Sheet 2", "Sheet 3")).Select
28/06/2007, 12h22
ouskel'n'or
Avec mon code, tu pourrais essayer

Code:

Sheets(Split(Liste,",")).select

ou si ça ne fonctionne pas
Code:

1 2 LeTableau = Split(List,",") Sheets(LeTableau).select
Pas testé
A+
28/06/2007, 14h13
Korleone

Merci de votre aide, mais aucune solution ne semble fonctionner... :(

L'indice n'appartient pas à la selection...

Il existe peut être un moyen de d'ajouter des feuilles à une sélection une par une ?
Un truc genre Sheets(LaFeuille).selection.add