Discussion :

[Sergio63]

Bonjour,

Je vérifie qu'une donnée saisie dans une cellule est bien une date dans une procédure VBA avec la fonction Isdate().

Tout se passait bien jusqu'à ce qu'un utilisateur entre une date de la façon suivante : "20 08 08" au lieu de "20/08/08".

Le problème est que Isdate() laisse passer cette saisie qu'il a l'air de considérer comme une date valide par contre le contenu de la cellule est utilisé un peu plus loin dans une formule qui utilise la fonction Joursem() et là j'ai un beau #VALEUR!

Quelqu'un a t-il une idée pour empêcher les utilisateurs de saisir "20 08 08" ?

Merci

Cordialement

Sergio

[ucfoutu]

Bonjour,

Je me suis déjà à maintes reprises suffisamment épuisé à essayer de convaincre que l'on ne se contentait pas de Isdate pour contrôler une saisie de date... en vain (malgré les nombreuses raisons exposées)...
Je vais donc ici me contenter du SEUL aspect que tu dénonces, sans même parler des autres (nombreux et pouvant avoir de facheuses conséquences) à nouveau :

Code :

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

1
2
3
4
toto = "20 08 08"
If Not toto Like "##/##/##" Or Not IsDate(toto) Then
  MsgBox toto & " n'est pas accepté"
End If

[Gorfael]

Salut Sergio63
ou tu transformes :

Code :

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

1
2
3
Sub test()
If IsDate([A1]) And Not ([A1] Like "*/*") Then [A1] = CDate([A1])
End Sub

si A1 est reconnu comme une date, mais est du texte, on le transforme en date. Teste
A+

[Sergio63]

J'ai rajouté un test avec "like" et ça fonctionne :

Code :

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

1
2
3
4
5
6
7
 
    If Not IsEmpty(Target.Value) And Not IsDate(Target.Value) Or Not Target.Value Like "##/##/####" Then
        ' Vérification que la donnée entrée est bien une date
        MsgBox ("Attention vous devez saisir une date valide ligne " & Target.Row)
        Range("F" & Target.Row).Select
    Else
    ...

Merci de votre aide

Cordialement

Sergio