Afficher numéro semaine

V

VIARD

XLDnaute Impliqué

• 11 Octobre 2013

• #2

Re : Afficher numéro semaine

Bonjour Dran

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

Salutation

Jean-Paul

 

Vote positif 0 Vote négatif

D

dran_200

XLDnaute Occasionnel

• 12 Octobre 2013

• #3

Re : Afficher numéro semaine

bonjour

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

merci

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 12 Octobre 2013

• #4

Re : Afficher numéro semaine

Bonjour à tous,

Peux-tu essayer :

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

Cliquez pour agrandir...

A+ à tous

 

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 12 Octobre 2013

• #5

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 12 Octobre 2013

• #6

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

 

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 12 Octobre 2013

• #7

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 12 Octobre 2013

• #8

Re : Afficher numéro semaine

Bonsour®

JCGL à dit:

Bonjour à tous,

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

Cliquez pour agrandir...

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))"

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Octobre 2013

• #9

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

 

Dernière édition: 12 Octobre 2013

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 12 Octobre 2013

• #10

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 12 Octobre 2013

• #11

Re : Afficher numéro semaine

Bonsour®

MJ13 à dit:

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

Cliquez pour agrandir...

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

Code:

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

 

Pièces jointes

• Capture.JPG

  30.6 KB · Affichages: 77
• Capture.JPG

  30.6 KB · Affichages: 76
• Capture.JPG

  30.6 KB · Affichages: 72

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 12 Octobre 2013

• #12

Re : Afficher numéro semaine

Re

qui est buggée également ....

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 12 Octobre 2013

• #13

Re : Afficher numéro semaine

Bonjour à tous,

Modeste geedee à dit:

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

A+ à tous

 

Vote positif 0 Vote négatif

D

dran_200

XLDnaute Occasionnel

• 12 Octobre 2013

• #14

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

 

Vote positif 0 Vote négatif

D

dran_200

XLDnaute Occasionnel

• 12 Octobre 2013

• #15

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"

 

Vote positif 0 Vote négatif