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

escouger

XLDnaute Occasionnel

• 19 Septembre 2016

• #2

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

 

Vote positif 0 Vote négatif

J

jblepetaf

XLDnaute Nouveau

• 19 Septembre 2016

• #3

escouger à dit:

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

Cliquez pour agrandir...

 

Pièces jointes

• Classeur1.xlsm

  11.3 KB · Affichages: 63

Vote positif 0 Vote négatif

J

jblepetaf

XLDnaute Nouveau

• 19 Septembre 2016

• #4

Voici le fichier

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 19 Septembre 2016

• #5

bonjour,

à tester :

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

A+

 

Vote positif 0 Vote négatif

J

jblepetaf

XLDnaute Nouveau

• 20 Septembre 2016

• #6

Paf à dit:

bonjour,

à tester :

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

A+

Cliquez pour agrandir...

Merci ça fonctionne.

 

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 20 Septembre 2016

• #7

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

 

Dernière édition: 20 Septembre 2016

Vote positif 0 Vote négatif