Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdress As String, AncCell As Variant
If AncAdress <> "" Then 'pour 1ère initialisation.
If AncCell <> Range(AncAdress) Then
'La cellule que l'on vient de quitter a été modifiée.
'Mettre l'action à exécuter.
Stop
End If
End If
AncAdress = Target.Address
AncCell = Target.Value2
End Sub
Résultats pour Détection de modification de cellule
Résultats pour Détection de modification de cellule
Résultats pour Détection de modification de cellule
Résultats pour Détection de modification de cellule
Résultats pour Détection de modification de cellule