Interdire la saisie d'un 29/02

pierrejean

XLDnaute Barbatruc

• 27 Mars 2017

• #2

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

 

Pièces jointes

• Classeur1 (13).xls

  39 KB · Affichages: 55

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 27 Mars 2017

• #3

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

 

Pièces jointes

• natorp.xls

  26 KB · Affichages: 46

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 27 Mars 2017

• #4

Bonjour tout le monde 🙂

un autre exemple avec utilisation de TAB.

 

Pièces jointes

• Classeur1.xls

  38 KB · Affichages: 45

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 27 Mars 2017

• #5

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 :

Code:

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Mars 2017

• #6

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

 

Pièces jointes

• Classeur1 (13).xls

  35.5 KB · Affichages: 44

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 27 Mars 2017

• #7

Merci Pierrejean

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

Cordialement, Gérard

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 27 Mars 2017

• #8

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.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Mars 2017

• #9

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

 

Pièces jointes

• Classeur1 (13).xls

  36.5 KB · Affichages: 47

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 27 Mars 2017

• #10

😀😀😀😀

Merci beaucoup....Gérard

 

Vote positif 0 Vote négatif