gilou57metz
XLDnaute Nouveau
Bonjour à ttes et ts,
j'ai un petit problème Excel 2000 à vous soumettre.
Dans un formulaire VBE, j'ai 2 textbox (1 et 2) qui demandent la saisie de dates.
- Les saisissant sous la forme '10/01/06' lorsqu'elles apparaîssent dans la feuille de calcul elles sont au format '01/10/06' (US).
- mes cellules ont bien la mise en jorme 'jj/MM/aa' (une saisie manuelle les inscrit au bon format).
Voici le code utilisé :
Private Sub CommandButton1_Click()
Dim Madate
Madate = Format('jj/MM/aa')
Worksheets('SAISIES').Activate
ActiveSheet.Unprotect
Range('A300').End(xlUp).Cells(2, 1) = ComboBox1.Text
Range('B300').End(xlUp).Cells(2, 1) = TextBox1.Value
Range('C300').End(xlUp).Cells(2, 1) = ComboBox2.Text
Range('D300').End(xlUp).Cells(2, 1) = TextBox2.Value
Range('E300').End(xlUp).Cells(2, 1) = TextBox3.Value
TextBox4.Value = Format(TextBox4.Text, Madate)
Range('F300').End(xlUp).Cells(2, 1) = TextBox4.Value
Range('G300').End(xlUp).Cells(2, 1) = TextBox5.Value
TextBox6.Value = Format(TextBox6.Text, Madate)
Range('L300').End(xlUp).Cells(2, 1) = TextBox6.Value
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End
End Sub
Qui peut m'aider à récupérer ces dates dans le même format que leur saisie ?
Je vous en remercie par avance.
j'ai un petit problème Excel 2000 à vous soumettre.
Dans un formulaire VBE, j'ai 2 textbox (1 et 2) qui demandent la saisie de dates.
- Les saisissant sous la forme '10/01/06' lorsqu'elles apparaîssent dans la feuille de calcul elles sont au format '01/10/06' (US).
- mes cellules ont bien la mise en jorme 'jj/MM/aa' (une saisie manuelle les inscrit au bon format).
Voici le code utilisé :
Private Sub CommandButton1_Click()
Dim Madate
Madate = Format('jj/MM/aa')
Worksheets('SAISIES').Activate
ActiveSheet.Unprotect
Range('A300').End(xlUp).Cells(2, 1) = ComboBox1.Text
Range('B300').End(xlUp).Cells(2, 1) = TextBox1.Value
Range('C300').End(xlUp).Cells(2, 1) = ComboBox2.Text
Range('D300').End(xlUp).Cells(2, 1) = TextBox2.Value
Range('E300').End(xlUp).Cells(2, 1) = TextBox3.Value
TextBox4.Value = Format(TextBox4.Text, Madate)
Range('F300').End(xlUp).Cells(2, 1) = TextBox4.Value
Range('G300').End(xlUp).Cells(2, 1) = TextBox5.Value
TextBox6.Value = Format(TextBox6.Text, Madate)
Range('L300').End(xlUp).Cells(2, 1) = TextBox6.Value
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End
End Sub
Qui peut m'aider à récupérer ces dates dans le même format que leur saisie ?
Je vous en remercie par avance.