Bonjour à tous,
J'ai un petit soucis avec mon pgm vba.
Jusqu'à maintenant l'affichage du n° sem fonctionnait très bien et depuis hier, il ne m'affiche plus rien...
Je ne sais pas si c'est à cause du nombre de ligne du tableau ( environ 430) mais auriez vous une idée de comment résoudre ce problème?
Voici le code utilisé:
Merci pour votre aide
Nimbus
J'ai un petit soucis avec mon pgm vba.
Jusqu'à maintenant l'affichage du n° sem fonctionnait très bien et depuis hier, il ne m'affiche plus rien...
Je ne sais pas si c'est à cause du nombre de ligne du tableau ( environ 430) mais auriez vous une idée de comment résoudre ce problème?
Voici le code utilisé:
Code:
Function prem(an As Integer) As Date
For n = CDate("01/01/" & an) To CDate("07/01/" & an)
If Weekday(n) = 5 Then prem = n - 3
Next n
End Function
Function NOSEM(ladate As Date) As Variant
NOSEM = Int((ladate - prem(Year(ladate))) / 7) + 1
If NOSEM = 53 And Weekday(ladate) < 5 Then NOSEM = "1 de " & Year(ladate) + 1
End Function
Merci pour votre aide
Nimbus