Microsoft 365 Mois non reconnu

[kikouu]

Bonjour à tous,

Voilà, sur VBA j'ai écris un bout de code pour rendre qlq cellulles en format dates :

fndList = Array("-20", "-DEC-", "-FEV-")
rplcList = Array("-2020", "-déc-", "-fév-")

du coup les dates avec "DEC" sont bien reconnues après la modif, mais "FEV" ne l'est pas.

Une idée svp ?

 

[mapomme]

Bonjour kikouu,
Ce n'est pas parce que vous publiez deux fois le même message qu'il en est plus compréhensible.

 

[Etoto]

Bonjour kikouu,
Ce n'est pas parce que vous publiez deux fois le même message qu'il en est plus compréhensible.

Quel message est le bon parce qu'un message est sur Excel 365 et l'autre sur Excel 2019 ?

 

[kikouu]

Quel message est le bon parce qu'un message est sur Excel 365 et l'autre sur Excel 2019 ?

Vraiment désolé.
je n'avais vu que j'avais posté 2 fois le même message.

Je vais aller le clôturer.

 

[kikouu]

Bonjour kikouu,
Ce n'est pas parce que vous publiez deux fois le même message qu'il en est plus compréhensible.

Bonjour,

Alors voilà, j'ai une colonne avec des dates dedans. sauf que dans qlq unes il y a des dates du genre : "12-DEC-20" ou "01-FEV-20" qui ne sont pas reconnues par Excel. Et puisque je travaille sur une petite fonction qui compare les dates, j'ai fait d'abord un recherche/remplace dans VBA pour remplacer les "DEC" en "déc" et les "FEV" en "fév". Du coup, pour les "déc" c'est OK et Excel reconnait la date, mais pour "fév" j'ai toujours le même soucis.

Je ne sais pas si je suis clair maintenant.

 

[sylvanu]

Bonjour,
Peut être qu'XL utilise févr pour février et non fév :

 

[mapomme]

Bonsoir,

Chez moi sur une feuille Excel, la formule fonctionne : =DATEVAL(SUBSTITUE("01-FEV-20";"FEV";"fév"))
Chez moi en VBA, l'expression fonctionne : =Cdate(replace("01-FEV-20","FEV","fév"))

 

[kikouu]

Bonjour,
Peut être qu'XL utilise févr pour février et non fév :
Regarde la pièce jointe 1103116

J'ai essayé avec "févr" aussi ça ne marche pas depuis VBA

 

[kikouu]

Bonsoir,

Chez moi sur une feuille Excel, la formule fonctionne : =DATEVAL(SUBSTITUE("01-FEV-20";"FEV";"fév"))
Chez moi en VBA, l'expression fonctionne : =Cdate(replace("01-FEV-20","FEV","fév"))

Bonjour,

Excellent ça marche, merci infiniment!!