Répondu

Résolu

Salut et bienvenue sur le Forum,

Eventuellement en stockant au préalable la valeur de la cellule sélectionnée, comme dans le fichier ci-joint ?

Cordialement.

EDIT IMMEDIATE : Et ben, t'es un rapide, toi Il y a deux minutes, ta demande était encore d'actualité.

Teocali a écrit :

Merci finalement j'ai trouvé la solution il fallait que je déclare la variable avant.

Private AnncienneValeur As Variant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

AnncienneValeur = Target.Value

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

MsgBox "Vous venez de modifier la cellule" & vbCrLf & "L'ancienne valeur est de :" & AnncienneValeur & vbCrLf & "La nouvelle valeur est de : " & Target.Value

End Sub

Je trouve que tu aurais dû rester sur ton fil pour me répondre de manière à ce que d'autres membres puissent éventuellement profiter de ta solution ........ qui me semble préférable à la mienne Sauf en ce qui concerne la justesse du texte et de sa mise en page

A la prochaine.