Bonjour.

Je suis en train de mettre en place un tableau de statistiques et je souhaiterais que les utilisateurs indiquent les dates de comparaisons depuis un userform contenant des textbox.

L'userform :
Nom : Capture.PNG Affichages : 280 Taille : 7,0 Ko

Le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton2_Click()
UserForm2.Hide
End Sub
Private Sub UserForm_Activate()
TextBox1.Value = ActiveSheet.Range("Q2").Value
TextBox2.Value = ActiveSheet.Range("R2").Value
TextBox3.Value = ActiveSheet.Range("S2").Value
TextBox4.Value = ActiveSheet.Range("T2").Value
End Sub
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
ActiveSheet.Range("Q2").Value = TextBox1.Value
ActiveSheet.Range("R2").Value = TextBox2.Value
ActiveSheet.Range("S2").Value = TextBox3.Value
ActiveSheet.Range("T2").Value = TextBox4.Value
UserForm2.Hide
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
L'ensemble fonctionne bien, sauf que les dates copiées dans les cellules Q2, R2, S2 et T2 ne sont pas reconnues comme des dates malgré le format DATE des cellules en question.

Comment faire pour que les dates, soient des dates ?

Merci d'avance, excellente journée à vous !