treza88
XLDnaute Occasionnel
Bonjour a tous,
Quelqu'un peut il m'expliquer pourquoi j'ai cette erreur car je ne vois pas ce qui cloche.
L'erreur ce situe sur la ligne :
Tab_Feuil(j) = Sheets(Sheets(i).Name)
Merci d'avance
Quelqu'un peut il m'expliquer pourquoi j'ai cette erreur car je ne vois pas ce qui cloche.
Code:
Dim i As Integer
Dim j As Integer
Dim Tab_Feuil() As Variant
Dim Liste As Variant
For i = 7 To 9
If Sheets(i).Visible = True Then
ReDim Preserve Tab_Feuil(j)
Tab_Feuil(j) = Sheets(Sheets(i).Name)
j = j + 1
End If
Next i
Liste = Tab_Feuil
L'erreur ce situe sur la ligne :
Tab_Feuil(j) = Sheets(Sheets(i).Name)
Merci d'avance