calcul N° Semaine

[albert]

bonjour à tous,

je trorture ma macro depuis un moment...je n'obtiens pas le numéro de chaque semaine...

quelqu'un peut me dire ce qui cloche ?
j'ai pris la fonction sur
http://longre.free.fr/pages/form/dateheure.htm#Numsemaine

merci d'avance

albert

 

[Mytå]

Salut le forum

Albert essaye plutot

= NOSEM(A2) comme formule pour reference ta fonction
= NOSEM(A3)
.....
= NOSEM(Ax)

Mytå

 

[albert]

bonjour Mytå,

ça ne marche pas dans vba il me faut des variables

j'ai déjà une feuille de calcul des semaines en formules excel, ça prend trop de mémoire pour transformer des historiques sur 5 ans...

je viens de trouver un code je vais essayer de l'adapter (à première vue c'est pas simple)

Calcul du numéro de semaine (norme ISO)3ème soluce
http://perso.wanadoo.fr/frederic.sigonneau/Calendriers.htm

 

[Mytå]

re albert

voila ta macro modifier, j'avais mal lu ton probleme

Sub Calcul()
Dim rangee As Long
Sheets("Feuil1").Activate
For rangee = 2 To Range("E65535").End(xlUp).Row
Cells(rangee, 5).FormulaR1C1 = "= NOSEM(RC[-4])"
Next rangee
End Sub

Mytå

 

[albert]

merci Mytå,
je regarde çà demain à la 1ère heure

bonne soirée

albert

 

[C@thy]

Bonjour Albert

En français il existe la fonction NO.SEMAINE(). Pour l'utiliser dans ta feuille de calcul (hors macro) : Outils Macros complémentaires cocher la case à gauche du mot Utilitaire d'analyse (voir l'aide sur cette fonction de date).

http://www.excel-downloads.com/html/French/CharteXLD.php

 

[albert]

bonjour C@thy,
nos calendriers ne correspondent pas, semble-t-il à la fonction NO.SEMAINE().


http://longre.free.fr/pages/form/dateheure.htm

ATTENTION, si l'on veut calculer des numéros de semaines ISO, ceux en particulier du calendrier français, il ne faut pas utiliser la fonction NO.SEMAINE proposée par l'Utilitaire d'analyse. Celle-ci renvoie un numéro de semaine calculé d'après la méthode utilisée aux Etats-Unis, qui n'est pas conforme à la définition ISO utilisée en France.

 

[albert]

j'obtiens un bon résultat en A1.
j'ai essayé une boucle For i=1 To ... Next pour les lignes suivantes
ainsi que la formule de Mytå pour Sub Calcul()

... marche pas...
quelqu'un a un idée pour le fichier joint ('suis pas doué)