Problème numéro semaine

[Rubis57]

Bonjour tout le monde,

dans le fichier ci-joint je souhaiterai avant en cellule B8 le numéro de la 1ère semaine de l’année suivante , c’est a dire de 2025.

Merci pour votre aide.

Rubis
Rubis57 Essai.xlsm (12,9 Ko)

[af291]

Bonjour ,
au plus simple :
Rubis57 Essai.xlsm (12,8 Ko)
Je pense que tu souhaite avoir toute les années suivantes ?

[Rubis57]

Bonjour,

Merci pour ton retour.
Oui je souhaiterai avoir pour les années suivantes.

[Cow18]

Rubis57 Essai (1).xlsm (13,3 Ko)

[Rubis57]

Bonjour Cow18, re af291,

je me suis mal pris pour mon fichier de modèle.

Je joins un nouveau fichier.
Lorsque je clique pour appeler le UserForm1 et que j’appelle le calendrier je peux insérer une date en cellule B10.

Si maintenant je veux insérer la date du 30 décembre 2024 il me l’inscrit bien en B8 mais il devra également m’inscrire en B10 le numéro de la semaine, qui devrait être Semaine N° 1.

Voila, désolé pour ma première explication.

Merci à vous.
Rubis57 Essai.xlsm (12,9 Ko)

[Cow18]

il n’y a pas un UF1 dans votre fichier

[Rubis57]

Bonjour le lundi

le voici, désolé
Rubis57 Essai.xlsm (57,2 Ko)

[Cow18]

Private Sub CommandButton2_Click()
     Dim Wd As Worksheet, MaDate As Long
     Set Wd = Sheets("Feuil1")
     MaDate = CDate(Me.TextBox1)
     Wd.Range("B8") = MaDate
     Wd.Range("B10").Value = WorksheetFunction.IsoWeekNum(MaDate)
     DoEvents
     MsgBox " Date insérée !"
     Unload Me
End Sub

[Rubis57]

Re,

Nickel. Merci à toi pour ton travail.

A une prochaine fois.

[Rubis57]

Juste une dernière question ;

si je voudrai avoir un second textbox sur mon userform qui affiche lors de la selection de date, le n° de la semaine.
Pourriez vous rajouter cela ?

[Cow18]

Rubis57 Essai (4).xlsm (56,0 Ko)

[Rubis57]

Superbe.
Merci beaucoup à toi.