Userform avec une donnée modifiable dans un textbox

Bonjour à tous,

J'ai un fichier où j'ai des dates d'arrivées prévus pour des noms de personne. J'ai créé un bouton "modifier la date d'arrivée" qui lance un userform et me demande de saisir une nouvelle date d'arrivée.

Ma question est : est-il possible que lorsque mon userform s'ouvre, le textbox où je dois saisir la date soit déjà rempli avec la date actuelle d'arrivé, date que je dois pouvoir modifier.

J'ai essayé de mettre dans le code de ma textbox :

Code:

---

Me.TB_date_prolonge.Value = datearrive

---

Mais le problème est que quand je lance ma macro, le textbox est vide, je tape n'importe quel chiffre et ça me marque ma datearrive (que je calcule auparavant) qu'il m'est impossible de modifier.

Quelqu'un a une solution ?

Bonjour,
J'ai testé ce code
A mettre dans un module

Code:

---

1 2 3 4 5 6 7 8 9

Sub Gestion_Date_Arrivée() Dim Ws As Worksheet Dim DateArr As Range Set Ws = ThisWorkbook.Sheets("Sheet1") Set DateArr = Ws.Range("A1") UserForm1.TextBox1 = DateArr UserForm1.Show   End Sub

---

A mettre dans un UserForm avec un TextBox et un Bouton

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton1_Click() Dim Ws As Worksheet Dim DateArr As Range Set Ws = ThisWorkbook.Sheets("Sheet1") Set DateArr = Ws.Range("A1") DateArr = UserForm1.TextBox1.Value Me.Hide End Sub

---

Quand je lance la macro l'UserForm s'ouvre avec une date dans le TextBox que je peux modifier et lorsque je clique sur le bouton la nouvelle date est enregistrée.
Eric

Merci Eric, ça marche très bien !

Bonne journée