Discussion :

[mennix]

Bonjour à tous,
De nombreuse discussion traitent de ce sujet, mais ...

J'ai un outil d'entreprise qui me donne des requetes avec des colonnes qui se compose de Date "01/02/2015" 1 fév 2015 et les cellules sont au format Texte, dc l'affichage du contenu de la cellule collé à gauche.(Excel ne voit pas que cela est une date).

Afin de rebasculer cette colonne en date, j'avais trouvé une astuce sous VBA d'Excel 2003

Code :

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

1
2
3
4
 
With range("A1:H1000")
  .value=.value
end with

Excel 2003 bascule toute mes colonnes qui sont composé de chiffre ou de date, au bon format.

avec office 2010, ce meme code, me fait ce que l'ensemble des personnes ont identifé, l'appliquation du format anglais sur les jours <12 dc ici 02/01/2015.
La je bloque.
Je veux evité de rentrer dans une analyse cellule par cellule avec un for each , le traitement serait bcp plus long. je souhaite gardé le bout de code aussi simple et donc rapide.
(pour info, je sais faire avec for each, ne vous embetez pas à me donner des exemples).

Quelqu'un a-t-il une solution compatible avec office 2010 ?
Mon systeme est pratique, car les requetes peuvent etre differente ds le contenu des colonnes, l'avantage du range est de couvrir toute les colonnes sans ce souci de son format.

Merci à ceux qui pourront apporter un bout d'explication , du pk ce code ne fonctionne plus avec 2010 et marche tres bien ss 2003.

[parmi]

Bonjour,

Essaie manuellement en utilisant l'enregistreur de macro.
Sélectionne ta plage, va dans le menu Données / Convertir
Clique 2 fois Suivant et sélectionne Date et le format JMA (qui est le format dans lequel ta date-texte est écrite)
Clique Terminer

[Docmarti]

Bonjour à tous

Une autre suggestion :

Code :

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

1
2
3
4
With Range("A1:H1000")
  .NumberFormat = "m/d/yyyy"
  .FormulaLocal = .Value
End With

[kiki29]

Salut, toujours à lire : Comprendre et gérer les dates sous Excel et en VBA


Un pessimiste étant un optimiste avec de l'expérience et réciproquement .....

[mennix]

Bonjour,
Je me suis résolu à écrire un module qui parcours mes cellules.
avec une vérification du format de la date, meme si j'utilise Isdate, il passe quelque fois a TRUE alors qu'au vu de mes données, cela n'est pas justifier.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Set contenu=RANGE("A1:XX")
Set objRegExp_1 = CreateObject("vbscript.regexp")
 objRegExp_1.Global = True
 objRegExp_1.Pattern = "^(((0?[1-9]|[12]\d|3[01])[\.\-\/](0?[13578]|1[02])[\.\-\/]((1[6-9]|[2-9]\d)?\d{2}|\d))|((0?[1-9]|[12]\d|30)[\.\-\/](0?[13456789]|1[012])[\.\-\/]((1[6-9]|[2-9]\d)?\d{2}|\d))|((0?[1-9]|1\d|2[0-8])[\.\-\/]0?2[\.\-\/]((1[6-9]|[2-9]\d)?\d{2}|\d))|(29[\.\-\/]0?2[\.\-\/]((1[6-9]|[2-9]\d)?(0[48]|[2468][048]|[13579][26])|((16|[2468][048]|[3579][26])00)|00|[048])))"
 
For Each cell In Contenu
      If IsDate(cell) Then
       if cell.numberformat="@" or cell.numberformat="General" then
       if objRegExp_1.Execute(cell).count>0 then cell.FormulaR1C1 = datevalue(cell.Value) Else cell.Value = cell.Value
       end if
     End If 
    Next

Donc résolu certes, pas comme je le voulais , mais ca ira.
merci de vos commentaires.
t

[Docmarti]

Quand la cellule est au format Texte, j'espère que tu changes d'abord la propriété NumberFormat pour "General" avant d'écrire la date dans la cellule.

Code :

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

1
2
cell.NumberFormat = "General"
cell.FormulaR1C1 = datevalue(cell.Value)

Car il y a inversion Jour/Mois quand une valeur de type date est envoyée dans une cellule au format texte.


Voici une autre technique.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CorrigerAvecFormulaLocal()
 
    Set c = Range("A1:d11")
 
    For Each cell In c
 
      a = cell.Value
      cell.NumberFormat = "General"
      cell.FormulaLocal = a
 
    Next
 
End Sub

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
7
Sub CorrigerAvecFormulaLocal()
 Set c = Range("A1:d11")
For Each cell In c
       cell.NumberFormat = "General"
      if Day(cell.Value)<13 then cell.Value=format(cell.Value,"yyyy-dd-mm") else format(cell.Value,"yyyy-mm-dd")
Next
End Sub

[mennix]

Docmarti:
J'ai testé ton code, il fonctionne parfaitement, cependant, le temps de traitement est relativement plus long que mon code. J'ai bien sur désactivé sreenupdating, calculation etc...

Fichier XLS de test, fait 2600 lignes pour 8 colonnes.

j'ai ajouté :

Code :

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

1
2
3
4
5
6
7
8
 For Each cell In Contenu 
  If IsDate(cell) Then 
      a = cell.Value
      cell.NumberFormat = "General"
      cell.FormulaLocal = a
 end if
 Next

Et là, je retrouve un temps de traitement qui me plait bien, ta routine me semble moins lourde que la mienne et avec un test en moins, donc ca doit aller plus vite.


rdurupt :
j'ai testé également ton code qui fonctionne aussi avec la condition que la valeur cellule ne soit pas une chaine de caractere.

Mon fichier Xls, contient des colonnes de chaine de caractere, des nombres, des décimals etc... tout type de format.



Merci Mrs.

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
Sub CorrigerAvecFormulaLocal()
 Set c = Range("A1:d11")
For Each cell In c
       cell.NumberFormat = "General"
      if isdate("" & cell.Value) and instr("" & cell.Value,"/")<>0 then
         if Day(cell.Value)<13 then cell.Value=format(cell.Value,"yyyy-dd-mm") else format(cell.Value,"yyyy-mm-dd")
     end if
Next
End Sub

[Docmarti]

Bonjour rdurupt

Merci de ton code. Malheureusement, la ligne suivante semble tronquée.

Code :

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

 if Day(cell.Value)<13 then cell.Value=format(cell.Value,"yyyy-dd-mm") else format(cell.Value,"yyyy-mm-dd")

[Docmarti]

@ rdurupt : Voici le fichier qui me sert à tester FormulaLocal.