Range("A1:B9").Offset(15, 0).Cells(1, 1) =3D "Semaine (" & Str(x) & " )
du jj/mm/aa au jj+7/mm/aa"
mais j'aimerais bien savoir comment calculer ou trouver le num=E9ro se
semaine x anisi que leur dates respectives :
- Est-ce par calcule du numero de semaine ?
- Ou dois-je sasir les semaines a l'avance dans un feuille BDD et apres
je copie chaque cellule contenant une semaine donn=E9e correspondance a
la semaine en cours ?
Ou en VBA : Tu saisis la date que tu désires '--------------------------- Sub Test() NSem = ISOWeekNum(DateSerial(2003,4,18)) End sub '----------------------------- 'Code qui retourne le numéro de Sem Function ISOWeekNum(d1 As Date) As Integer Dim d2 As Long d2 = DateSerial(Year(d1 - WeekDay(d1 - 1) + 4), 1, 3) ISOWeekNum = Int((d1 - d2 + WeekDay(d2) + 5) / 7) End Function '-----------------------------
Pour le format nord américain dans une fenêtre VBA
Dim NoSem as integer B3 étant la cellule contenant la date. noSem = DatePart("ww", [b3].Value, vbSunday)
Salutations!
"apt" a écrit dans le message de news:
Bonsoir,
Voilà, j'ai cette ligne de code :
Range("A1:B9").Offset(15, 0).Cells(1, 1) = "Semaine (" & Str(x) & " ) du jj/mm/aa au jj+7/mm/aa"
mais j'aimerais bien savoir comment calculer ou trouver le numéro se semaine x anisi que leur dates respectives :
- Est-ce par calcule du numero de semaine ? - Ou dois-je sasir les semaines a l'avance dans un feuille BDD et apres je copie chaque cellule contenant une semaine donnée correspondance a la semaine en cours ?
Merci.
Bonjour Apt,
Voici une formule utilisable dans la feuille de calcul pour le calendrier 1900 ou 1904.
Cette formule est de Daniel Maher.
Tout sur la même ligne. B3 est la date pour laquelle tu veux obtenir le numéro
de semaine...
(si tu es français)
Ou en VBA : Tu saisis la date que tu désires
'---------------------------
Sub Test()
NSem = ISOWeekNum(DateSerial(2003,4,18))
End sub
'-----------------------------
'Code qui retourne le numéro de Sem
Function ISOWeekNum(d1 As Date) As Integer
Dim d2 As Long
d2 = DateSerial(Year(d1 - WeekDay(d1 - 1) + 4), 1, 3)
ISOWeekNum = Int((d1 - d2 + WeekDay(d2) + 5) / 7)
End Function
'-----------------------------
Pour le format nord américain dans une fenêtre VBA
Dim NoSem as integer
B3 étant la cellule contenant la date.
noSem = DatePart("ww", [b3].Value, vbSunday)
Salutations!
"apt" <apitops@gmail.com> a écrit dans le message de news: 1143756162.143475.164620@z34g2000cwc.googlegroups.com...
Bonsoir,
Voilà, j'ai cette ligne de code :
Range("A1:B9").Offset(15, 0).Cells(1, 1) = "Semaine (" & Str(x) & " )
du jj/mm/aa au jj+7/mm/aa"
mais j'aimerais bien savoir comment calculer ou trouver le numéro se
semaine x anisi que leur dates respectives :
- Est-ce par calcule du numero de semaine ?
- Ou dois-je sasir les semaines a l'avance dans un feuille BDD et apres
je copie chaque cellule contenant une semaine donnée correspondance a
la semaine en cours ?
Ou en VBA : Tu saisis la date que tu désires '--------------------------- Sub Test() NSem = ISOWeekNum(DateSerial(2003,4,18)) End sub '----------------------------- 'Code qui retourne le numéro de Sem Function ISOWeekNum(d1 As Date) As Integer Dim d2 As Long d2 = DateSerial(Year(d1 - WeekDay(d1 - 1) + 4), 1, 3) ISOWeekNum = Int((d1 - d2 + WeekDay(d2) + 5) / 7) End Function '-----------------------------
Pour le format nord américain dans une fenêtre VBA
Dim NoSem as integer B3 étant la cellule contenant la date. noSem = DatePart("ww", [b3].Value, vbSunday)
Salutations!
"apt" a écrit dans le message de news:
Bonsoir,
Voilà, j'ai cette ligne de code :
Range("A1:B9").Offset(15, 0).Cells(1, 1) = "Semaine (" & Str(x) & " ) du jj/mm/aa au jj+7/mm/aa"
mais j'aimerais bien savoir comment calculer ou trouver le numéro se semaine x anisi que leur dates respectives :
- Est-ce par calcule du numero de semaine ? - Ou dois-je sasir les semaines a l'avance dans un feuille BDD et apres je copie chaque cellule contenant une semaine donnée correspondance a la semaine en cours ?
