XL 2021 Teste si variable est bien une date? Simple? Ben ...

[p'tit vieux]

Bonjour à tous,
je vous soumets un petit casse tête.
je veux tester si une variable nom typée est bien une date. J'entends déjà … "Facile!!"
Moi aussi je le croyais. Ben non!
Précision la variable peut contenir "n'importe quoi", une String ou une nombre ou d'autres choses

Exemples:
Une variable myVar = 6540
CDate(6540) = vrai
ET IsNumeric(myVar) = vrai
ET TypeName(myVar)= Integer

Pire ... myVar = "1,45" est une chaine
CDate(myVar) = vrai 😱
ET IsNumeric(myVar) = vrai
ET TypeName(myVar)= String

J'arrête là …

Peut-être n'est ce pas possible d'en être sûr?
Quelqu'un a t'il une idée tester et savoir si j'ai vraiment une date je suis preneur. au moins limiter les risques d'erreur afin de faire le bon traitement derrière.
Par avance merci.

 

[Modeste geedee]

Bonsour®

Si vous voulez seulement savoir si un Variant est déjà du sous-type Date c'est plus simple :

If VarType(MyVar) = vbDate Then

en dehors de cette réponse
pour Excel une date est la représentation d'une valeur numérique (N° de série)

Au niveau feuille de calcul :

• "By Design" lors d'un saisie, Excel utilise une pseudo "IA" qui selon la présence de certains séparateurs et mots-clés reconnait un format de date et transforme immédiatement, sans aucune intervention de l'utilisateur et à son insu, en N° de série.(valeur interne, l'affichage reste inchangé)
• Toute autre saisie non reconnue est considérée comme texte
  MOIS sans accent, >12
  Jour >31 , date inexistante (29/02/2023)
• A Tout nombre Positif et inferieur à 2958465 il peut alors être appliqué un format de date conforme aux options choisies sous Excel et Windows
• Date allant du 1/01/1900 au 31/12/9999

Via VBA :

• Correction du bug 29/02/1900
• A Tout nombre compris entre -657434 et 2958465 il peut alors être appliqué un format de date conforme aux options choisies sous Excel et Windows
• Date allant du 1/01/0100 au 31/12/9999

 

[p'tit vieux]

Bonsour®

en dehors de cette réponse
pour Excel une date est la représentation d'une valeur numérique (N° de série)

Au niveau feuille de calcul :

• "By Design" lors d'un saisie, Excel utilise une pseudo "IA" qui selon la présence de certains séparateurs et mots-clés reconnait un format de date et transforme immédiatement, sans aucune intervention de l'utilisateur et à son insu, en N° de série.(valeur interne, l'affichage reste inchangé)
• Toute autre saisie non reconnue est considérée comme texte
  MOIS sans accent, >12
  Jour >31 , date inexistante (29/02/2023)
• A Tout nombre Positif et inferieur à 2958465 il peut alors être appliqué un format de date conforme aux options choisies sous Excel et Windows
• Date allant du 1/01/1900 au 31/12/9999

Via VBA :

• Correction du bug 29/02/1900
• A Tout nombre compris entre -657434 et 2958465 il peut alors être appliqué un format de date conforme aux options choisies sous Excel et Windows
• Date allant du 1/01/0100 au 31/12/9999

Regarde la pièce jointe 1194374

Bonjour Modeste
Désolé de vous répondre avec retard.
Merci pour les infos sur les limites des valeurs. Je suis moins bête.😊
Je vais voir si cela m'aide. à éviter les confusions.
Merci encore

 

[p'tit vieux]

Bon j'en suis arrivé à cette conclusion temporaire
Dranreb à raison l'utilisation de VarType filtre déjà bien.
En complétant le VarType avec::
- un ou 2 Like du genre

 Like "*#[/, -]#*[/, -]##*"

Même si ce n'est pas du 100%, cela devrait déjà éliminer 99,xx% des risques de confusion.

Encore merci à tous pour vos réponses.
… Le gagnant est 🎺 … moi. Grâce à vous 😁

PS:
Pour répondre a DranReb qui a demandé si je lisais des Ranges …

Range("c1").Text, Range("c1").Value, Range("c1").Value2
12/01/2024 12/01/2024 45303

La solution est soit de ne lire que la propriété Text et/ou Value de la Range afin d'éviter la confusion car Value2 renvoie toujours un nombre.
Donc pas de souci dans ces cas là.
J'ai tendance à lire Value2 qui serait "un poil" plus rapide (à ce qu'il parait). Ce n'ai pas forcément une bonne idée.