Userform / problème de format de date nom modifiable

Version imprimable

Voir 40 message(s) de cette discussion en une page

12/05/2014, 23h36
GADENSEB

1 pièce(s) jointe(s)

Userform / problème de format de date nom modifiable
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:

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

Pièce jointe 145682

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
13/05/2014, 07h26
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

Bonjour

Soit tu passe ta date au format date:

Code:

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

soit tu passe au format internationale:

Code:

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:

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

13/05/2014, 10h32
GADENSEB
Bonjour,
Tes codes sont super, je les gardes pour plus tard.
Code:

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
13/05/2014, 10h43
Marc-L

A lire …

__________________________________________________________________________________________

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

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:

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

14/05/2014, 09h31
GADENSEB

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

Code:

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
14/05/2014, 10h16
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 …
14/05/2014, 10h57
GADENSEB
Oki !
J'avoue que sur coup là, je suis complètement perdu !

Procédons par ordre si tu veux bien !

Dans le TextBox:
- la Recherche/Renvoie d'information est ok
- Le format d’affichage dd/mm/yyyy est ok

Au clic dans le textbox:
- Je peux sélectionner le contenu (date) du textbox
- Quand je saisie une date, la données devient fausse :
- date affichée : 13/05/2014
- Souhait de replacer par 16/05/2014 --> cela devient 31/12/189956 ????

Code du textbox :
Code:

1 2 3 Private Sub DATEANNONCE_Change() DATEANNONCE.Value = Format(DATEANNONCE.Value, "dd/mm/yyyy") End Sub
Comme contourné le probléme ?

Merci
Bonne journée

seb
14/05/2014, 14h31
Marc-L

Si DATEANNONCE.Value était une date, il n'y aurait aucun problème; or c'est du texte !

Et comme pourtant indiqué clairement dans le lien, le VBA est au format anglo-saxon ‼

Donc tout simplement utiliser des fonctions de conversion de date ! Voir l'exemple de Demo4 …
14/05/2014, 16h37
GADENSEB
okiiiiiiiiii j'ai pigé ..... sur ce soup là je n'avais la vision claire .....

L'userform affiche un texte qui ressemble à une date mais n'en est pas une ...

Par contre je ne trouve tjrs pas comment, aprés recherche sur internet écrire le code dans :
Code:

1 2 3 4 5 Private Sub DATEANNONCE_Change() DATEANNONCE.Value = DateValue("dd/mm/yyyy") '---> cela ne fonctionne pas ? End Sub
mystére pour moi

Peux-tu m'éclaire stp ?

Merci

Seb
14/05/2014, 17h04
Marc-L

Depuis quand DateValue remplace Format ?‼ :calim2:

Relire Demo4 et l'aide VBA de DateValue et son exemple !

Ensuite, est-ce une version française ?
Car de mon côté dans les versions françaises 2003 & 2007 je n'ai même pas besoin de convertir en date,
cela se passe bien avec un texte représentant une date française avec la fonction Format …

A moins que cela ne provienne de la configuration régionale de Windows …
14/05/2014, 23h35
GADENSEB

1 pièce(s) jointe(s)

Bonsoir,

là je rend les armes
Je tourne sous office 2010 fr et les options régionales sont comme çà

Pièce jointe 145924

Tu y comprends qqc ?

Bonne soirée

Seb

ReBonjour,

Pour info, j'ai mis toutes mes dates de la base en format "dd/mm/yyyy" par le biais de cette macro :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CONVERTIR_Click()
Dim d&, tablo, i&
d = [bb65536].End(xlUp).Row
tablo = Application.Transpose(Range("bb2:bb" & d))
On Error Resume Next 'si toutes les valeurs ne sont pas des dates
For i = 1 To d
  tablo(i) = CDbl(CDate(tablo(i)))
Next
With [bb2].Resize(d)
  .NumberFormat = "dd/mm/yyyy" 'ou autre format Date
  .Value = Application.Transpose(tablo)
End With
End Sub

Mais rien n'y change .......

Je suis perdu

Bonne journée

Seb

15/05/2014, 13h29
Invité

Bonjour,

les dates dans tes cellules sont des date valide ton traitement ne va rien y changer! c'est quand tu écris dans ta cellule qu'il faut valider les date le 04/01/2014 devient le 01/04/2014 c'est un drôle de poisson mais c'est une date valide.

yep !
Je suis entrain de mettre une sécurité à ce niveau !

Je vais utiliser ton code
Code:

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
Mais j'avoue que je ne pige tjrs pas pourquoi, je ne peux pas modifier les dates dans l'usf "GESTIONPOSTE"

alors que les textes sont possibles......

je n'arrive pas à utiliser datevalue .......

D'habitude je pige....mais alors là .....

Bonneaprem

Seb

15/05/2014, 14h18
Invité
les combobox sont du texte si tu entre une date et que tu la place dans une cellule Excel,Excel va convertir dans un type qui lui semble logique. vba parle anglais et excel suivant le paramètres régionaux!
Code:

1 2 3 4 5 dim Madate as string Madate = "04/01/2014" range("A1")=Madate 'donne 01/04/2014 range("A1")= Cdate(Madate)'donne 04/01/2014 range("A1")=format(Madate,"yyyy-mm-dd") 'donne 04/01/2014

OK
Ce que je viens de faire
Sur mon premier usf "BASEEMPLOI", je contrôle le format de sortie des textbox de date, pour l'incription dans la bdd excel :
Code:

1 2 3 4 Private Sub DATESAISIE_Exit(ByVal Cancel As MSForms.ReturnBoolean) If IsDate(DATESAISIE) = False Then MsgBox "Ceci n'est pas une date": DATESAISIE = "": Exit Sub DATESAISIE.Value = CDate(Format(DATESAISIE.Value, "DD/MM/YYYY")) End Sub
Même chose sur mon USF de lecture "GESTION"
Code:

1 2 3 4 Private Sub DATESAISIE_Exit(ByVal Cancel As MSForms.ReturnBoolean) If IsDate(DATESAISIE) = False Then MsgBox "Ceci n'est pas une date": DATESAISIE = "": Exit Sub DATESAISIE.Value = CDate(Format(DATESAISIE.Value, "DD/MM/YYYY")) End Sub
Donc à partir de maintenant plus de soucis de format.

Etape n°2 --> le retour dans les textbox de l'USF de lecture "GESTION"

est-ce que je peux utiliser qqc du style :

Code:

range("DATESAISIE") =cdate("DATESAISIE")

Courage on va s'en sortir !!!

Un grand merci à nouveau :mrgreen:

15/05/2014, 14h49
Invité

"DATESAISIE" c'est le nom d'une cellule ou d'un combobox d'un UserForm?
15/05/2014, 14h54
GADENSEB

C'est le nom d'une textbox de l'usf

Voir 40 message(s) de cette discussion en une page