XL 2019 problème dates avec Private Sub Worksheet_SelectionChange

rh.finances · 7 Mai 2024

Bonjour à tous les internautes de ce super site,

Novice en VBA, je bute sur un problème qui à mon avis sera un jeu d'enfant pour un pro de VBA

dans le tableau joint, j'ai un code créé comme suit :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("jour1_arret_travail") < ("seuil_protection_statutaire") Then
MsgBox "L'agent a droit à une protection statutaire à partir de 4 mois d'ancienneté. tout arrêt antérieur au " & Range("jour1_arret_travail") & " ne peut être enregistré dans le tableau", vbOKOnly + Apparence + TypeDeBox, "saisie impossible"
Application.Undo

End If
End Sub

ce code doit s'activer en fonction des dates renseigner en A8 et C4 et si la date de la cellule A8 est antérieure à C4, le msgbox s'affiche.
mais en fait, rien ne marche et je ne trouve pas de solution.

merci d'avance pour vos retours et bonne journée.

Alex

vgendron · 7 Mai 2024

Bonjour

à priori, je vois plusieurs erreurs dans ton fichier

1) le code se déclenche à chaque fois que tu selectionnes une cellule: n'importe ou sur la feuille
==> pour limiter son déclenchement lorsque tu MODIFIES une cellule de la plage A8:A25==> utilise l'évènement change au lieu de selection_change
2) le test que tu fais: il manque un "range" pour le seuil_protection_statutaire"
et la range "jour1_Arret_Travail" n'est pas définie dans ta feuille: je pense qu'il s'agit de la cellule que tu es justement en train de modifier.. le target
3) dans ton message d'erreur, tu ne sembles pas utiliser la bonne plage nommée
4) ta validation de données appliquée sur la colonne A envoie toujours le message d'erreur quelque soit la date saisie...

TooFatBoy · 7 Mai 2024

Bonjour,

Dans la macro de ton message, il manque "Range".

vgendron · 7 Mai 2024

Bonjour

à priori, je vois plusieurs erreurs dans ton fichier

1) le code se déclenche à chaque fois que tu selectionnes une cellule: n'importe ou sur la feuille
==> pour limiter son déclenchement lorsque tu MODIFIES une cellule de la plage A8:A25==> utilise l'évènement change au lieu de selection_change
2) le test que tu fais: il manque un "range" pour le seuil_protection_statutaire"
et la range "jour1_Arret_Travail" n'est pas définie dans ta feuille: je pense qu'il s'agit de la cellule que tu es justement en train de modifier.. le target
3) dans ton message d'erreur, tu ne sembles pas utiliser la bonne plage nommée
4) ta validation de données appliquée sur la colonne A envoie toujours le message d'erreur quelque soit la date saisie

ca donnerait ce code, si j'ai bien compris

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A8:A25")) Is Nothing Then Exit Sub
    If Target = "" Then Exit Sub
    If Not IsDate(Target) Then Target = ""
    If Target < Range("seuil_protection_statutaire") Then
        MsgBox "L'agent a droit à une protection statutaire à partir de 4 mois d'ancienneté. tout arrêt antérieur au " & Range("seuil_protection_statutaire") & " ne peut être enregistré dans le tableau", vbOKOnly + Apparence + TypeDeBox, "saisie impossible"
        Application.Undo
    End If
End Sub

Dranreb · 7 Mai 2024

Bonjour.
Cette macro me semble inutile dans la mesure où il y a déjà une validation de donnée qui interdit la saisie d'une date antérieure au seuil de protection statutaire.

vgendron · 7 Mai 2024

Dranreb à dit:
Bonjour.
Cette macro me semble inutile dans la mesure où il y a déjà une validation de donnée qui interdit la saisie d'une date antérieure au seuil de protection statutaire.

Hello Bernard, à priori, quand j'ai testé, ca interdisait la saisie de n'importe quelle date, antérieure ou pas...
et la..dans le fichier du premier post, il n'y a plus cette validation de données.. notre ami aurait modifié le fichier?

rh.finances · 7 Mai 2024

Bonjour Toutfat, Drandreb et vgendron,
merci beaucoup pour ces retours.

Vgendron, la formule proposée marche très bien.
par contre, cela génère un truc bizarre sur la msgbox. je devrais avoir un message de ce type et la saisie erronée devrait en principe disparaitre en cliquant sur "annuler" :

or, ce n'est pas le cas, la date qui aurait été rentrée par erreur en A8 n'est pas effacée.
j'ai l'impression que la commande "Application.Undo" ne s'active pas.

merci beaucoup pour vos analyses

rh.finances · 7 Mai 2024

vgendron à dit:
Hello Bernard, à priori, quand j'ai testé, ca interdisait la saisie de n'importe quelle date, antérieure ou pas...
et la..dans le fichier du premier post, il n'y a plus cette validation de données.. notre ami aurait modifié le fichier?

J'avais en effet laissé une "validation de données" par erreur dans mon premier post mais comme cela ne marchait pas, je suis passé à une solution par macro. désolé, pour l'écueil !

vgendron · 7 Mai 2024

rh.finances à dit:
Bonjour Toutfat, Drandreb et vgendron,
merci beaucoup pour ces retours.

Vgendron, la formule proposée marche très bien.
par contre, cela génère un truc bizarre sur la msgbox. je devrais avoir un message de ce type et la saisie erronée devrait en principe disparaitre en cliquant sur "annuler" :
Regarde la pièce jointe 1196355
or, ce n'est pas le cas, la date qui aurait été rentrée par erreur en A8 n'est pas effacée.
j'ai l'impression que la commande "Application.Undo" ne s'active pas.

merci beaucoup pour vos analyses

Chez moi ca fonctionne bien, un message avec juste OK pour acquiter (vbyesOnly) et la saisie est effacée

Dranreb · 7 Mai 2024

Effectivement la formule de la validation de données est fausse, il faut :

Code:

=A8>=seuil_protection_statutaire

rh.finances · 7 Mai 2024

vgendron à dit:
Chez moi ca fonctionne bien, un message avec juste OK pour acquiter (vbyesOnly) et la saisie est effacée

Au temps pour moi ! en relançant le fichier, cela fonctionne bien.
Encore merci pour tout !!

XL 2019 problème dates avec Private Sub Worksheet_SelectionChange

rh.finances

XLDnaute Occasionnel

Pièces jointes

vgendron

TooFatBoy

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

rh.finances

XLDnaute Occasionnel

Pièces jointes

rh.finances

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

rh.finances

XLDnaute Occasionnel

Discussions similaires