Bonsoir

Petit prob que j'arrives pas à résoudre.
J'ai une textbox alimentée par userform calendrier.

1. quand je clic, que le userform s'ouvre et que je le ferme sans sélectionner une date, le textbox est rempli (pas logique)
2. et c'est ce prob qui me saoule, lorsque j'enregistre mon fichier les valeurs de mon textbox s'effacent.

Auriez-vous une idée pour m'aider ?

Voici le code propre à mon textbox :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub cont_arrivee_gotFocus()
UserForm1.Show
cont_arrivee = Format(UserForm1.Calendar1.Value, "ddd dd mmm yyyy")
If cont_arrivee = "" Then
Sheets("INFORMATIQUE").Rows(17).EntireRow.Hidden = True
Sheets("INFORMATIQUE").Range("A17") = ""
Else
Sheets("INFORMATIQUE").Rows(17).EntireRow.Hidden = False
Sheets("INFORMATIQUE").Range("A17") = "Arrivée le : " & cont_arrivee
End If
End Sub

et le code calendar dans le userform :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub Calendar1_Click()
Hide
End Sub
Private Sub UserForm_Initialize()
Calendar1.Value = ""
Calendar1.Value = Date
End Sub

merci par avance