Discussion :

[typhoon751]

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 :

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

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

Si quelqu'un avait une idée,

merci d'avance

[babaothe]

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 ?

[typhoon751]

Salut,

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

Code :

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

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"

[babaothe]

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

[typhoon751]

Ba ouais,

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

[Pierre Fauconnier]

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 :

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

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)

[typhoon751]

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,
Les dates sous excel c'est vraiment chiant!!!!, 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

[Pierre Fauconnier]

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