Discussion :

[ericdev67]

Bonjour,

Petit soucis avec les numéros de semaine :

Dans la colonne CD, j'ai des dates.
Je cherche les numéros de semaine. Je fais une boucle (j)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(WeekNum(Cells(j, 82), 1))

et ça ne fonctionne pas. J'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

((Cells(j, 82), 1).weeknum)

idem, marche pas (j'ai essayé car dans une autre colonne, il fallait que je transforme des nombres enregistrés en texte en nombre, comme CNUM ne fonctionnait pas, j'ai essayé "cells(j,50).value" et là, j'avais le bon résultat)

Une idée ?

Merci,

A+

[Arkham46]

bjr,

essayer avec WorksheetFunction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WorksheetFunction.WeekNum

[Qwazerty]

Salut
En faisant une recherche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Semaine = Format(ddate, "ww", , vbFirstFourDays)

En faite on ne calcul pas le numéro de semaine comme les américains, en France la semaine 1 d'une année est attribué a la 1ere semaine de 4 jours, donc a la 1ere semaine ayant un jeudi.

++
Qwaz

[ericdev67]

Merci Arkham46,
Merci Qwazerty,

Qwazerty, j'avais trouvé ce post hier soir, mais comme je n'avais pas compris la formule et/ou son sens, j'ai utilisé l'assistant macro et j'ai fait des essais.....

J'ai repris la formule de Silkyroad et l'ai modifié pour avoir les "bons" numéros de semaine (il suffit de faire -1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ENT(MOD(ENT((A1-1)/7)+0,6;52+5/28))+1

, ainsi si je mets 2/1/2011 en A1, j'ai comme résultat : 1


Merci à tous les 2 et merci à toi Qwazerty de m'avoir rappelé qu'il est complètement inutile de chercher des solutions et de galèrer, alors que la solution est déjà sur le forum..........et grâce à ton explication, j'ai aussi enfin compris les particularités des dates US/EUR....

A+ pour de prochaines aventures