Macro pour transformer date format texte, en format date...

Dranreb

XLDnaute Barbatruc

• 10 Juin 2011

• #2

Re : Macro pour transformer date format texte, en format date...

Bonjour.
S'il y a toujours 2 chiffres pour le jour cette formule fait l'affaire:

Code:

=DATE(2000+DROITE(C1;2);STXT(C1;8;2);STXT(C1;5;2))

Ah, en VBA, j'avais pas vu
essayer CDate(Mid$(Z,5))
si pas bon:

VB:

Z=Split(Z,"/")
DatRés = DateSerial(2000+Z(2), Z(1), mid$(z(0),5))

Cordialement

 

Dernière édition: 10 Juin 2011

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 10 Juin 2011

• #3

Re : Macro pour transformer date format texte, en format date...

Bonjour
Sous la forme d'instruction macro par exemple
Function madate(ad)
madate = CDate(Right(ad, 8))
End Function

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 10 Juin 2011

• #4

Re : Macro pour transformer date format texte, en format date...

Re, le forum, Dranreb, sousou,

Merci à vous pour vos solutions.

Dis-moi, sousou, j'ai placé tes lignes de commande dans la feuille et j'ai déclaré la zone "madate", mais rien
ne se passe ?

peux-tu me dire...

Bien à vous,
Christian

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 12 Juin 2011

• #5

Re : Macro pour transformer date format texte, en format date...

Re, le forum,

Je reviens vers vous, pour essayer de finaliser ma demande...

Merci pour le temps que vous voudrez bien m'accorder.

Bien à vous,
Christian

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Juin 2011

• #6

Re : Macro pour transformer date format texte, en format date...

Bonjour.
Cette macro transforme bien les cellules sélectionnées en dates:

VB:

Option Explicit

Sub TexteDates()
Dim Cel As Range
For Each Cel In Selection
   Cel.Value = CDate(Mid$(Cel.Value, 5))
   Next Cel
End Sub

À+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Juin 2011

• #7

Re : Macro pour transformer date format texte, en format date...

Bonjour Christian0258, Dranreb, sousou,

Christian0258 à dit:

Dis-moi, sousou, j'ai placé tes lignes de commande dans la feuille et j'ai déclaré la zone "madate", mais rien ne se passe ?

Cliquez pour agrandir...

Christian n'a pas compris comment utiliser la fonction de sousou, je réponds en son absence.

Le code de cette fonction doit être placé dans un Module.

Fichier joint.

A+

 

Pièces jointes

• DatesTexteEnFormatDate(1).xls

  29 KB · Affichages: 308

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 16 Juin 2011

• #8

Re : Macro pour transformer date format texte, en format date...

Re, le forum, Dranreb, job75,

Avec beaucoup de retard, et je m'en excuse, je vous remercie infiniment
pour vos réponses et solutions.

Encore un grand merci.

Bien à vous,
Christian

 

Vote positif 0 Vote négatif