Problème avec un formulaire Excel VBE

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.
 

myDearFriend!

XLDnaute Barbatruc
Bonsoir gilou57metz,

Tu peux peut-être essayer comme ci-dessous :

Private Sub CommandButton1_Click()
      With Worksheets('SAISIES')
            .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
            .Range('F300').End(xlUp).Cells(2, 1) = CDate(TextBox4.Value)
            .Range('G300').End(xlUp).Cells(2, 1) = TextBox5.Value
            .Range('L300').End(xlUp).Cells(2, 1) = CDate(TextBox6.Value)
            .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
            .Activate   'pas obligatoire
      End With
End Sub
Cordialement,
 

Discussions similaires

Réponses
28
Affichages
924
Réponses
6
Affichages
202

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib