Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'à chaque changement de sélection val = Target.Value 'redéfinit la cellule val (val prend alors la valeur initiale de la cellule) End Sub Private Sub Worksheet_Change(ByVal Target As Range) 'à chaque changement dans la feuille If Target.Value <> val Then 'si le changement est différent de l 'ancienne valeur MsgBox Target.Address 'message indiquant l'adresse de la cellule qui a été modifiée End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question