XL 2013 (RESOLU) Message lors de modification de la cellule fusionnée

chaelie2015 · 28 Mars 2024

Bonjour Forum
Je suis à la recherche d'un code qui déclenche un message lorsque je modifie la cellule Y10 (fusionnée) de la feuille active. Ce message ne doit s'afficher que si la nouvelle valeur saisie est différente de celle déjà présente dans la cellule.
Par exemple, si la valeur actuelle de Y10 est 5 et que je saisis à nouveau 5, rien ne se produit. Cependant, si je saisis une autre valeur différente de 5 (peu importe si c'est vide ou autre), un message doit apparaître indiquant qu'il y a un changement.
A+

job75 · 28 Mars 2024

Bonjour chaelie2015 et les autres,

On peut utiliser :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [Y10]) Is Nothing Then Exit Sub
Dim sel As Range, mem
With Application
    .ScreenUpdating = False
    .EnableEvents = False
    Set sel = Selection
    .Undo 'annule la modification
    mem = [Y10]
    .Undo 'rétablit la modification
    sel.Select
    .EnableEvents = True
    .ScreenUpdating = True
End With
If [Y10] <> mem Then MsgBox "La cellule Y10 a été modifiée..."
End Sub

A+

sylvanu · 28 Mars 2024

Bonjour Chaelie,
Un essai en PJ avec :

VB:

Public ValeurAvant
' Récupère la valeur de Y10 sur clic sur Y10, et stocke la valeur en public
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [Y10:Z10]) Is Nothing Then ValeurAvant = [Y10]
End Sub
' Sur changement de valeur de Y10 alors message d'alerte.
Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [Y10:Z10]) Is Nothing Then
        a = ValeurAvant
        If ValeurAvant <> Target Then MsgBox "La valeur a été modifiée."
    End If
End Sub

Quand on clique sur la cellule on stocke la valeur en public.
Quand on valide la cellule on teste la valeur par rapport à la valeur précédente.

sylvanu · 28 Mars 2024

Bonjour Phil,
Dans votre fichier si la valeur dans Y10 ne change pas mais qu'on fait seulement Entrée on a le message d'alerte. Or :

chaelie2015 à dit:
Si la valeur actuelle de Y10 est 5 et que je saisis à nouveau 5, rien ne se produit.

Phil69970 · 28 Mars 2024

Sylvain

J'ai vu c'est pourquoi j'ai supprimé mon post

chaelie2015 · 28 Mars 2024

Bonjour Sylvanu, Phil69970
Je vous remercie pour votre réponse
@ Sylvanu : Votre réponse est parfaite et répond parfaitement à mes besoins, cependant, elle rencontre un problème si je supprime la cellule, j'ai une erreur d'exécution à ce niveau 'If ValeurAvant <> Target Then MsgBox "La valeur a été modifiée."'
@ Phil69970: Le message s'affiche même si je saisis la même valeur, ce n'est pas ce que j'avais souhaité.
A+

sylvanu · 28 Mars 2024

Re,

chaelie2015 à dit:
elle rencontre un problème si je supprime la cellule a ce niveau 'If ValeurAvant <> Target Then MsgBox "La valeur a été modifiée."'

Qu'entendez vous par "si je supprime la cellule a ce niveau" ?
Si vous supprimez la cellule ? ou vous supprimez la valeur ?

chaelie2015 · 28 Mars 2024

sylvanu à dit:
Re,

Qu'entendez vous par "si je supprime la cellule a ce niveau" ?
Si vous supprimez la cellule ? ou vous supprimez la valeur ?

chaelie2015 · 28 Mars 2024

Re
Lorsque je supprime la valeur dans la cellule , celle-ci devient vide.j'ai une erreur d'execution 013 a ce niveau du code : If ValeurAvant <> Target Then
A+

Phil69970 · 28 Mars 2024

Bonjour à tous

2eme essai

job75 · 28 Mars 2024

Bonjour chaelie2015 et les autres,

On peut utiliser :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [Y10]) Is Nothing Then Exit Sub
Dim sel As Range, mem
With Application
    .ScreenUpdating = False
    .EnableEvents = False
    Set sel = Selection
    .Undo 'annule la modification
    mem = [Y10]
    .Undo 'rétablit la modification
    sel.Select
    .EnableEvents = True
    .ScreenUpdating = True
End With
If [Y10] <> mem Then MsgBox "La cellule Y10 a été modifiée..."
End Sub

A+

sylvanu · 28 Mars 2024

Sur mon PC je n'ai pas ce souci :

C'est bien de cela dont vous parlez ?

chaelie2015 · 28 Mars 2024

Phil69970 à dit:
Bonjour à tous

2eme essai

Re
En effet, cela brûle sans que je n'aie rien touché. Lorsque je saisis à nouveau la même valeur, le message 'ça brûle' s'affiche.

Phil69970 · 28 Mars 2024

Pourtant cela fonctionne chez moi
A l'ouverture la valeur qui est en Y10 est stocké dans la dernière cellule de la feuille et après il y a une comparaison avec cette valeur

chaelie2015 · 28 Mars 2024

sylvanu à dit:
Sur mon PC je n'ai pas ce souci :
Regarde la pièce jointe 1193748
C'est bien de cela dont vous parlez ?

Re
La manière dont j'ai supprimé n'est pas la même que la tienne. J'ai utilisé le bouton 'suppr' du clavier, c'est pourquoi j'ai reçu un message d'erreur d'exécution.

chaelie2015 · 28 Mars 2024

Re
Je remercie tout le monde pour les propositions. La réponse de Job est plus adaptée à mes besoins.
A+

XL 2013 (RESOLU) Message lors de modification de la cellule fusionnée

chaelie2015

XLDnaute Accro

Pièces jointes

job75

sylvanu

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

chaelie2015

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

chaelie2015

XLDnaute Accro

Discussions similaires