Débutant VBA pour excel lister les noms des feuilles dans une feuille de calcul

1 réponse
Avatar
bpascal123
Bonjour,

Je d=E9bute en vba mais pas en programmation. Je ne sais pas si c'est
dans ce forum que je dois poser mes questions ou dans celui relatif =E0
excel...

Bref, je voudrais savoir pourquoi le code ci-dessous ne fonctionne
pas :

Option Explicit

Public Sub SheetList()

Dim W As Worksheet
Dim i As Integer

Range("A1").Select

For i =3D 1 To i =3D ActiveWorkbook.Sheets.Count
Cells(i, 1) =3D W(i).Name
Next i

End Sub

D'un point de vu programmation, tout me para=EEt coh=E9rent. Maintenant,
comme je touche =E0 la poo, il me semble que le probl=E8me ici se situe au
niveau de l'utilisation des objets.

Merci
Pascal

1 réponse

Avatar
HD
Option Explicit
Public Sub SheetList()
Dim W As Worksheet
Dim i As Integer

Range("A1").Select

For i = 1 To i = ActiveWorkbook.Sheets.Count
Cells(i, 1) = Worksheet(i).Name
Next i

End Sub
D'un point de vu programmation, tout me paraît cohérent. Maintenant,
comme je touche à la poo, il me semble que le problème ici se situe au
niveau de l'utilisation des objets.


ça fonctionnera beaucoup mieux ainsi :

Public Sub SheetList()
Dim i As Integer

Range("A1").Select

For i = 1 To ActiveWorkbook.Sheets.Count
Cells(i, 1) = Worksheets(i).Name
Next i

End Sub



--
@+
HD