Numéro de semaine

[Ken Hutchinson]

Re ola !!!

Je cherche a calculer le numéro de semaine à partir d'une date. mais je galère avec la fonction NO.SEMAINE car je n'arrive pas à l'intégrer dans une boucle...

je cherche la correspondance en vba de cette fonction... qui me semble être datepart... mais je ne capte rien à l'aide d'excel sur cette fonction...

pouvez vous m'aider svp ?

 

[Ken Hutchinson]

Re : Numéro de semaine

Je ne fais que ça !! et je ne pige toujours pas...

c'est trop complexe pour mon niveau...

 

[Staple1600]

Re : Numéro de semaine

Re


Essaye cette macro pour test

Sub test()
Dim NUMSEM as Integer
NUMSEM= DatePart("ww", Date, vbMonday, vbFirstFourDays)
Msgbox NUMSEM
End sub

Tu peux aussi par formule
ou D est la date

=ENT((D+5-SOMME(MOD(DATE(ANNEE(D-MOD(D-2;7)+3);1;2);{1E+99;7})*{1;-1}))/7)

ce qui donne
=ENT((AUJOURDHUI()+5-SOMME(MOD(DATE(ANNEE(AUJOURDHUI()-MOD(AUJOURDHUI()-2;7)+3);1;2);{1E+99;7})*{1;-1}))/7)

Ceci étant une formule des plus longues

En plus court: exemple en A1 tu as : 25/10/2007
en B1 tu saisis la formule ci-dessous:

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

 

[Ken Hutchinson]

Re : Numéro de semaine

OK !!

ça marche mais pour bien comprendre :

il faut que je remplace "Date" dans la fonction par la cellule qui contient ma date ?

car je possède un fichier avec une colonne remplie de dates en regard desquelles je veux mettre le n uméro de semaine

et je veux en faire une boucle jusqu'à ce qu'il n'y ait plus de date a convertir...

 

[Épaf]

Re : Numéro de semaine

Bonjour Key,
Tu adaptes les N° de ligne et de colonne

Sub LeTest()
Dim Plage1 As Range, cell As Range
Dim NoCol, DerniereLigne
    NoCol = 3 'en supposant que tes dates soient en colonne 3
    DerniereLigne = Cells(Columns(NoCol).Cells.Count, NoCol).End(xlUp).Row
    'En supposant que tes dates commencent ligne 2
    Set Plage = Range(Cells(2, NoCol), Cells(DerniereLigne, NoCol))
        For Each cell In Plage
            'en supposant que tu mettes les N° de semaine en colonne 4
            Range(cell.Address).Offset(0, 1) = DatePart("ww", cell, vbMonday, vbFirstFourDays)
        Next
    Set Plage = Nothing
End Sub

@+

 

[Ken Hutchinson]

Re : Numéro de semaine

Là on touche au but !!!

mais ça me renvoie toujours le numéro 43... je pense que ça se réfère toujours à la même cellule... et les date en col3 sont toutes différentes...

je pensais pas que ça pouvait être aussi complexe....😱

 

[Épaf]

Re : Numéro de semaine

Si toutes tes dates sont dans la même semaine, il est normal d'avoir le même N° de semaine... Je viens de tester sur 75 jours et j'ai 10 N° de semaines.
Tu confirmes ?

 

[Ken Hutchinson]

Re : Numéro de semaine

Je confirme que je suis un gros blaireau !!!😀

ça marche nickel !!! je pouvais pas trouver mieux !!

Superbe !!!

merci !!!