Afficher numéro semaine

[dran_200]

bonjour a tous

j'ai trouvé cette macro pour afficher le numéro de la semaine en cellule D1
mais elle met une erreur
quelqu'un a une idée ?

macro :
Range("D1").Activate
ActiveCell.FormulaR1C1 = "=NUM.SEMAINE(RC[-2])"

merci

 

[VIARD]

Re : Afficher numéro semaine

Bonjour Dran

essai ceci
ActiveCell.FormulaR1C1 = "=weeknum(rc[-2])"

Salutation

Jean-Paul

 

[dran_200]

Re : Afficher numéro semaine

bonjour

ça ne fonctionne pas
j'ai toujours une erreur sur la cellule

merci

 

[JCGL]

Re : Afficher numéro semaine

Bonjour à tous,

Peux-tu essayer :

Range("D1").Formula = "=WEEKNUM(RC[-2])"

A+ à tous

 

[VIARD]

Re : Afficher numéro semaine

Bonjour à tous

Peut-être n'y a t-il pas le bon format date en "F1"

Mettre Pour essai en "F1" =AUJOURDHUI()

A+

Jean-Paul

 

[JCGL]

Re : Afficher numéro semaine

Bonjour à tous,
Salut Jean-Paul,

Pourquoi F1 ?
J'aurais mis une date en B1 ("=WEEKNUM(RC[-2])").

A++
A+ à tous

 

[VIARD]

Re : Afficher numéro semaine

Bonjour JCGL

Il semble que je me sois trompé de côté.
De toute façon le principe reste bon.

Salutation
Jean-Paul

 

[Modeste geedee]

Re : Afficher numéro semaine

Bonsour®

Bonjour à tous,

Peux-tu essayer :
Range("D1").Formula = "=WEEKNUM(RC[-2])"
A+ à tous

pour abonder dans ce sens et avec exhaustivité ...

' ----------syntaxe abs : Mot clé US ,
Range("D1").Formula = "=WEEKNUM($B$1)"

' ----------syntaxe abs locale : Mot clé FR ;
Range("E1").FormulaLocal = "=NO.SEMAINE($B$1)"

' ----------syntaxe relative : Mot clé US , RC [ ]
Range("F1").FormulaR1C1 = "=WEEKNUM(RC[-4])"

' ----------syntaxe relative locale : Mot clé FR ; LC ( )
Range("G1").FormulaR1C1Local = "=NO.SEMAINE(LC(-5))"

 

[Staple1600]

Re : Afficher numéro semaine

Bonjour à tous

Une autre possibilité
(même si je ne comprends pas pourquoi ne pas simplement utiliser la formule directement (sans vba))
Code vb:
Sub a()
'syntaxe pour sur XL 2013
'je ne sais plus si NO.SEMAINE.ISO est disponible sur XL2010 et XL2007.
[B1] = Date ' juste pour le test
[D1] = Application.WorksheetFunction.IsoWeekNum([B1])
End Sub

 

[MJ13]

Re : Afficher numéro semaine

Bonjour à tous

Personnellement, je n'utilise plus No.semaine car elle était buggée il y a queqlques années.

Je préfère ceci:

Code VBA:
Sub sem2()
ActiveCell.Offset(0, 1).Value = Val(Format(ActiveCell.Value, "ww", vbMonday, vbFirstFourDays))
End Sub

 

[Modeste geedee]

Re : Afficher numéro semaine

Bonsour®

Bonjour à tous

Personnellement, je n'utilise plus No.semaine car elle était buggée il y a queqlques années.
Je préfère ceci:
Code VBA:
Sub sem2()
ActiveCell.Offset(0, 1).Value = Val(Format(ActiveCell.Value, "ww", vbMonday, vbFirstFourDays))
End Sub

qui est buggée également ....


BUG: Les fonctions Format et DatePart peuvent renvoyer un numéro de semaine erroné pour le dernier lundi de l'année

Function SemISO (MyDate As Date) As Integer   ' Week Of Year
  SemISO= Format(MyDate, "ww", vbMonday, vbFirstFourDays)
  If SemISO > 52 Then
    If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then SemISO = 1
  End If
End Function

ou bien :
=ENT(MOD(ENT((A1-2)/7)+0,6;52+5/28))+1
Formule plus courte de numéro de semaine : Forum Excel

 

[MJ13]

Re : Afficher numéro semaine

Re

qui est buggée également ....

Oui, je sais , mais comme il y en a peu dans les années à venir, et que pour moi ce n'est par vital, je peux m'en passer

 

[JCGL]

Re : Afficher numéro semaine

Bonjour à tous,

ou bien :
=ENT(MOD(ENT((A1-2)/7)+0,6;52+5/28))+1

Pour ne pas avoir besoin de départager les Séparateur_Décimal Pointiste des Virguliste :

=ENT(MOD(ENT((A1-2)/7)+3/5;52+5/28))+1

A+ à tous

 

[dran_200]

Re : Afficher numéro semaine

re

j'ai essayé avec :

=ENT(MOD(ENT((A1-2)/7)+3/5;52+5/28))+1

en A1 j'ai :

Range("B1").Select
ActiveCell.FormulaR1C1 = "=TODAY()"

la date fonction

mais pas la semaine !!!!

merci

 

[dran_200]

Re : Afficher numéro semaine

re

c'est en B1 la date
et d2 la semaine

ActiveCell.FormulaR1C1 = "=ENT(MOD(ENT((B1-2)/7)+0,6;52+5/28))+1"