le max des noms

bjr
j'ai des feuilles nomées 1,2,3,.......................n
comment peut on savoir le max par une macro svp
merci infiniment.

Code:

---

1 2 3 4 5 6 7 8

Function NombreMax() As Single Dim ws As Worksheet, numero As Single NombreMax = Worksheets(1).Name For Each ws In Worksheets numero = ws.Name If numero > NombreMax Then NombreMax = numero Next End Function

---

Attention là ça ne marche que pour des feuilles de calcul: si c'est pour tous types de feuilles ou autre c'est à adapter. ;)
Ca marche pour n'importe quel ordre dans les feuilles, et même pour les nombres décimaux: testé.

merci decondelite
j'ai essayé une macro de oOVaveOo qui a le même principe que la tienne et ça marche.
le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub maximum() Dim sh As Worksheet Dim maxi As Integer maxi = 0 For Each sh In Worksheets If IsNumeric(sh.Name) Then If CInt(sh.Name) > maxi Then maxi = CInt(sh.Name) End If End If Next Worksheets(1).Range("a1").Value = maxi End Sub

---

merci bcp

Evite de poser la question sur 2 sujets différents la prochaine fois. ;)

Et à toi de choisir: pèse le pour et le contre de chacune des 2 méthodes.

merci à toi