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

jblepetaf · 19 Septembre 2016

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 · 19 Septembre 2016

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

jblepetaf · 19 Septembre 2016

escouger à dit:
Bonjour,
Pouvez-vous envoyer un fichier d'exemple ?
Merci

jblepetaf · 19 Septembre 2016

Voici le fichier

Paf · 19 Septembre 2016

bonjour,

à tester :

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

A+

jblepetaf · 20 Septembre 2016

Paf à dit:
bonjour,

à tester :

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

A+

Merci ça fonctionne.

Yurperqod · 20 Septembre 2016

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

VB:

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

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

jblepetaf

XLDnaute Nouveau

escouger

XLDnaute Occasionnel

jblepetaf

XLDnaute Nouveau

Pièces jointes

jblepetaf

XLDnaute Nouveau

Paf

XLDnaute Barbatruc

jblepetaf

XLDnaute Nouveau

Yurperqod

XLDnaute Occasionnel

Discussions similaires