compter le nombre de feuil dans un classeur

Bonjour.

Sub ListeFeuilles()
MsgBox "Nombre de feuilles : " & Sheets.Count
Sheets("Liste").Select
Range("A1").Select
For i = 1 To Sheets.Count
ActiveCell.Value = Sheets(i).Name
ActiveCell.Offset(1, 0).Select
Next i
End Sub

Cordialement.
Daniel
"thibaut" <serial_darknaz@hotmail.com> a écrit dans le message de news:
Oij1pVDYFHA.1204@TK2MSFTNGP10.phx.gbl...

voila mon problème je souhaiterai compter le noimbre de feuil dans une
classeur excel

Et en plus je voudrais inscrire le nom de chacune de ces feuille dans une
autre feuille nommé LISTE ( en colonne)

merci d'avance

Salut

msgbox Worksheets.Count &" feuilles dans le classeur"

report avec liens hypertextes sur la première feuille
Sub TableMatiere()
With Sheets(1)
.[a:a].Clear
For i = 2 To Worksheets.Count
.Hyperlinks.Add Anchor:=.Cells(i, 1), Address:="", SubAddress:= _
"'" & Sheets(i).Name & "'!A1", TextToDisplay:=Worksheets(i).Name
Next
End With
End Sub

a+
rural thierry
"thibaut" <serial_darknaz@hotmail.com> a écrit dans le message de news:
Oij1pVDYFHA.1204@TK2MSFTNGP10.phx.gbl...

voila mon problème je souhaiterai compter le noimbre de feuil dans une
classeur excel

Et en plus je voudrais inscrire le nom de chacune de ces feuille dans une
autre feuille nommé LISTE ( en colonne)

merci d'avance

Et en plus je voudrais inscrire le nom de chacune de ces feuille dans une
autre feuille nommé LISTE ( en colonne)

Sub zzz()
x = Sheets.Count: y = 1
msgbox x
For i = 1 To x
If Sheets(i).Name = "LISTE" Then
Else: Range("LISTE!A" & y) = Sheets(i).Name
y = y + 1
End If
Next
End Sub

AV

merci a tous le problème est réglé ;-)



"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
eKsTHyDYFHA.3188@TK2MSFTNGP09.phx.gbl...

Et en plus je voudrais inscrire le nom de chacune de ces feuille dans une
autre feuille nommé LISTE ( en colonne)

Sub zzz()
x = Sheets.Count: y = 1
msgbox x
For i = 1 To x
If Sheets(i).Name = "LISTE" Then
Else: Range("LISTE!A" & y) = Sheets(i).Name
y = y + 1
End If
Next
End Sub

AV