Je suis novice dans la programmation VBA. J'ai un petit=20
pb pour utiliser le code de Laurent pour la fonction=20
num=E9ro de la semaine.
Je vous transmets le code..
J'esp=E8re que vous pourrez m'aider, je suis d=E9sesp=E9r=E9.
Merci
Cordialement,
Xavier
For rangee =3D 2 To Range("E65535").End(xlUp).Row
'N=B0 de la semaine
Cells(rangee, 26).FormulaR1C1 =3D "=3DNOSEM(Q & rangee)"
=20
Next rangee
Function NOSEM(D As Date) As Long
D =3D Int(D)
NOSEM =3D DateSerial(Year(D + (8 - Weekday(D)) Mod 7 -=20
3), 1, 1)
NOSEM =3D ((D - NOSEM - 3 + (Weekday(NOSEM) + 1) Mod 7))=20
\ 7 + 1
End Function
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
...Patrick
Voilà :
Sub PAT() For rangee = 2 To Range("E65535").End(xlUp).Row 'N° de la semaine Cells(rangee, 26).Formula = "=NOSEM(E" & rangee & ")" Next rangee End Sub
...Patrick
"xavier" a écrit dans le message de news: 007c01c361b8$470ee0e0$ Bonjour à tous,
Je suis novice dans la programmation VBA. J'ai un petit pb pour utiliser le code de Laurent pour la fonction numéro de la semaine.
Je vous transmets le code..
J'espère que vous pourrez m'aider, je suis désespéré.
Merci
Cordialement,
Xavier
For rangee = 2 To Range("E65535").End(xlUp).Row 'N° de la semaine Cells(rangee, 26).FormulaR1C1 = "=NOSEM(Q & rangee)"
Next rangee
Function NOSEM(D As Date) As Long D = Int(D) NOSEM = DateSerial(Year(D + (8 - Weekday(D)) Mod 7 - 3), 1, 1) NOSEM = ((D - NOSEM - 3 + (Weekday(NOSEM) + 1) Mod 7)) 7 + 1 End Function
Voilà :
Sub PAT()
For rangee = 2 To Range("E65535").End(xlUp).Row
'N° de la semaine
Cells(rangee, 26).Formula = "=NOSEM(E" & rangee & ")"
Next rangee
End Sub
...Patrick
"xavier" <moes_xavier@yahoo.fr> a écrit dans le message de news:
007c01c361b8$470ee0e0$a401280a@phx.gbl...
Bonjour à tous,
Je suis novice dans la programmation VBA. J'ai un petit
pb pour utiliser le code de Laurent pour la fonction
numéro de la semaine.
Je vous transmets le code..
J'espère que vous pourrez m'aider, je suis désespéré.
Merci
Cordialement,
Xavier
For rangee = 2 To Range("E65535").End(xlUp).Row
'N° de la semaine
Cells(rangee, 26).FormulaR1C1 = "=NOSEM(Q & rangee)"
Next rangee
Function NOSEM(D As Date) As Long
D = Int(D)
NOSEM = DateSerial(Year(D + (8 - Weekday(D)) Mod 7 -
3), 1, 1)
NOSEM = ((D - NOSEM - 3 + (Weekday(NOSEM) + 1) Mod 7))
7 + 1
End Function
Sub PAT() For rangee = 2 To Range("E65535").End(xlUp).Row 'N° de la semaine Cells(rangee, 26).Formula = "=NOSEM(E" & rangee & ")" Next rangee End Sub
...Patrick
"xavier" a écrit dans le message de news: 007c01c361b8$470ee0e0$ Bonjour à tous,
Je suis novice dans la programmation VBA. J'ai un petit pb pour utiliser le code de Laurent pour la fonction numéro de la semaine.
Je vous transmets le code..
J'espère que vous pourrez m'aider, je suis désespéré.
Merci
Cordialement,
Xavier
For rangee = 2 To Range("E65535").End(xlUp).Row 'N° de la semaine Cells(rangee, 26).FormulaR1C1 = "=NOSEM(Q & rangee)"
Next rangee
Function NOSEM(D As Date) As Long D = Int(D) NOSEM = DateSerial(Year(D + (8 - Weekday(D)) Mod 7 - 3), 1, 1) NOSEM = ((D - NOSEM - 3 + (Weekday(NOSEM) + 1) Mod 7)) 7 + 1 End Function