En vba n° de semaine à partir d'une date

Re,

Déjà une fonction personnaliséeque tu pourras réutiliser dans le classeur (à mettre dans un module) :

Function NoSemaineISO(d As Date) As Integer
    NoSemaineISO = Format(d, "ww", vbMonday, vbFirstFourDays)
End Function

et la macro qui traite ta feuille :

Sub semISO()
    Dim lig As Long
    For lig = 1 To [A65536].End(xlUp).Row
        If Cells(lig, 1) <> "" And IsDate(Cells(lig, 3)) Then
            Cells(lig, 4) = NoSemaineISO(Cells(lig, 3))
        End If
    Next lig
End Sub

Précise si c'était un autre fonctionnement que tu voulais.
eric

Re,

Il est possible d'écrire plusieurs formule pour calculer le n° semaine

=NO.SEMAINE(B2;2)
ou encore
=ENT(MOD(ENT((B2-2)/7)+0,6;52+5/28))+1
mais il en existe bien d'autre qui donnent pas tout a fait le même résultat exemple 01/01/2010 jusqu'au 04/01/2010 certaines donne 53 éme semaine qui est en fait la fin de la dernière semaine de l'année précédente, d'autre commence par 1ére semaine au premier janvier ce qui donne un décalage de 1

je te donne deux formules à placer en C2

=SI(A2<>"";NO.SEMAINE(B2;2);"")

ou

=SI(A2<>"";ENT(MOD(ENT((B2-2)/7)+0,6;52+5/28))+1;"")

Si tu tiens au VBA c'est tout à fait possible, mais pourquoi faire compliqué

Bonsoir,

Si ta colonne C est également entièrement remplie (sans cellule vide) double-clique sur la poignée de recopie (le petit carré noir en bas à droite de ta cellule sélectionnée).
Ta formule se recopiera jusqu'en bas.
eric

Super, merci Eric c'est ce que je voulais, comment je fais pour clore ma question ?

Et encore merci, bonne soirée.

Personne à une petite idée ..

Salut,

Tiens tu vraiment à du VBA, il est possible de faire ça par simple formule

Bonsoir et merci de m'avoir répondu,
je connais la formule pour trouver ma semaine, le problème c'est de la dupliquer tant que j'ai des articles dans colonne A et le nombre de ligne est variable d'une semaine à l'autre. Merci de ton aide

Merci Mike, je connais la formule j'ai écris ceci
=SI(C2<AUJOURDHUI();ENT(MOD(ENT((AUJOURDHUI()-2)/7)+0,6;52+5/28))+1;ENT(MOD(ENT((C2-2)/7)+0,6;52+5/28))+1)
çà fonctionne très bien même avec la semaine 53, le problème c'est que je veux dupliquer cette formule tant que j'ai des données dans ma colonne A et d'une semaine à l'autre elles changes. Merci encore pour ton aide.

Bonsoir Eric et merci de ta réponse,
je connais tout ça mais ce n'est pas moi qui l'utilise et les personnes ne trouvent pas le pointeur ou me décalent les celules, c'est pourquoi je veux l'écrire en VB avec un bouton et voilà.
Merci de ton aide.