Microsoft 365 vba excel extraire une date d'une cellule

J

JHA

XLDnaute Barbatruc

• 3 Janvier 2022

• #2

Bonjour à tous,

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

VB:

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

JHA

 

Pièces jointes

• modèle.xlsx

  13.9 KB · Affichages: 3

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 3 Janvier 2022

• #3

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 3 Janvier 2022

• #4

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 3 Janvier 2022

• #5

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 3 Janvier 2022

• #6

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

VB:

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

😉

 

Pièces jointes

• modèle.xlsx

  12.7 KB · Affichages: 7

Vote positif 0 Vote négatif

M

Mesda

XLDnaute Nouveau

• 5 Janvier 2022

• #7

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 ?

​

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 5 Janvier 2022

• #8

Re,

Ajouter un SiErreur :

VB:

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

 

Vote positif 0 Vote négatif

Solution

M

Mesda

XLDnaute Nouveau

• 5 Janvier 2022

• #9

c'est nickel
merci mapomme

 

Vote positif 0 Vote négatif