Transformer des dates

[MJ13]

Bonjour à tous

Comment puis je transformer des dates sous forme texte (voir pièce jointe) en date compatible Excel avec l'année en cours?

Je recherche une solution par formule et en VBA.

Merci d'avance.

 

[tototiti2008]

Re : Transformer des dates

Bonjour MJ13,

en formule :

en B1, par exemple :

=DATE(2010;SUBSTITUE(A1;" ";"")*1-ENT(SUBSTITUE(A1;" ";"")*1/100)*100;ENT(SUBSTITUE(A1;" ";"")*1/100))

à recopier vers le bas

 

[Tibo]

Re : Transformer des dates

Bonjour,

Une autre tentative formule :

=TEXTE((SUBSTITUE(A1;" ";"")*10000)+ANNEE(AUJOURDHUI());"00-00-0000")*1

Format Date et à recopier vers le bas

@+

 

[tototiti2008]

Re : Transformer des dates

Bonjour Tibo,
Re,

trop fort Tibo, comme d'habitude... je ne savais pas qu'il interprétait ce qui ressemble en texte à une date comme une date avec un simple "*1"

 

[MJ13]

Re : Transformer des dates

Bonjour Tototiti, Tibo

Merci beaucoup les amis, vous êtes trop fort 😉.

J'ai repris vos formule pour l'adapter en VBA dans le fichier joint.

Bonne journée 🙂.

 

[tototiti2008]

Re : Transformer des dates

Re,

Ouahh, tu as vu Tibo, des macros à nos noms 😉
c'est gentil, ça 🙂

 

[Tibo]

Re : Transformer des dates

re,

Sympa en effet,

Quant à la formule proposée, il faut dire que j'avais révisé hier, car j'ai répondu sur un autre Forum à une question similaire. C'était donc encore tout frais.

@+

 

[hoerwind]

Re : Transformer des dates

Salut MJ, tototiti et Tibo,

Une variante à la formule de Tibo :
=--TEXTE(A1&ANNEE(AUJOURDHUI());"00-00-0000")

 

[ROGER2327]

Re : Transformer des dates

Bonjour à tous

Tant qu'à utiliser du code, autant qu'il n'encombre pas la feuille de formules : le poids du classeur y gagnera...

[COLOR="DarkSlateGray"][B]Sub toto()
Dim oCel As Range, x%
   For Each oCel In Selection
      If Not IsEmpty(oCel) Then
         x = CInt(Val(Replace(oCel.Value, " ", "")))
         oCel.Offset(0, 1).Value = DateSerial(Year(Date), x Mod 100, x \ 100)
      End If
   Next oCel
End Sub[/B][/COLOR]

ROGER2327
#3155

 

[Tibo]

Re : Transformer des dates

RE?

merci à hoerwind pour avoir fait encore plus "simple" et qui me permet ainsi de découvrir que cette fonction TEXTE sait également interpréter une chaîne Texte.

@+

 

[MJ13]

Re : Transformer des dates

Re, Bonjour Hoerwind,Roger

Hoerwind: Encore une nouvelle formule. Alors, celle la, il fallait la trouver 😕!

Roger: Merci pour ta participation au VBA , j'en reste BABA (mais pas au rhum) 🙂.

Merci à tous, bonne soirée.

Voici le fichier avec les nouvelles propositions de Hoerwind et Roger.