Interdire la saisie d'un 29/02

[natorp]

Bonjour à toutes et tous

j'aimerai qu'ils soit impossible de saisir un 29/02 d'une année non bissextile sur toute une colonne
Et qu'une fenêtre popup apparaisse pour prévenir l'utilisateur

Merci pour votre attention et votre aide

Cordialement, Gérard

 

[pierrejean]

Bonjour natorp
A tester : Normalement aucune date invalide ne devrait être possible
NB: ton fichier n'acceptait pas les macros événementielles celui ci oui

 

[Jocelyn]

Bonjour le Forum,
Bonjour natorp,

Un essai en passant par la validation de donnée voir la cellule A2 a étendre vers le bas si cela convient

Cordialement

EDIT : Bonjour pierrejean 🙂 désolé pour la collision mais content de te croiser

 

[Lone-wolf]

Bonjour tout le monde 🙂

un autre exemple avec utilisation de TAB.

 

[natorp]

Bjr à vous

Pierrejean : c'est tout à fait cela, il manque juste la suppression de la saisie et le curseur dans la cellule de saisie

Jocelyn : c'est parfait, il suffisait d'y penser, bien vu !!!

Lone-wolf : j'ai un plantage dès que je mets le curseur en A2 : incompatibilité de type à ce niveau :

If Day(DateSerial(Year(ActiveCell.Offset(0, -1).Value), _
Month(ActiveCell.Offset(0, -1).Value), Day(ActiveCell.Offset(0, -1).Value))) = 29 Then

Cordialement, Gérard

 

[pierrejean]

Re
Version avec suppression de la saisie et retour a la case
Salut à Lone-Wolf
et Toujours heureux de te croiser également Jocelyn

 

[natorp]

Merci Pierrejean

Pourquoi ton test ne fonctionne-t-il pas avec une date entrée sous la forme 29/02/17 ?

Cordialement, Gérard

 

[Lone-wolf]

Re pierrejean

Moi j'ai fait comme ceci: x = Format(CDate(Target.Value), "dd.mm.yyyy") et noté 29.03.2017 et pas de message.

 

[pierrejean]

Re
Parce que Excel l’interprète comme le 17/02/2029
J'ai ajouté de quoi interpréter le 17 comme 2017 mais le fichier ne sera plus valable a partir du 01/01/3000
Reviens à ce moment et on avisera

 

[natorp]

😀😀😀😀

Merci beaucoup....Gérard