Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel La date s'inverse dans mon textbox

La date s'inverse dans mon textbox

2 réponses
Avatar
Steph
Bonjour,

J'ai un problème avec le transfert de date dans un TextBox, grace à un
ComboBox2 je voyage dans une liste et envoi la valeur de la colonne Date
dans un TextBox4.

Voici le résumé de ma macro
--------------
Private Sub ComboBox2_Change()
On Error Resume Next
TextBox4 = Format(ComboBox2.Column(4, ComboBox2.ListIndex), "dd/mm/yyyy")
end sub
--------------

Apres, je peux modifier la date dans le textbox puis cliquez sur un bouton
afin de la modifier dans la liste.

--------------
Private Sub CommandButton1_Click()
LigneModif = (ComboBox2.ListIndex) + 3
Var5 = Format(TextBox4.Value, "dd/mm/yyyy") 'Date de demande
Range("E" & LigneModif) = Format(Var5.Value, "dd/mm/yyyy")
end sub
--------------

Le problème est que lorsque j'ai une date ex: 01/12/2004 dans ma liste et
que je la choisi, elle s'affiche correctement dans le textbox mais lorsque
je l'enregistre grace à la 2e macro, la date s'inverse et devient
12/01/2004.

Auriez-vous une idée ?

Petite remarque: je place la date dans le textbox grace à un calendrier,
voici le code
---------------
Private Sub Calendar1_Click()
If NmTextB > 1 Then
Me.Controls("TextBox" & NmTextB) = Format(Calendar1.Value, "dd/mm/yyyy")
Ladate = Me.Controls("TextBox" & NmTextB)
End If
End Sub
---------------

D'avance merci pour vos idées,

Steph
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pounet95
Bonjour,
C'est un problème qui a été soumis ces temps derniers? Je ne me rappelle
plus du fil
aussi jette un oeil ( ou deux ) sur
http://www.excelabo.net/xl/dates.php#datefrancaise

Je crois que la réponse y est
Bonne journée

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Steph" a écrit dans le message de news:

Bonjour,

J'ai un problème avec le transfert de date dans un TextBox, grace à un
ComboBox2 je voyage dans une liste et envoi la valeur de la colonne Date
dans un TextBox4.

Voici le résumé de ma macro
--------------
Private Sub ComboBox2_Change()
On Error Resume Next
TextBox4 = Format(ComboBox2.Column(4, ComboBox2.ListIndex), "dd/mm/yyyy")
end sub
--------------

Apres, je peux modifier la date dans le textbox puis cliquez sur un bouton
afin de la modifier dans la liste.

--------------
Private Sub CommandButton1_Click()
LigneModif = (ComboBox2.ListIndex) + 3
Var5 = Format(TextBox4.Value, "dd/mm/yyyy") 'Date de demande
Range("E" & LigneModif) = Format(Var5.Value, "dd/mm/yyyy")
end sub
--------------

Le problème est que lorsque j'ai une date ex: 01/12/2004 dans ma liste et
que je la choisi, elle s'affiche correctement dans le textbox mais lorsque
je l'enregistre grace à la 2e macro, la date s'inverse et devient
12/01/2004.

Auriez-vous une idée ?

Petite remarque: je place la date dans le textbox grace à un calendrier,
voici le code
---------------
Private Sub Calendar1_Click()
If NmTextB > 1 Then
Me.Controls("TextBox" & NmTextB) = Format(Calendar1.Value, "dd/mm/yyyy")
Ladate = Me.Controls("TextBox" & NmTextB)
End If
End Sub
---------------

D'avance merci pour vos idées,

Steph





Avatar
pendule à l'heure
steph,
jette un oeil sur ta pendule ;-))))
-----Original Message-----
Solution trouvée:

En remplacant cette ligne
Var5 = Format(TextBox4.Value, "dd/mm/yyyy") 'Date de
demande

par
Var5 = Format(TextBox4.Value, "mm/dd/yy") 'Date de
demande

dans ma 2e macro, ca fonctionne !

Steph

"Steph" a écrit dans
le message de news:


Bonjour,

J'ai un problème avec le transfert de date dans un
TextBox, grace à un


ComboBox2 je voyage dans une liste et envoi la valeur
de la colonne Date


dans un TextBox4.

Voici le résumé de ma macro
--------------
Private Sub ComboBox2_Change()
On Error Resume Next
TextBox4 = Format(ComboBox2.Column(4,
ComboBox2.ListIndex), "dd/mm/yyyy")


end sub
--------------

Apres, je peux modifier la date dans le textbox puis
cliquez sur un bouton


afin de la modifier dans la liste.

--------------
Private Sub CommandButton1_Click()
LigneModif = (ComboBox2.ListIndex) + 3
Var5 = Format(TextBox4.Value, "dd/mm/yyyy") 'Date de
demande


Range("E" & LigneModif) = Format
(Var5.Value, "dd/mm/yyyy")


end sub
--------------

Le problème est que lorsque j'ai une date ex:
01/12/2004 dans ma liste et


que je la choisi, elle s'affiche correctement dans le
textbox mais lorsque


je l'enregistre grace à la 2e macro, la date s'inverse
et devient


12/01/2004.

Auriez-vous une idée ?

Petite remarque: je place la date dans le textbox
grace à un calendrier,


voici le code
---------------
Private Sub Calendar1_Click()
If NmTextB > 1 Then
Me.Controls("TextBox" & NmTextB) = Format
(Calendar1.Value, "dd/mm/yyyy")


Ladate = Me.Controls("TextBox" & NmTextB)
End If
End Sub
---------------

D'avance merci pour vos idées,

Steph






.