Dates et format

mapomme

XLDnaute Barbatruc

Supporter XLD

• 2 Décembre 2018

• #2

Bonjour gourdin,

Essayez:

VB:

Sub TexteEnDate()
Range("C9:C22").NumberFormat = "general"
Range("C9:C22").TextToColumns Destination:=Range("C9"), DataType:=xlFixedWidth, FieldInfo:=Array(0, xlDMYFormat)
End Sub

edit: Bonjour @job75 😉.

 

Dernière édition: 2 Décembre 2018

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Décembre 2018

• #3

Bonjour gourdin, mapomme,

Avec un tableau VBA c'est aussi très rapide :

Code:

Sub Convertir()
Dim tablo, i&
With Range("C9:C22")
    tablo = .Value
    For i = 1 To UBound(tablo)
        If IsDate(tablo(i, 1)) Then tablo(i, 1) = CDate(tablo(i, 1))
    Next
    .Value = tablo
End With
End Sub

Sur 140 000 lignes l'exécution se fait chez moi en 1,5 seconde, la macro de mapomme en 0,9 seconde.

A+

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 2 Décembre 2018

• #4

Merci beaucoup mapomme car celà fonctionne et correspond à mes besoins
Bon dimanche

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 2 Décembre 2018

• #5

Merci Job75 également
Ca fonctionne aussi
Bon dimanche

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 2 Décembre 2018

• #6

Bonsoir,
J'ai le même problème avec des dates au format plus long tel que "09/06/2018 15:43:00"
J'ai utilisé le code de "mapomme" mais cela ne fonctionne pas sur toutes les cellules.
Voir pièce jointe
Merci

 

Pièces jointes

• collage_special2.xls

  53.5 KB · Affichages: 14

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 2 Décembre 2018

• #7

Re,
Essayer le code suivant:

VB:

Sub TexteEnDateHeureA()
  t = Range("C9:C22").Value2
  For i = 1 To UBound(t)
    If Not IsNumeric(t(i, 1)) Then t(i, 1) = DateValue(Split(t(i, 1))(0)) + TimeValue(Split(t(i, 1))(1))
  Next i
  Range("C9:C22").NumberFormat = "dd/mm/yyyy hh:mm:ss"
  Range("C9:C22") = t
End Sub

 

Dernière édition: 2 Décembre 2018

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Décembre 2018

• #8

Re,
Le code de mon post #3 va bien sur les dates + heures.

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 3 Décembre 2018

• #9

Bonjour,
Merci à vous 2.
Tout fonctionne avec vos solutions respectives
PS : désolé je n'ai pas pu répondre hier soir

 

Vote positif 0 Vote négatif