Discussion :

[GADENSEB]

Bonsoir,
J'ai un soucis de retour de date dans mon userform GESTIONPOSTE, pour tout les textbox de date

Pour le textbox DATEREPONSE, j'ai ça en code sinon le retour de date le met 42558

Code :

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

1
2
3
Private Sub DATEREPONSE_Change()
DATEREPONSE.Value = Format(DATEREPONSE.Value, "dd/mm/yyyy")
End Sub

Quand je cherche à remplacer la date j'obtient 31/12/18995



BASE EMPLOI - DEMO.xls

Qui aurais une idée pour avoir une date sous format normal 12/05/2014 et que je puisse la modifier facilement ?


Merci

Bonne soirée

Seb

[Invité]

Bonjour

Je ne pense pas que l'évènement Change soit une bonne choses pour cette manipulation.

L'AfterUpdate serait plus adéquate.

Philippe

[Invité]

Soit tu passe ta date au format date:

Code :

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

1
2
3
Private Sub DATEREPONSE_Change()
DATEREPONSE.Value = cdate(DATEREPONSE.Value)
End Sub

soit tu passe au format internationale:

Code :

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

1
2
3
Private Sub DATEREPONSE_Change()
DATEREPONSE.Value = format(DATEREPONSE.Value,"yyyy-mm-dd")
End Sub

je te suggère de fair le test à la sortie du contrôle

Code :

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

1
2
3
4
Private Sub DATEREPONSE_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(DATEREPONSE) = False Then MsgBox "Ceci n'est pas une date": DATEREPONSE = "": Exit Sub
DATEREPONSE.Value = CDate(Format(DATEREPONSE.Value, "yyyy-mm-dd"))
End Sub

[GADENSEB]

Bonjour,
Tes codes sont super, je les gardes pour plus tard.

Code :

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

1
2
3
Private Sub DATEREPONSE_Change()
DATEREPONSE.Value = Format(DATEREPONSE.Value, "dd/mm/yyyy")
End Sub

Marche super bien à à modification des données "_Change()", et du coup pourquoi je ne peux pas changer la date "à la main" comme je peux le faire dans l'USF "BASEEMPLOI" ?

As-tu une idée ?

Bonne Journée

Seb

[Marc-L]

A lire …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Invité]

la méthode "_Change()" est déclenché à chaque fois que que tu tape un lettre au clavier. il faut attendre que l'utilisateur est fini d'entrer une date pour la valider. c'est pour cela que je t'es proposé d'utiliser la méthode DATEREPONSE_Exit qui elle s'exécute quands tu quitte le contrôle.

Code :

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

1
2
3
4
Private Sub DATEREPONSE_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(DATEREPONSE) = False Then MsgBox "Ceci n'est pas une date": DATEREPONSE = "": Exit Sub
DATEREPONSE.Value = CDate(Format(DATEREPONSE.Value, "yyyy-mm-dd"))
End Sub

[GADENSEB]

@ Mar-L
si je comprends bien ton post :
c'est ma recherche, qui poste le probléme de renvoie de dates......

Code :

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

GESTIONPOSTE.DATEREPONSE = Application.VLookup(Cells(Target.Row, "I").Value, Worksheets("BASE EMPLOI").Range("A1:BB1000"), 37, False)

Est ce que je peux imposer un format de "retour" dans ma recherche ?



@rdurupt

Je comprends mieux le "_Change()", je garde ton code pour valider d'éventuelles erreurs !!


Thanks à vous deux.


Seb

[Marc-L]

Non, cela a voir simplement comment VBA interprète les "dates" comme indiqué dans le lien.

Pour le retour, soit par la fonction Format soit via une fonction de date …