Erreur Propriete ou methode non gerer par cet objet

[treza88]

Bonjour a tous,

Quelqu'un peut il m'expliquer pourquoi j'ai cette erreur car je ne vois pas ce qui cloche.

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

 

[libellule85]

Bonjour treza88,
Peux-tu mettre un fichier pour que les excelliens puissent faire des essais

 

[treza88]

Désolé mais téléverser un fichier ne fonctionne pas !!!!!

 

[Si...]

bonjour

Je ne " vois " pas ce que tu cherches ici Tab_Feuil(j) = Sheets(Sheets(i).Name)

Si c’est le nom de l’onglet essaie : Tab_Feuil(j) = Sheets(i).Name

Depuis quelques temps, lorsque que je veux téléverser un fichier, je suis obligé, après le choix, de recharger la page

 

[treza88]

Je cherche a mettre l'objet feuille dans mon tableau.

Au meme titre que:

Liste = Array(Sheets("Feuil1"), Sheets("Feuil2"), Sheets("Feuil3")), Sheets("Feuil4"))

 

[treza88]

A ça y est j'ai réussi a mettre un fichier il a fallu que je change de navigateur.

Le fichier est vide avec plusieurs feuilles il faut lancer la procédure du module 1

 

[Si...]

re

nouveau code

Sub essai()
    Dim i As Integer, j As Integer, Tab_Feuil(), Liste()
    For i = 7 To 9
        If Sheets(i).Visible Then
            ReDim Preserve Tab_Feuil(j)
            Set Tab_Feuil(j) = Sheets(Sheets(i).Name)      '<----- ligne complétée
            j = j + 1
        End If
    Next 
    Liste = Tab_Feuil
    'pour voir
    For i = 0 To UBound(Liste): MsgBox (Liste(i).Name): Next
End Sub

 

[treza88]

Merci Si... ça a l'air de fonctionner a merveille

Mais peux tu m'expliquer ce que modifie le "Set" et a quoi il sert.
car a mon niveau je ne comprend pas pourquoi il faut rajouter le "Set".

 

[Si...]

et pour finir ...

Connais-tu la touche F1 ? Elle est vraiment indispensable quand on ne sait pas !

 

[treza88]

Ok Si... merci de finir par une belle mise en boite.

Et je dormirai ce soir plus instruit, je sais maintenant a quoi sert la touche F1 !!!

Merci encore pour ton coup de main

 

[Dranreb]

Bonsoir.
À noter quand même que Sheets(Sheets(i).Name) c'est ni plus ni moins que Sheets(i)