Discussion :

[Emixam79]

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 :

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

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 :

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

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

[Invité]

Bonsoir,

Code :

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

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