VBA-CONVERTIR DATE TEXTE en FORMAT DATE !!

[Celeda]

Bonjour,

Peut-être ce sujet a-t-il évoqué mais je n'ai pas trouvé de soluce de ce type, à mon petit souci :

je récupère un fichier avec des extractions de SAP;
dans la colone date, apparait ceci :
'25/02/2010
et à chaque extraction, j'y ai droit.

Je cherche donc une macro qui m'enlève directement l'apostrophe pour me laisser seulement une date en format date.

A l'avance, je vous en remercie.

 

[kjin]

Re : VBA-CONVERTIR DATE TEXTE en FORMAT DATE !!

Bonjour Celeda,

On error Resume next 'si A1 n'est pas une date
Range("A1") = CDate(Range("A1"))
On error goto 0

convertira le texte de A1 en date
A+
kjin

 

[Pierrot93]

Re : VBA-CONVERTIR DATE TEXTE en FORMAT DATE !!

Re, bonjour Kjin

Peut être une autre colution comme ceci pour la colonne A :

    Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 4)

bon après midi
@+

 

[Celeda]

Re : VBA-CONVERTIR DATE TEXTE en FORMAT DATE !!

Bonjour,

Merci Kijin and Pierrot mais est-ce possible d'avoir la conversion en :

jj/mm/aaaa

au lieu de mm/jj/aaaa

Merci

 

[Pierrot93]

Re : VBA-CONVERTIR DATE TEXTE en FORMAT DATE !!

Re,

si les données source sont exprimées ainsi "02/25/2010" :

    Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, FieldInfo:=Array(0, 3)

 

[job75]

Re : VBA-CONVERTIR DATE TEXTE en FORMAT DATE !!

Bonjour Celeda, kjin, Pierrot,

Une macro assez rapide (car avec tableau), proche du code de kjin :

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) = CDbl(CDate(tablo(i)))
Next
With [A1].Resize(d)
  .NumberFormat = "dd/mm/yyyy" 'ou autre format Date
  .Value = Application.Transpose(tablo)
End With
End Sub

A+

 

[Celeda]

Re : VBA-CONVERTIR DATE TEXTE en FORMAT DATE !!

Bonjour,

Merci beaucoup à vous trois,

cela marche impec

Sincérement votre

 

[Licha76]

Re : VBA-CONVERTIR DATE TEXTE en FORMAT DATE !!

Je te remercie Pierrot mais pourrais tu m expliquer comment fonctionne la ligne de programmation ? Je souhaiterais comprendre 🙂

Merci encore ^^

 

[Pierrot93]

Re : VBA-CONVERTIR DATE TEXTE en FORMAT DATE !!

Bonjour,

c'est l'équivalent de la conversion de données... touche de fonction F1 dans l'éditeur vba quand tu es sur le mot "TextToColumns" te donnera le détail des arguments de la méthode...

bon après midi
@+