Remplir un tableau avec le nom des onglets

Bonsoir à tous,

J'aurai besoin de votre aide. Je cherche à remplir, sous certaines conditions, un tableau avec le nom des onglets.

J'ai testé le code suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim Ws As Worksheet Dim Montab(9) As String Dim k As Integer   k = 0   For Each Ws In Worksheets   If Condition 1 Then Montab(k) = Ws.Name k = k + 1 End If     Next Ws

---

Et j'ai une erreur au niveau de

Code:

---

Montab(k) = Ws.Name

---

J'ai testé avec une range contenant les noms des feuilles, et ça fonctionne. Cependant, ce n'est pas très flexible (et pas très propre)...

Pourriez-vous m'indiquer où est mon erreur?

Merci!
Emixam

Bonsoir,

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Montab()   Dim k As Integer, k2 AS iNTEGER For k=1 to sheets.count If Condition 1 Then Redim Preserve Montab(k2) Montab(k2) = Worksheets(K).Name K2 = K2+1 End If Next

---