Test de validité d'une date

est-ce qu'il y a l'équivalent de ce test pour une date :

Code:

---

1 2 3

If Not IsNumeric(interval) Then MsgBox "La valeur de I16 de la feuille Procedure n'es pas numérique" Exit Sub

---

Car je pourrais sécuriser la saisie des dates par l'utilisateur

Bonjour,

Citation:

---

est-ce qu'il y a l'équivalent de ce test pour une date :

---

Essayez ceci

Code:

---

1 2 3 4 5 6

Sub ss() If Not IsDate([a1]) Then MsgBox "La valeur de la cellule A1 n'est pas une date" Exit Sub End If End Sub

---

Cordialement.

PMO
Patrick Morange

c'est super çà fonctionne comme çà s'il y a une faute de frappe, l'utilisateur est prévenu.

Merci:ccool: