Tester la présence d'une date dans une cellule

Bonjour,

Je dois réaliser un programme excel dans lequel l'utilisateur devra rentrer une date dans une cellule. Il faudrait donc ensuite tester la présence du format de la date, pour qu'en cas de problème de saisie de l'utilisateur, un message d'erreur s'affiche.

Pourriez vous m'aider?

Merci

Bonsoir,

tu peux tester ainsi...

Si tu dois entrer tes dates, dans la zone de A2 à A32....

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A32")) Is Nothing Then
    If Not IsDate(Target) And Target.Value <> "" Then
        MsgBox "Veuillez entrer une date valide"
        Target.Value = ""
        Target.Select
    End If
End If
End Sub

Bon courage, et reviens, si problémes

PS : 29 pour le département?

Bonsoir,

Merci d'avoir répondu. Connaissez vous la procédure en utilisant uniquement des fonctions excel et non en VBA? Car je dois rendre ce travail en contrôle continu d'informatique, et nous n'avons pas étudié le VBA.

PS : oui, 29 c'est pour le département

Merci

bonsoir,

Utilise Données / Validation autoriser Date... et les différentes possibilités offertes.

... Dans cette boite de dialogue voir aussi l'onglet Alerte Erreur

A+

Merci beaucoup pour votre aide, j'ai résolu mon problème.

Bonjour,

J'ai de nouveau un soucis avec mon progamme. Pour chercher une date dans la cellule B1, j'utilise =CHERCHE(("??/??/????");B1;1). Si dans la cellule, je rentre 15/11/2008 par exemple, la fonction cherche renvoie un message d'erreur, alors qu'elle devrait renvoyer "1". Par contre, si dans la cellule, je rentre 15/11/2008gtgregu , j'obtiens bien le résultat voulu :"1". Comment faire pour obtenir "1" en entrant uniquement une date dans la cellule B1?

Merci

Bonsoir

=SI(CELLULE("Format";B1)="D1";1;0)

J'ai mis 0, mais tu peux mettre ce que tu veux

par exemple

=SI(CELLULE("Format";B1)="D1";1;"Ce n'est pas une date")

Cordialement

Merci

Amadéus a écrit :

Bonsoir

=SI(CELLULE("Format";B1)="D1";1;0)

J'ai mis 0, mais tu peux mettre ce que tu veux

par exemple

=SI(CELLULE("Format";B1)="D1";1;"Ce n'est pas une date")

Cordialement

je reviens sur un vieux post, car j'ai un problème, et la solution est surement par ici,

je ne comprends absolument rien à cette formule : =SI(CELLULE("Format";B1)="D1";1;0)

notamment à la condition CELLULE("Format";B1)="D1"

que veut dire cellule ? la cellule dans laquelle on entre la formule ?

("format";b1) alors là c'est le vide intersidéral pour moi !!

est-ce que quelqu'un peut me faire une traduction ? Amadéus ?

j'ai créé un post pour expliquer mon problème : https://forum.excel-pratique.com/excel/fonction-si-et-format-date-t66810.html

cdlt