Aide dans la création d'un userform

Bonjour,

Je sollicite votre aide car je bloque dans la création d'un userform.

J'ai créé une textbox3 à remplir par une date et qui renvoie celle-ci dans la feuille excell "Menu" en position T5.

En T6, je calcule le numéro de semaine correspondant via la formule NO.SEMAINE.

Je voudrais récupérer dans mon userform le résultat de T6 dans une textbox4 et la mettre à jour à chaque fois que j'insère une nouvelle date en textbox3.

Est ce possible ?

Merci à tous.

Edit modo : fichier Word supprimé

Bonjour Raph1976

Merci de joindre votre fichier Excel avec l'USF et non un Word SVP

A+

Désolé, voici le fichier excell.

Merci.

Une proposition : (à mon avis, inutile d'aller chercher dans la feuille quoi que ce soit puisqu'on peut tout faire dans l'UF) :

Merci Optimix , ça fonctionne parfaitement.

Une amélioration :

Pour être certain que votre saisie est correcte, et que vous avez bien saisi une date, il serait utile de rajouter :

1 / L'insertion automatique du slash / (Vous écrivez et les slashs sont tapés automatiquement)

Private Sub textbox3_Change()
Dim Valeur: Valeur = Len(textbox3.Text)
If Valeur = 2 Or Valeur = 5 Then textbox3= textbox3& "/"
If Valeur < 10 Then Exit Sub
End sub

2 / Le comptage automatique du nombre de caractères saisis ( 10 pour le format jj/mm/aaaa )

Private Sub textbox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(textbox3.Text) Then textbox3.Text = ""
If Len(textbox3.Text) < 10 Then textbox3.Text = ""
End Sub

3 / La saisie doit être numérique

Private Sub textbox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Case Else
KeyAscii = 0
End Select
End Sub

Ciao

Edit modo : code à mettre entre balises avec le bouton </> merci d'y faire attention la prochaine fois