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

Paritec · 15 Février 2010

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 🙂

Code:

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 · 15 Février 2010

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

Bonsoir,

Peut-être ainsi :

Code:

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 · 15 Février 2010

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

Re bonjour Le Forum,
Sujet Clos
a+
Papou 🙂

Paritec · 15 Février 2010

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 🙂

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

Paritec

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

Paritec

XLDnaute Barbatruc

Paritec

XLDnaute Barbatruc

Discussions similaires

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

Paritec

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

Paritec

XLDnaute Barbatruc

Paritec

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency