Microsoft 365 vba excel extraire une date d'une cellule

[Mesda]

Bonjour,
je souhaiterais extraite une date (de chaque cellule) dans une chaine de caractères et la copier dans la cellule de droite (colonne L dans l'exemple)
Pouvez vous m'aider ?

Mesda

 

[JHA]

Bonjour à tous,

A essayer mais tu as des dates à 10 caractères et 8 caractères.

=SIERREUR(STXT($K2;EQUIV(VRAI;ESTNUM(STXT($K2;LIGNE($1:$255);10)*1);0);10);"")

JHA

 

[nat54]

Bonjour,
J'allais proposer le simple =DROITE(K2;10)
Mais j'ai ensuite vu que certaines dates avaient 8 chiffres et certaines avec parenthèses

 

[mapomme]

Bonjour à tous,
Une autre ?:
=SIERREUR(DATEVAL(STXT(K2;CHERCHE("/";K2)-2;10));DATEVAL(STXT(K2;CHERCHE("/";K2)-2;8)))

 

[mapomme]

Re,
ou bien plus court :
=DATEVAL(STXT(K2;CHERCHE("/";K2)-2;8+2*NB.SI(K2;"*/20*")))

 

[sylvanu]

Bonsoir Mesda, JHA, Nat, Mapomme,
A mon tour avec :

=SIERREUR(SUBSTITUE(STXT(K2;CHERCHE("/";K2)-2;10);")";"");"")

😉

 

[Mesda]

Merci beaucoup à tous pour vos réponses.
Celle qui convient le mieux, c'est la 2 eme de mapomme.
par contre si il n'y a pas de date, c'est possible de laisser la cellule vide ? là, j'ai "#VALEUR!#" qui s'affiche ?

​

 

[mapomme]

Re,

Ajouter un SiErreur :

=SIERREUR(DATEVAL(STXT(K2;CHERCHE("/";K2)-2;8+2*NB.SI(K2;"*/20*")));"")

 

[Mesda]

c'est nickel
merci mapomme