Discussion :

[dybmans]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[PMO2017]

Bonjour,

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

Essayez ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dybmans]

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

Merci