Discussion :

[MichaSarah]

Bonjour,
Je souhaite pouvoir copier les valeurs saisies dans un TextBox vers une cellule Excel mais la recopie s'effectue dans un autre format . Dans le TextBox je saisie sous le format dd/mm/yy et la date copiée est sous le format mm/dd/yy. Pourriez-vous m'apporter votre aide ?
Ci dessous ce que j'ai actuellement de codé :

1°) Je définie le format de la date

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub TxtDate_AfterUpdate()
        TxtDate = Format(CDate(TxtDate.Value), "dd/mm/yy")
 End Sub

2°) Je recopie la valeur vers Excel (je ne mets que la ligne concernée)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub CmdEnregistrer_Click()
...
Cells(numLigne, 46) = TxtDate.Value
...
End sub

C'est là que j'ai le pb, la recopie n'est pas au bon format.

Merci par avance
MichaSarah

[jordan973]

Bonjour,

J'avais eu le même problème que toi, et ce code a fonctionné:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
Range("H61").End(xlUp)(2).Value = CDate(TextBox7)

Bien sur il te faut l'adapter à tes besoins,
moi ce que je fait c'est recopier cette date à la première cellule vide de la colonne H. (depuis la cellule 61 en remontant)

[NEC14]

Bonjour,

Dans ce code, essaies ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub CmdEnregistrer_Click()
...
Cells(numLigne, 46) = CDate(TxtDate)
...
End sub

[MichaSarah]

Bonsoir jordan973 et NEC14,

Merci pour aide. Problème résolu.

MichaSarah