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