XL 2010 pb d'extraction d'une date d'une cellule en vba.

[jblepetaf]

Bonjour.
Je rencontre un problème lorsque je veux extraire une date d'une cellule en texte. Le jour et le mois s'inverse pour les jours entre 1 et 12.
Voici ce que j ai écrit :
derniere_ligne=Activesheet.cells(Application.row.count,4).end(x1Up).Row
For i=3 to derniere_ligne
Cells(i,4).value=right(cells(i,4).value,10)
Next i
Le contenu de la casse de départ est toujours du type
xxx.xx/xx/xxxx

 

[escouger]

Bonjour,
Pouvez-vous envoyer un fichier d'exemple ?
Merci

 

[jblepetaf]

Bonjour,
Pouvez-vous envoyer un fichier d'exemple ?
Merci

 

[jblepetaf]

Voici le fichier

 

[Paf]

bonjour,

à tester :

Cells(i, 4).Value = CDate(Right(Cells(i, 4).Value, 10))

A+

 

[jblepetaf]

bonjour,

à tester :

Cells(i, 4).Value = CDate(Right(Cells(i, 4).Value, 10))

A+

Merci ça fonctionne.

 

[Yurperqod]

Bonjour le forum

Avec une formule et un format si besoin (toujours en utilisant Droite)
Dans une colonne vide
=DROITE(C2;10)*1
Appliquer ce format sur cette colonne : jjj. jj/mm/aaaa

Il y aussi la possibilité de le faire avec Données/Convertir

Sub Macro1()
Range(Cells(2, "C"), Cells(Rows.Count, "C")).TextToColumns _
    Destination:=Range("C2"), DataType:=xlDelimited, Space:=True, _
    FieldInfo:=Array(Array(1, 9), Array(2, 4))
End Sub