Discussion :

[abouhossam]

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

[decondelite]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[abouhossam]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[decondelite]

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.

[abouhossam]

merci à toi