Discussion :

[atk_49]

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 :


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 !

[unparia]

Bonjour
Une textbox est du texte (type string)
A transformer en Date par CDate (à lire dans aide VBA)

Tu devrais par ailleurs t'intéresser à ce qu'est la propriété ControlSource d'une Textbox et l'utiliser (au lieu de toutes ces lignes de code).

[atk_49]

Merci Unparia, voici le code définitif qui résous mon problème :

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
23
24
25
26
27
Private Sub UserForm_Initialize()
Me.StartUpPosition = 0
Me.Left = Application.Left + (0.5 * Application.Width) - (0.5 * Me.Width)
Me.Top = Application.Top + (0.5 * Application.Height) - (0.5 * Me.Height)
End Sub
Private Sub CommandButton2_Click()
UserForm2.Hide
End Sub
Private Sub UserForm_Activate()
TextBox1 = CDate(ActiveSheet.Range("Q2"))
TextBox2 = CDate(ActiveSheet.Range("R2"))
TextBox3 = CDate(ActiveSheet.Range("S2"))
TextBox4 = CDate(ActiveSheet.Range("T2"))
End Sub
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
ActiveSheet.Range("Q2") = CDate(TextBox1)
ActiveSheet.Range("R2") = CDate(TextBox2)
ActiveSheet.Range("S2") = CDate(TextBox3)
ActiveSheet.Range("T2") = CDate(TextBox4)
UserForm2.Hide
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Je me renseigne concernant la propriété ControlSource.

Merci !

[atk_49]

En effet, c'est tellement plus simple ! ^^
Donc finalement, plus de code du tout, et un userform sans bouton, quoi de mieux ?!

Un grand merci unparia, excellente journée à toi !