Date format 10-FEB-2016 => 10/02/2016

Niquido · 16 Décembre 2015

Bonjour à tous,

Je me prend la tête sur ce problème.
Je fait un extract tous les lundi et il me donne des colonnes au format 10-FEB-2016 et j'aimerait le passer au format 10/02/2016 mais je ne sais pas comment.
un collègue me dit de mettre mon excel en anglais et que le problème sera résolu mais je ne veux pas pour autant passer en anglais 😉

J'ai déjà une macro qui me fait l'extract, des filtres.....
Donc la solution peut se faire par macro ça ne me dérange pas.
Je met un petit fichier joint pour mieux comprendre.

et en plus si vous savez comment faire en sorte que la colonne 3 ne soit pas stocké sous format texte sans avoir à la sélectionner à la main puis convertir en nombre.

Merci d'avance

ChTi160 · 17 Décembre 2015

Re : Date format 10-FEB-2016 => 10/02/2016

Bonjour Niquido
Bonjour le Fil,Le forum

Une autre approche

Le Fichier : Regarde la pièce jointe date_Chti160.xlsm

Bonne journée
Amicalement
Jean Marie

Nairolf · 17 Décembre 2015

Re : Date format 10-FEB-2016 => 10/02/2016

homepyrof53, ce satané calcul auto (bien pratique par ailleurs)! 😡 j'oublie à chaque fois qu'il recalcule à chaque changement dans une cellule, merci du rappel.
Grâce à 2 lignes de codes, on accélère de près de 170 fois nos codes! sachant que dans ce cas précis la désactivation du Application.ScreenUpdating n'a pas d'effet sur le temps d'exécution de nos codes.

Modeste geedee, tu as raison, s'il a accès à la génération de l'import, ce serait le meilleur moment pour traiter le format de la donnée.

Nairolf · 17 Décembre 2015

Re : Date format 10-FEB-2016 => 10/02/2016

Une chose qui a sans doute déjà été identifiée par d'autres, mais que j'ai expérimenté moi-même :

Une boucle For i = 2 To WorksheetFunction.CountA(Range("A:A")) - 1 est plus rapide qu'une boucle For Each Cell In Selection (un rapport de 70 sur mon code).

Après je ne sais pas si c'est valable pour tout les types de codes.

MJ13 · 17 Décembre 2015

Re : Date format 10-FEB-2016 => 10/02/2016

Bonjour à tous

Attention aux affirmations fantaisistes 🙂. Je n'ai pas vu de réels différences entre for each et For i 😕.

Voici des codes sur le principe de Nairolf.

Code VBA:
Sub Macro_DateV2()
'0.328 secondes pour environ 1000 lignes sur XL 2013
t1 = Timer
Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 2)).Select
For Each cell In Selection
a = cell 'ou .Value 'ou .value2 'ou .text 'ou .Formula 'ou .FormulaR1C1
cell.Offset(0, 3) = a
Next
MsgBox Format(Timer - t1, "0.000")
End Sub

Sub Macro_DateV3()
'0.188 secondes pour environ 1000 lignes sur XL 2013
t1 = Timer
Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 2)).Select
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each cell In Selection
a = cell 'ou .Value 'ou .value2 'ou .text 'ou .Formula 'ou .FormulaR1C1
cell.Offset(0, 3) = a
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
MsgBox Format(Timer - t1, "0.000")
End Sub

Sub ab()
'0.188 secondes pour environ 1000 lignes sur XL 2013
t1 = Timer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 2 To WorksheetFunction.CountA(Range("A:A")) - 1
a = Cells(i, 1).Value
Cells(i, 1).Offset(0, 3).FormulaR1C1 = a
Next
For i = 2 To WorksheetFunction.CountA(Range("B:B")) - 1
a = Cells(i, 2).Value
Cells(i, 2).Offset(0, 3).FormulaR1C1 = a
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
MsgBox Format(Timer - t1, "0.000")
End Sub

Nairolf · 17 Décembre 2015

Re : Date format 10-FEB-2016 => 10/02/2016

Je t'assure que sur mon pc (avec XL2010) j'ai une différence :

Pour 38 lignes:
Macro_DateV3 = 0.781s
ab = 0.063s

Pour 1000 lignes:
Macro_DateV3 = 19.109s
ab = 18.992s

A noter que mes temps sont nettement plus longs.

MJ13 · 17 Décembre 2015

Re : Date format 10-FEB-2016 => 10/02/2016

Re

@Nairolf: Oui, souvent, suivant le nombre de valeurs, cela peut varier.

mapomme · 17 Décembre 2015

Re : Date format 10-FEB-2016 => 10/02/2016

Bonjour à tous,

Sinon pour le fun, on peut faire sans boucle (pas calculé la vitesse):

Code:

Sub Macro_Date()
  t1 = Timer
  Selection.Formula = Selection.Value
  MsgBox Format(Timer - t1, "0.000")
End Sub

nb: si la sélection comporte la 3ième colonne, le texte de cette dernière est transformé en nombre.

Modeste geedee · 17 Décembre 2015

Re : Date format 10-FEB-2016 => 10/02/2016

Bonsour®

Nairolf à dit:
s'il a accès à la génération de l'import, ce serait le meilleur moment pour traiter le format de la donnée.

🙄
聪明人指着月亮的时候，傻子看着他的手指

« Errare humanum est, perseverare diabolicum »
🙁

VB:

