Discussion :

[mac4209]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[eric4459]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mac4209]

Merci Eric, ça marche très bien !

Bonne journée