comment récupérer le N° de semaine le plus élevé dans une boucle

[Paritec]

Bonjour a tous,
j'essaye de récupérer le numéro de semaine le plus élevé dans un classeur.
certaines feuilles son nommées Semaine1 Semaine2 etc
j'ai donc commencé la boucle ci-dessous mais je coince pour finir
si vous pouvez m'aider merci d'avance
Papou 🙂

Sub test()
    Dim sh As Worksheet
    For Each sh In Sheets
        If Left(sh.Name, 7) = "Semaine" Then i = Right(sh.Name, Len(sh.Name) - 7): If i >= a Then a = i
    Next sh
End Sub

EDIT: j'avais pas assez cherché voilà la solution enfin une des solutions merci tout de même

 

[Cousinhub]

Re : comment récupérer le N° de semaine le plus élevé dans une boucle

Bonsoir,

Peut-être ainsi :

Sub max_num_semaine()
Dim Sh As Worksheet
Dim NumSem As Byte, DerNum As Byte
For Each Sh In Sheets
    If Left(Sh.Name, 7) = "Semaine" Then
        NumSem = Right(Sh.Name, Len(Sh.Name) - 7)
        If NumSem > DerNum Then DerNum = NumSem
    End If
Next Sh
MsgBox "Dernière semaine : " & DerNum
End Sub

 

[Paritec]

Re : comment récupérer le N° de semaine le plus élevé dans une boucle

Re bonjour Le Forum,
Sujet Clos
a+
Papou 🙂

 

[Paritec]

Re : comment récupérer le N° de semaine le plus élevé dans une boucle

Bonjour BhBh le forum,
ben je vois que nous avons eu la même manière de régler le problème
merci pour tout
bonne journée au chaud ici encore du moins -4 °C ce matin brrrrr
a+
papou 🙂