les dates juste une précision

[xavier]

Bonjour à tous,

Je suis novice dans la programmation VBA. J'ai un petit pb pour utiliser le code de Laurent pour la fonction numérode 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

 

[vincent]

Salut

As tu verifier que le resultat de Q & rangee est compatible avec le format de D qui est declare comme date.

 

[ZON]

Bonsoir à tous,


Xavier si tu veux mettre ta formule dans la colonne Z à partir de date située en colonne Q

dim rangee as long
For rangee = 2 To Range("E65535").End(xlUp).Row
'N° de la semaine
Cells(rangee, 26).Formula= "=NOSEM(Q&" rangee ")"


A+++

 

[ZON]

Re,


le E65536 est à remplacer par Q65536

 

[xavier]

Merci à tous

XAvier