VBA Excel : Format de date Résolu/Fermé

Question

Bonjour,

Je n'arrive pas à mettre en forme une date saisie dans un formulaire :
Lors de la fermeture du formulaire les données saisies sot recopiées dans des cellules d'une feuille de calcul ; j'ai défini sur les cellules de la 1ere colonne de ma feuille de calcul un format "Date" sous forme "jj/mm/aaaa".
Dans le module (voir code ci-dessous) je force la valeur de la textbox à ce format :
    If saisie.date_ev.Value <> "" Then
        If Not IsDate(saisie.date_ev.Value) Then
            MsgBox "Date incorrecte.", vbCritical + vbOKOnly, "Erreur"
            saisie.date_ev.Value = ""
            saisie.date_ev.SetFocus
            saisie.Hide
            saisie.Show
        Else
            saisie.date_ev.Value = Format(saisie.date_ev.Value, "dd/mm/yyyy")
        End If
    End If
Or malgré toutes ces précautions, la date recopiée dans la cellule est au format "mm/jj/aaaa".
Je ne souhaite pas modifier les préférences régionales.

Quelqu'un a-t-il une solution ?

Merci d'avance

Armojax · Accepted Answer

Bonjour Misfit,

Les formats de dates attribués aux cellules dans Excel ne se traduisent pas tous de la même façon en VBA.

Ainsi, une cellule dont on définit le format en jj/mm/aa sous Excel est traduit en VBA par : NumberFormat = dd/mm/yy. Normal.
Tandis qu'un format défini par jj/mm/aaaa est traduit par : NumberFormat = m/d/yyyy, ce qui change tout.

Concrètement, en VBA, inverse les mois et les jours.

Armojax.

Kobaya · Answer

salut Misfit,

lorsque tu écrit :
saisie.date_ev.Value = Format(saisie.date_ev.Value, "dd/mm/yyyy"), tu mets une chaîne de caractères dans ta cellule.

essaye ceci :
saisie.date_ev.Value = Cdate(saisie.date_ev.Value)

A+,
Kobaya.

misfit · Answer

Salut Kobaya,

Merci pour ta réponse mais ça ne marche pas. Tout comme avec Format ma date apparait bien sous la forme jj/mm/aaaa dans ma textbox mais lorsque je recopie le contenu de ce textbox dans la cellule, la date passe au format mm/jj/aaaaa.

Y a quelqu'un qui aurait une autre idée ... Je craaaaaque

A+
Misfit

random · Answer

et si tu regardais tans ta cellule le format de celle cisi tu déposes une date dans une cellule elle prendra le format du contenant

random · Answer

et puis transformes ta valeur en cdate(textbox)

Nours · Answer

J'ai exactement le même problème lors d'une ouverture de fichier .txt par VBA dans excel, si tu as trouvé préviens moi sinon si je trouve de mon coté je te préviendrai forcément

Yann MICHEL · Answer

Suggestion:
Au moment de l'enregistrement de la value de la text box vers ta cellule procéde de la manière suivante:
cells(x, y).value = format(Userform.Textbox, "dd/MM/yyyy")

pour définir le format jj/mm/aaaa il font que le mois soit en anglais et en majuscule. C'est la même chose que pour la fonction PartDate.

En espèrant que ca fonction pour toi.
Michou

Alban · Answer

De la part de quelqu'un que j'ai pu aider grâce à ce fil : merci !

nini · Answer

bonjour,
je n'arrive pas extraire les semestres de l'année avec la ffonction partdate de access. je tente de l'utiliser dans une requête mais je ne connais pas le paramètre pour extraire le semestre en fonction d'une liste de date saisie. Merci bien de m'aider.Nini

crogiez · Answer

d="22/08/2008 12:30:42"
activecell...value=datevalue(t)
eventuellement changez format cellule

freto · Answer

Bon je remonte ce topic, pas envie d'en faire un autre.
J'ai un souchis de date avec un classeur excel: sur mon pc, et sur le pc de mon responsable, pas de problème, je peut faire en vba un:
activeSheet.Cells(parcoursLigne, "H").NumberFormatLocal = "jj/mm/aaaa"
EN revanche, sur le pc d'une autre personne, extérieure au service,  dont je ne connais aps la config, impossible de le faire: le format jj/mm/aaaa n'existe pas.
SI vous pouviez m'éclairer sur la solution....merci d'avance

Duderino_23 · Answer

Kubaya rules !!!!

j'avais le même probleme avec le format des dates et c'est réglé grâce à "Cdate" !!!

Thank you so much !

freto · Answer

Bon sa fait lontemps, mais j'ai trouvé avec un Cdate et je ne sais plus quelle manipulation (je crois qu'on devait mettre le truc en anglais mais en français quand mm enfin bref).
Maintenant sa fonctionne mais je peut pas en dire plus sur la solution

turbo92 · Answer

Bonjour,

J'ai un problème similaire, mais avec un autre cas de figure.
Je souhaite copier le contenu d'une cellule dans une autre, et
dans la premiere ça m'affiche bien "01/03/2010" mais dans 
la seconde, ça m'inverse le jour et le mois à savoir "03/01/2010"
lorsque la macro copie et colle les données d'une cellule vers l'autre.

Je précise que les 2 feuilles (cellule de copie et cellule de collage) sont
différentes, mais appartiennent au même classeur et les cellules sont
configurées en dates françaises.

Merci pour votre aide.

sarrus · Answer

recupére ta da en format Long

SSAMAN · Answer

le 3mai 2008 EN FORMAT AAAA

Sefran · Answer

Il faut tester la valeur et le type de cellule
        MsgBox ("The Value property is: " & Cell.Value)
        MsgBox ("The Text property is: " & Cell.Text)

On voit que "Value" c'est la valeur de la date et que "Text" c'est le format d'affichage de la date.

Si la cellule contient un texte non interprété en date dans sa forme d'affichage il faut le convertir comme suivant

    For Each Cell In Selection
        If IsDate(Cell.Value) Then
             Cell.Value = DateValue(Cell.Value)
        End If
    Next Cell

Ironmano · Answer

Bonjour le forum !
Un petit up quelques années après, puisque j'ai un problème "similaire".
Je m'explique :
 - J'importe un fichier .txt dans xls. Dans ce fichier, diverses données + 2 colonnes (B et F) avec des dates au format jj/mm/aaaa
 - avec une macro VBA, je copie les données de ce fichier
 - je ferme le fichier
 - je colle les données de ce fichier dans un autre classeur

Jusque Jeudi dernier (31/05/2012), tout allait bien ... mais depuis le 1er Juin, au passage d'un fichier à l'autre, mon 01/06/2012 devient 06/01/2012 ... 

J'ai bien lu vos différentes suggestions, mais comment faire s'il s'agit de définir le format de ces données importées sur 2 colonnes et ne pas perdre ce format lors du copier-coller ?

Merci d'avance.

EDM

6boulettes · Answer

Dim datduJour As String
Application.StatusBar = Format(datduJour, "dd/mm/yyyy")

==> permet d'avoir la date en format JJ/MM/AAAA quel que soit le support utilisé (textbox ou cellule).

moncoteyang · Answer

Tu peux essayer de formater ta cellule avec un formatage type:

Selection (ta cellule) = CDate(CSng(Date))

Trouvé cette solution sur un forum car confronté au même problème....

@+

VBA Excel : Format de date

21 réponses

Discussions similaires