Souci de date code VBA Excel 2010 (Francais/Anglais)

Version imprimable

01/04/2015, 07h54
mennix

Souci de date code VBA Excel 2010 (Francais/Anglais)
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:

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.
01/04/2015, 14h49
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

Bonjour à tous

Une autre suggestion :

Code:

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

02/04/2015, 00h02
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 .....

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:

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

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:

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:

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

Bonjour,

Code:

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

10/04/2015, 12h32
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:

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.

Code:

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

10/04/2015, 16h05
Docmarti

Bonjour rdurupt

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

Citation:

Envoyé par rdurupt

Code:

if Day(cell.Value)<13 then cell.Value=format(cell.Value,"yyyy-dd-mm") else format(cell.Value,"yyyy-mm-dd")
10/04/2015, 18h44
Docmarti

1 pièce(s) jointe(s)

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