Discussion :

[Korleone]

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 :

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

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

à la place, j'obtient

Code :

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

"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)

[ouskel'n'or]

"Une" solution

Code :

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

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

[Korleone]

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

Code :

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

Sheets(Array(Liste)).Select

, parce que ça ne fonctionne pas...

Quelqu'un à une autre idée ?

[Korleone]

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

Code :

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

Sheets.select

et d'enlever la feuille "F1" ?

[nouha_79]

bonjour,
essaye ce code la :

Code :

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

Sheets (Array("Court Circuit 1", "Court Circuit 2", "Mesure distortion")).Select

[Korleone]

Merci Nouha_79, cela fonctionne, le problème c'est que le nom de mes pages peut changer...

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

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

Sheets (Array(" Sheet 1", "Sheet 2", "Sheet 3")).Select