Userform / problème de format de date nom modifiable

**GADENSEB** · 12/05/2014, 23h36

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

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é · 13/05/2014, 09h17

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** · 13/05/2014, 10h32

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** · 13/05/2014, 10h43

A lire …

__________________________________________________________________________________________

Merci de cliquer sur

pour chaque message ayant aidé puis sur

pour clore cette discussion …

Invité · 13/05/2014, 11h04

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** · 14/05/2014, 09h31

@ 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** · 14/05/2014, 10h16

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 …

**GADENSEB** · 14/05/2014, 10h57

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 :

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

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

**Marc-L** · 14/05/2014, 14h31

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 …

**GADENSEB** · 14/05/2014, 16h37

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 :

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

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

**Marc-L** · 14/05/2014, 17h04

Depuis quand DateValue remplace Format ?‼

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 …

**GADENSEB** · 14/05/2014, 23h35

Bonsoir,

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

Nom : OPTION REGIONALES.PNG
Affichages : 2029
Taille : 47,6 Ko

Nom : OPTION REGIONALES.PNG
Affichages : 2029
Taille : 47,6 Ko

Tu y comprends qqc ?

Bonne soirée

Seb

**GADENSEB** · 15/05/2014, 12h22

ReBonjour,

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

Code :

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

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

Invité · 15/05/2014, 13h29

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.

**GADENSEB** · 15/05/2014, 13h59

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

Je vais utiliser ton code

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

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

Invité · 15/05/2014, 14h18

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 :

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

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

**GADENSEB** · 15/05/2014, 14h46

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 :

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

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 :

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

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 :

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

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

Courage on va s'en sortir !!!

Un grand merci à nouveau

Invité · 15/05/2014, 14h49

"DATESAISIE" c'est le nom d'une cellule ou d'un combobox d'un UserForm?

**GADENSEB** · 15/05/2014, 14h54

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

Userform / problème de format de date nom modifiable [XL-2010]

Macros et VBA Excel

Discussions similaires

Partager

Partager