Sub Macro3()
'
' Macro3 Macro
    ' -ci-dessous i l faut modifier le nom et chemin du fichier à importer
    Workbooks.OpenText Filename:="C:\Chemin\ANCHETTI_NICOLAS.txt" _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
        :=xlNone, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=True, Comma _
        :=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 4), Array(2 _
        , 4), Array(3, 1)), TrailingMinusNumbers:=False, Local:=False
End Sub

😕

Pour la forme j'ai testé toutes les propositions et minuté le temps de la macro

même pour le FUN, moi, je ne n'ose pas chronométrer ...
😉 😀 😎

Nairolf · 17 Décembre 2015

Re : Date format 10-FEB-2016 => 10/02/2016

@Modeste :
Désolé 🙁 d'avoir parlé chinois, à moins que ce ne soit du coréen? 😛.
J'avoue que mesuré le temps en soit, ça n'a pas trop d'intérêt, surtout pour des traitements n'atteignant pas la seconde.
Mais, dans le cas de traitement d'un volume de données conséquent, ça peut faire la différence entre une attente interminable et l'exaltation d'avoir un résultat en moins de 10s. 🙄

Justement j'ai testé le code de mapomme, et il est étonnamment rapide (moins de 6s pour plus de 2 millions de cellules = les colonnes A et B).

eastwick · 17 Décembre 2015

Re : Date format 10-FEB-2016 => 10/02/2016

Bonjour le forum, chez moi, la macro de mon fichier fonctionne !!! (forcément)

MJ13 · 17 Décembre 2015

Re : Date format 10-FEB-2016 => 10/02/2016

Re

Oui, voilà, le code de Mapomme 🙂 était celui que j'atendais (Mais çi, Mais çi ) 😉.

Pour Modeste GD, je suis d'accord avec toi, mais le problème est que de plus en plus de logiciels sortent les données directement en .xls 😱.

Notons qu'ici, c'est surtout pour la recherche fondamentale 😱.

Voici d'autres codes issus de celui de Mapomme.

Code VBA:
Sub Abc()
t1 = Timer
Selection.Formula = Selection.Value
MsgBox Format(Timer - t1, "0.00000000")
End Sub

Sub Abcd()
Selection.Value = Selection.Value
End Sub

Sub Abcde()
Selection.Value2 = Selection.Value2
End Sub

Sub Abcdef()
Selection = Selection.Value
End Sub

Sub Abcdefg()
Cells(1, 1).CurrentRegion = Cells(1, 1).CurrentRegion.Value
End Sub

Sub Abcdefgh()
Range(Cells(1, 1), ActiveCell.SpecialCells(xlLastCell)).Select
Selection = Selection.Value
End Sub

Sub Abcdefghi()
t1 = Timer
Range(Cells(1, 1), ActiveCell.SpecialCells(xlLastCell)) = Range(Cells(1, 1), ActiveCell.SpecialCells(xlLastCell)).Value
MsgBox Format(Timer - t1, "0.00000000")
End Sub

ROGER2327 · 17 Décembre 2015

Re : Date format 10-FEB-2016 => 10/02/2016

Re...

eastwick à dit:
Bonjour le forum, chez moi, la macro de mon fichier fonctionne !!! (forcément)

Chez moi, ça fonctionne aussi.

Bonne soirée.

ℝOGER2327
#8145

Mardi 17 Sable 143 (Saint Moyen, français - fête Suprême Quarte)
26 Frimaire An CCXXIV, 7,0827h - pignon
2015-W51-4T16:59:54Z

MJ13 · 17 Décembre 2015

Re : Date format 10-FEB-2016 => 10/02/2016

Re

Chez moi sur XL2007, le code de Eastwick ne fonctionne pas 🙁 , erreur ici, désolé.

Code:

  ActiveCell.FormulaR1C1 = "=LEFT(Tableau1[@Colonne1],2)"

eastwick · 18 Décembre 2015

Re : Date format 10-FEB-2016 => 10/02/2016

Bonjour le forum, sans doute une incompatibilité entre 2007 et 2010...

gosselien · 18 Décembre 2015

Re : Date format 10-FEB-2016 => 10/02/2016

Bonjour,

ma contribution sur une colonne de 18.000 lignes (0,4 sec)

Code:

Sub lesdates()
t = Timer
tbl = [A2].CurrentRegion
For i = 1 To UBound(tbl)
  On Error Resume Next
  m = Split(tbl(i, 1), "-")
   m(1) = Switch(m(1) = "JAN", 1, m(1) = "FEB", 2, m(1) = "MAR", 3, m(1) = "APR", 4, m(1) = "MAY", 5, m(1) = "JUN", 6, _
    m(1) = "JUL", 7, m(1) = "AUG", 8, m(1) = "SEP", 9, m(1) = "OCT", 10, m(1) = "NOV", 11, m(1) = "DEC", 12)
  tbl(i, 1) = m(1) & "/" & m(0) & "/" & m(2)
Next
[D1].Resize(UBound(tbl)) = tbl
MsgBox (Timer - t)
End Sub

P.

Date format 10-FEB-2016 => 10/02/2016

Niquido

XLDnaute Junior

Pièces jointes

ChTi160

XLDnaute Barbatruc

Nairolf

XLDnaute Accro

Nairolf

XLDnaute Accro

MJ13

XLDnaute Barbatruc

Nairolf

XLDnaute Accro

MJ13

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

Pièces jointes

Nairolf

XLDnaute Accro

eastwick

XLDnaute Accro

MJ13

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

eastwick

XLDnaute Accro

gosselien

XLDnaute Barbatruc

Discussions similaires

Date format 10-FEB-2016 => 10/02/2016

XLDnaute Junior

Pièces jointes

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Accro

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency