Macro format standart dates, en format dates pas reconnu

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide . En effet j'ai trouvé sur ce forum, une macro pour transfomer du texte date en format date. Le souci c'est que ces dates ne sont pas reconnues comme telles....

fichier joint

Merci pour l'aide que vous voudrez bien m'apporter.

Bien amicalement,
Christian

 

[tototiti2008]

Re : Macro format standart dates, en format dates pas reconnu

Bonjour Christian,

les données de la colonne A ne sont pas transformées en dates

essaye la formule

=DATEVAL(DROITE(A1;NBCAR(A1)-CHERCHE(" ";A1)))

pour les transformer

 

[Christian0258]

Re : Macro format standart dates, en format dates pas reconnu

Re, le forum, tototiti2008,

Effectivement avec ta formule ça fonctionne parfaitement.

Reste à trouver pour appliquer cette formule en code VBA. En effet j'ai beaucoup de lignes et je ne souhaite pas allourdir mon fichier.

Merci encore pour ton aide.

Bien à toi.
à+
Christian

 

[tototiti2008]

Re : Macro format standart dates, en format dates pas reconnu

Re,

en VBA :

Sub Convertir()
Dim d&, tablo, i&
d = [A65536].End(xlUp).Row
tablo = Application.Transpose(Range("A1:A" & d))
On Error Resume Next 'si toutes les valeurs ne sont pas des dates
For i = 1 To d
  tablo(i) = DateValue(Right(tablo(i), Len(tablo(i)) - InStr(1, tablo(i), " ")))
Next
With [A1].Resize(d)
  .NumberFormat = "dddd dd mmm yyyy" 'ou autre format Date
  .Value = Application.Transpose(tablo)
End With
End Sub

 

[Christian0258]

Re : Macro format standart dates, en format dates pas reconnu

Re, le forum, tototiti2008,

Super, merci pour la macro, c'est parfait.

Dis-moi, pourquoi j'ai des quelques cellules avec #N/A après la dernière date à traiter ?.

Encore merci, tototiti2008.

Bien à toi,
Christian