Débutant VBA pour excel lister les noms des feuilles dans une feuille de calcul
1 réponse
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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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