Résolu - fonction NO.SEMAINE en vba

[QI dhuitre]

Bonjour le forum, je suis coincé car je n'arrive pas à obtenir le numéro de semaine d'une date.

Feuil3.Range("b" & i) = (la je veux transcrire:  NO.SEMAINE("C" & i))

(mes dates se trouve dans la colonne C)

J'ai essayé Feuil3.Range("b" & i).formulalocal = "=NO.SEMAINE("c" & i)" mais en vain...
J'ai essayé plein de truc mais je ne trouve pas la bonne syntaxe et j'ai bientôt plus de cheveux!!

Merci de votre aide

 

[Roland_M]

Re : fonction NO.SEMAINE en vba

bonsoir

essayer cette formule avec date en A1

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

 

[QI dhuitre]

Re : fonction NO.SEMAINE en vba

Bonsoir Roland_M...uh uh! Comment j'intègre ça dans ma macro ?!

Dans l'immédiat elle ressemble à ceci

Sub sem()
Dim i As Integer
i = 2
While Feuil3.Range("c" & i) <> ""
Feuil3.Range("a" & i) = i - 1
Feuil3.Range("b" & i) = !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
i = i + 1
Wend
End Sub

et c'est à la place des !!!!! qu'il faut que je puisse transcrire mon numéro de semaine...

 

[Roland_M]

Re : fonction NO.SEMAINE en vba

re

excuses moi effectivement c'est du vb que tu veux !

alors voir avec ceci de Renauder

Public Function NoDeSemRenauder1(D As Date) 'T As Long !
T& = DateSerial(Year(D + (8 - Weekday(D)) Mod 7 - 3), 1, 1)
NoDeSemRenauder1 = ((D - T& - 3 + (Weekday(T&) + 1) Mod 7)) \ 7 + 1
End Function

soit
Sub sem()
Dim i As Integer, D As Date
i = 2
While Feuil3.Range("c" & i) <> ""
D = Feuil3.Range("c" & i) '<<<<<<< voir ceci !?
Feuil3.Range("a" & i) = i - 1
Feuil3.Range("b" & i) = NoDeSemRenauder1(D)
i = i + 1
Wend
End Sub

 

[QI dhuitre]

Re : fonction NO.SEMAINE en vba

Super! c'est vraiment gentil de m'avoir donné se super truc mais je ne sais franchement pas quoi en faire...Sa s'utilise comment ?

 

[Roland_M]

Re : fonction NO.SEMAINE en vba

re

revoir mon message précédent après edit !

 

[QI dhuitre]

Re : fonction NO.SEMAINE en vba

Parfait, merci Roland_M !