Textbox et dates

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 :
Pièce jointe 219050

Le code :

Code:

---

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 ? :scarymov:

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

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).

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

Code:

---

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 !

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 !