Selection d'onglet variable

Bonjour

voici ma problématique

je souhaite faire une selection de plusieurs onglets suivant un tableau. Le nom des onglets sont dans un tableau en colonne.

Je pensais utiliser Sheets(Array(A)).select et avec A une incrémenation.

or avec ma methodes j'obtiens :

A= "OP230, OP700, OP980". (une seule chaine de caractere)

pour que ca marche il faudrait avoir :

A= "OP230", "OP700", "OP980". (plusieurs chaines de caractere)

La finalité est de faire un save as en pdf

Merci d'avance

Si vous trouvez la solution cela pourrait me soulager mon cerveau qui bouillonne

:D:D:D

Bonjour,

Ca serait :

Code:

---

A = "OP230"", ""OP700"", ""OP980"

---

mais ça ne fonctionne pas parce que A est une variable de type "String" alors que "Array" nécessite 3 variables string. Mets :

Code:

---

1 2 3 4 5

Dim A(2) A(0) = "OP230" A(1) = "OP700" A(2) = "OP980" Sheets(A).Select

---

ou

Code:

---

1 2 3 4

var1 = "OP230" var2 = "OP700" var3 = "OP980" Sheets(Array(var1, var2, var3)).Select

---

Bonjour,

Une autre possibilité, en supposant par exemple que les noms des feuilles se trouvent en A1 à A4 de la première feuille :

Code:

---

1 2 3 4 5 6 7 8

Sub test() Dim i As Integer   For i = 1 To 4 Sheets(Sheets(1).Cells(i, 1).Text).Select False '<-- False pour signifier de ne pas remplacer la sélection précédente mais de l'ajouter à la sélection précédente Next   End Sub

---

Bonjour et merci

J'ai utilisé ta methode elle marche bien par contre dans la selection d'onglet la macro ajoute la page "active" dans la selection

Puis-je initialiser avec ceci ?

Sheets(X).select.true

merci d'avance

Ou bien, pour éviter une booucle :

Code:

---

Sheets(Application.Transpose([A1:A3])).Select

---

en adaptant la plage si elle est variable.