Controler une date sans se décaler

[Risleure]

Bonjour le Forum

Dans une macro, j'utilise l'évènement "Private Sub Worksheet_Change" pour mettre en forme les données entrées par l'utilisateur sur la ligne courante.

L'utilisateur doit obligatoirement entrer une date dans la colonne B de la ligne active. Si ce n'est pas une date on sort de la boucle (Exit Sub)

Donc si après avoir entré la date, l'utilisateur appuie sur la touche de tabulation, la macro est OK car LignActiv est toujours correct. Par contre si l'utilsateur a appuyé sur <Enter>, il s'est décalé d'une ligne vers le bas et alors le message d'erreur apparait car la cellule B(LignActiv+1) est en général vide.
Je ne veux pas interdire le décalage vers le bas dans l'usage normal de la touche <Enter> donc il faut absolument que j'agisse dans le code mais je cale 🙁

Merci pour votre aide

Voici un extrait du code employé

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LignActiv As Integer
....
LignActiv = ActiveCell.Row
'Gestion de la colonne 2
If Target.Column = 2 Then
If Not (IsDate(Cells(LignActiv, 2))) Then
MsgBox "Mettre une date valide", vbOKOnly
Exit Sub
Else
...
End If
End If
...
End Sub

 

[Cousinhub]

Re : Controler une date sans se décaler

Bonjour,

essaie avec ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Not (IsDate(Target)) Then
Application.EnableEvents = False
MsgBox "Mettre une date valide", vbOKOnly
Target = "": Target.Select
Application.EnableEvents = True
Exit Sub

Else
End If
End If
End Sub

 

[job75]

Re : Controler une date sans se décaler

Bonjour,
A essayer pour le test :

If Not IsDate(Intersect(Target,Range(Cells(LignActiv, 2), Cells(LignActiv + 1, 2)))) Then

A+

 

[Risleure]

Re : Controler une date sans se décaler

Merci bhbh et Job75

Ben Ouais ça marche bhbh (solution très propre et en plus elle vide la cellule en faute).

Je regarde aussi la soluce de Job75 car elle va peut être limiter la réécriture du reste du code.

Merci pour votre aide

 

[job75]

Re : Controler une date sans se décaler

Dans moncode, écrire -1 au lieu de +1... A+