Un message à chaque modification des valeurs des cellules Fermé

Question

Bonjour, Chers frères et soeurs de la communauté

J'ai code suivant: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect([A1:B10,D1:D10], Target) Is Nothing Then Exit Sub
    If MsgBox("Noter la date de modif ?", vbYesNo, "Confirmation") = vbYes Then
        Cells(Target.Row, 6) = Date
    End If
End Sub

Mon problème 
Une fois que une cellule est sélectionnée dans [A1:B10,D1:D10], même si la valeur de la cellule n'a pas été modifié la macro s'active et actualise la date.

Je voudrais plutôt que la macro s'active seulement quant les valeurs des cellules ont ont été modifié

Merci pour votre aide

Patrice33740 · Answer

Bonjour,

« Une fois que une cellule est sélectionnée dans [A1:B10,D1:D10], même si la valeur de la cellule n'a pas été modifié la macro s'active et actualise la date. »
C'est très curieux, car la simple action de sélectionner ne provoque pas l'événement Change !!!
N'y aurait-il pas aussi une macro sur l'évènement SelectionChange ???

Un message à chaque modification des valeurs des cellules

1 réponse

Discussions similaires