Résolu - fonction NO.SEMAINE en vba

Roland_M

XLDnaute Barbatruc

• 5 Mai 2015

• #2

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)

 

Vote positif 0 Vote négatif

Q

QI dhuitre

XLDnaute Junior

• 5 Mai 2015

• #3

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

Code:

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...

 

Dernière édition: 5 Mai 2015

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 5 Mai 2015

• #4

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

 

Dernière édition: 5 Mai 2015

Vote positif 0 Vote négatif

Q

QI dhuitre

XLDnaute Junior

• 5 Mai 2015

• #5

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 ?

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 5 Mai 2015

• #6

Re : fonction NO.SEMAINE en vba

re

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

 

Vote positif 0 Vote négatif

Q

QI dhuitre

XLDnaute Junior

• 5 Mai 2015

• #7

Re : fonction NO.SEMAINE en vba

Parfait, merci Roland_M !

 

Vote positif 0 Vote négatif