[RESOLU] Convertir date TextBox en N° de semaine

[maninwhite]

Bonjour à toutes et à tous

J'ai une date générée dans un TextBox par la formule =TODAY
Dans un tableau j'ai plusieurs lignes avec les numéros de semaine.

Dans un premier temps, comment convertir la date en numéro de semaine?
Une fois convertie, comment faire pour que la ligne correspondant au numéro de semaine soit automatiquement sélectionnée en fonction de la date de la TextBox?

Merci 😛

 

[Guest]

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+

 

[maninwhite]

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😀

 

[kiki29]

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)

 

[maninwhite]

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

 

[ROGER2327]

Re : Convertir date TextBox en N° de semaine

Bonjour à tous

Essayez ceci :

[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

 

[kiki29]

Re : Convertir date TextBox en N° de semaine

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

 

[MJ13]

Re : Convertir date TextBox en N° de semaine

Bonjour à tous

Un petit exemple:

 

[kiki29]

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

 

[Staple1600]

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.

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 !

 

[maninwhite]

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é

 

[MJ13]

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

 

[Staple1600]

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 😉

 

[MJ13]

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