format date excel

Bonjour,

j'ai généré une macro via l'enregistreur de macro excel 2007, pour changer mon format de date en cliquant sur un bouton.
Le problème c'est que je suis obligé après de double cliquer sur la cellule pour que mon format soit pris en compte.
Je souhaite modifier le format date "jj/mm/aaaa" en format "jours-moi-année"
(ex: 18/11/2010 ==> 18-nov.-10)
La macro que m'a généré l'enregistreur est la suivante:

Code:

---

1 2	Columns("C:C").Select Selection.NumberFormat = "[$-40C]d-mmm-yy;@"

---

Si quelqu'un avait une idée,

merci d'avance

salut

je ne vois pas pourquoi la mise à jour ne se ferait pas !
une première question, donc : dans quelle procédure évènementielle as-tu mis ton code ?

Salut,

rien, le bouton affecté à cette macro, sert à deux choses, convertir le format date et puis ouvrir un userform
voilà le code complet:

Code:

---

1 2 3 4 5 6

Sub recherche() Columns("C:C").Select Selection.NumberFormat = "[$-40C]d-mmm-yy;@" UserForm.Show End Sub

---

c'est quand même rudement embêtant, car j'ai une macro recherche date dans cet usf, qui me recherche les dates sous ce format et qui ne marche pas si c'est le format "jj/mm/aaaa"

fonctionne sans problèmes chez moi !
et l'ouverture de ton userform n'a rien à y voir

EDIT : je vois que tu as nommé ta macro "recherche", ce qui donne à penser qu'elle sert également à autre chose. Contient-elle d'autres instructions (et lesquelles, le cas échéant) ?
mets également un DoEvents avant l'ouverture du UserForm

Ba ouais,

je comprend pas mais c'est sacrément embétant

Salut.

Peut-être une piste...

Avant de modifier le format, tes cellules ne peuvent pas être en format TEXTE, car dans ce cas, le contenu de la cellule est considéré comme du texte et donc, n'est pas interprété comme une date => pas de changement de format et tu dois donc éditer chaque cellule.

Si tu es sûr de n'avoir que dates (toutes au même format) dans tes cellules formatées en TEXTE, tu peux utiliser ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Recherche() Dim Tableau Dim i As Long   Application.ScreenUpdating = False Range("c:c").NumberFormat = "[$-40C]d-mmm-yy;@" Tableau = Range("c:c") For i = 1 To UBound(Tableau) If Tableau(i, 1) <> "" Then Tableau(i, 1) = DateSerial(Right(Tableau(i, 1), 4), Mid(Tableau(i, 1), 4, 2), Left(Tableau(i, 1), 2)) Next i Range("c:c") = Tableau Application.ScreenUpdating = True userform.Show End Sub

---

en adaptant la plage et la conversion en fonction du format supposé de la date (ici jj/mm/aaaa)

Merci de ta réponse pierre,

j'ai contourné le problème en forçant l'ajout de la date depuis mon userform en format texte, c-à-d que maintenant excel voit ma date au format texte sans que ce soit des chiffres incompréhensibles (au format ex : 19-nov-10)...
Je peux maintenant appliquer ma macro de recherche par date sans problème, :ccool:
Les dates sous excel c'est vraiment chiant!!!!:traine:, entre les différents types de format, plus les formats régionaux (anglosaxon, etc...), j'avais tout le temps des inversions jours mois.

Je marque le post en résolu, merci à tous pour vos réponses

J'ajoute le lien vers le tuto de Didier Gonard sur le sujet.