Annuler la valeur saisie sur condition

[chris6999]

Bonjour

Je cherche désespéremment à trouver le moyen d'invalider la saisie dans une cellule lorsque telle condition n'est pas respecté.

Je suis dans une macro de type Private Sub Worksheet_Change(ByVal Target As Range)

Je souhaiterais
Condition : lorsque la cellule contient le caractère / alors
-Le curseur revient à la cellule avant le "change"
-La valeur saisie est supprimée (car non valide)
-message d'alerte de type MSGBOX
Sortie de la macro


Voici une partie de mon code :

Private Sub Worksheet_Change(ByVal Target As Range)

Dim t As Variant
If Intersect(Target, [C2:F65536]) Is Nothing Then Exit Sub
Set Target = Target.Cells(1, 1) 'une seule cellule
t = Target.Value2
If IsError(t) Then Exit Sub
If t = "" Then Exit Sub
If t Like "/" Then targer = ""
MsgBox ("Pas de /")
'RETOUR A LA CELLULE INITIALE
'ANNULE LA VALEUR SAISIE
Exit Sub


J'ai fait des recherches mais sans trouver la solution.

Merci d'avance pour votre aide
Cordialement

 

[job75]

Re : Annuler la valeur saisie sur condition

Bonjour chris6999,

Je cherche désespéremment (...)
J'ai fait des recherches mais sans trouver la solution.

Je vois que vous faites suite à ce fil :

https://www.excel-downloads.com/threads/question-date-pour-job75.187349/

Et vous pouvez toujours chercher, je vous ai déjà dit au post #10 :

On ne peut pas éviter cet inconvénient.

PS : si le résultat est bien une date, Target.Value2 est un nombre (sans /)...

A+

 

[chris6999]

Re : Annuler la valeur saisie sur condition

Bonjour JOB75

C'est vrai que j'essaye de trouver des solutions de contournement. C'est mon petit coté obstiné...
Je pensais pouvoir sortir de la macro avant application de la mise en forme au format date (que j'avais modifié jj-mm-aa au lieu de jj/mm/aa)
mais bon si vous me dites que c'est vraiment impossible, je vais abandonner... avec beaucoup de regret

Cordialement et à bientôt pour un autre sujet bien sûr.