[RESOLU] Convertir date TextBox en N° de semaine

G

Guest

Guest

• 30 Septembre 2010

• #2

Re : Convertir date TextBox en N° de semaine

Bonjour,

Fais une recherche sur le forum, maintes maintes fois le sujet a été traité.
voir également en bas de cette page dans discussion similaire.

A+

 

Vote positif 0 Vote négatif

M

maninwhite

XLDnaute Occasionnel

• 30 Septembre 2010

• #3

Re : Convertir date TextBox en N° de semaine

Merci pour votre réponse, mais j'ai déjà regardé mais n'ai rien trouvé de concluant.

Ci dessous ma formule actuelle afin d'obtenir la date d'aujourd'hui et de la convertir dans un format classique.

Private Sub UserForm_Activate()

'Affichage de la date dans la Combobox date
TextBox_date = Date
TextBox_date.Value = Format(TextBox_date.Value, "dd/mm/yyyy")

End Sub

Il s'agirait de remplacer le code

TextBox_date.Value = Format(TextBox_date.Value, "dd/mm/yyyy")

Par le code me donnant le numéro de semaine.

Merci😀

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 30 Septembre 2010

• #4

Re : Convertir date TextBox en N° de semaine

Salut, voir sur https://www.excel-downloads.com/threads/calculer-un-numero-de-semaine-en-fonction-dune-date.98021/
et le fichier récap de JCGL (#9)

 

Vote positif 0 Vote négatif

M

maninwhite

XLDnaute Occasionnel

• 30 Septembre 2010

• #5

Re : Convertir date TextBox en N° de semaine

Merci pour ton aide Kiki

J'ai regardé le fichier mais étant un grand débutant en VBA, je ne comprends RIEN🙄

Par quelle code dois je remplacer

TextBox_date.Value = Format(TextBox_date.Value, "dd/mm/yyyy")

pour obtenir le format en date svp?

Merci

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 30 Septembre 2010

• #6

Re : Convertir date TextBox en N° de semaine

Bonjour à tous

Essayez ceci :

Code:

[COLOR="DarkSlateGray"][B]Private Sub UserForm_Activate()
[COLOR="Sienna"]'Affichage du n° de semaine courante dans la Combobox date[/COLOR]
TextBox_date.Value = Evaluate("=INT((TODAY()-SUM(MOD(DATE(YEAR(TODAY()-MOD(TODAY()-2,7)+3),1,2),{1E+99;7})*{1;-1})+5)/7)")
End Sub[/B][/COLOR]

Formule trouvée, par exemple, sous le dernier lien cité en bas de page...​

ROGER2327
#4214

Lundi 23 Absolu 138 (Sainte Varia-Miriam, amphibie, SQ)
9 Vendémiaire An CCXIX
2010-W39-4T09:51:06Z

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 30 Septembre 2010

• #7

Re : Convertir date TextBox en N° de semaine

Re, à priori par celles de Renauder càd nosem ou numsemaine

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 30 Septembre 2010

• #8

Re : Convertir date TextBox en N° de semaine

Bonjour à tous

Un petit exemple:

 

Pièces jointes

• USF_Num_Semaine.xlsm

  16.4 KB · Affichages: 111
• USF_Num_Semaine.xls

  39.5 KB · Affichages: 117

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 30 Septembre 2010

• #9

Re : Convertir date TextBox en N° de semaine

Re, MJ13 : par exmple le 29/12/2003 donne normalement N° de semaine 1 alors que la c'est 53 ....

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Septembre 2010

• #10

Re : Convertir date TextBox en N° de semaine

Bonjour à tous


[ironie douce]

Merci pour votre réponse, mais j'ai déjà regardé mais n'ai rien trouvé de concluant.

Cliquez pour agrandir...

Il fallait lire :
Merci pour votre réponse, mais j'ai déjà regardé (mais pas suffisamment) et je n'ai pas su trouvé quelque chose de concluant (car je maitrise mal les options nombreuses offertes par la Recherche avancée)
[/ironie douce]

L'ironie est douce car tu débutes sur le forum (donc il est normal que quelques maladresses soient commises)
Mais plus tard , quand tu seras un grand coutumier d'XLD, il se pourrait qu'elle devienne féroce 😉

PS:ce genre de chose ne serait jamais arrivé à un man in black !

 

Dernière édition: 30 Septembre 2010

Vote positif 0 Vote négatif

M

maninwhite

XLDnaute Occasionnel

• 30 Septembre 2010

• #11

Re : Convertir date TextBox en N° de semaine

Staple, je prendrai ta phrase au second degré.

Ce n'est pas que j'ai pas assez cherché ou mal, c'est que je suis débutant en VBa et je ne sais pas où placer tous les codes du fichier.

Merci pour ta comprehension.

@ Roger

Merci beaucoup de m'avoir "macher" le travail et surtout de m'avoir aidé

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 30 Septembre 2010

• #12

Re : Convertir date TextBox en N° de semaine

Re,

Kiki: Je pars toujours d'un principe que je ne sais rien.

Donc en général cela fonctionne sauf pour quelque dates (Roger est plus fort pour tous ces tests. Tiens, d'ailleurs je viens de voir qu'il est passé par la 😉).

Après c'est comme tout, il faut vérifier, sinon prendre les formules complexes dans les liens que tu as cité.

JM: Je ne sais pas si cela sert vraiment tes leçons de morale 😉.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Septembre 2010

• #13

Re : Convertir date TextBox en N° de semaine

Re

maninwhite
C'est bien au second degré qu'il fallait l'entendre.

MJ13: C'est pas de la morale
Juste de l'ironie
Car vois-tu, cela me désole que DavidXLD propose des plus sur XLD
(comme le préambule qui s'affiche quand on crée un discussion et qui invite à lire la charte) chose que très peu de nouveaux membres font avant de poster.
Mais comme je ne vais pas tarder à m'éclipser de nouveau d'XLD quelque temps, tu auras l'occasion de ne plus avoir à subir le désagrément de les lire 😉

 

Dernière édition: 30 Septembre 2010

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 30 Septembre 2010

• #14

Re : Convertir date TextBox en N° de semaine

Re

Bon, voici un petit fichier pour utiliser la version VBA du numéro de semaine.

Comme vous pourrez le constater, l'erreur est faible voir proche du néant 🙂.

 

Pièces jointes

• USF_Num_Semaine_2.zip

  25.2 KB · Affichages: 114

Vote positif 0 Vote négatif