Récupération de la valeur initiale avant modification

Bonjour la famille,

J'ai deux événements Worksheet, le premier déclenche si la valeur d'une cellule change, l'autre c'est pour récupérer la valeur initiale avant la modification.

Mais j'ai un petit problème, la procédure pour récupérer la valeur initiale ne s'actualise pas, elle conserve la première valeur lors de la première modification.

voici le code:

Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Column = 10 Then
   ValCell = Target
 End If
End Sub
If Target.Column = 10 And Target.Value = "Gagnée" Then
Application.EnableEvents = False
   If MsgBox("Êtes-vous certain de rendre l'offre gagnée? ", vbYesNo + vbExclamation + vbDefaultButton2, "Modification d'état de vente") = vbNo Then
    Target.Value = ValCell
    Else
'ensemble des executions
end if 
end if
end sub
Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Column = 10 Then
   ValCell = Target
 End If
End Sub

Qqn a une idée comment faire?

Merci d'avance :)

Bonjour

Vous ne pouvez pas avoir deux événements identiques.

Au départ Valcell correspond à quoi ? Gagnée ou autre

Mettez un fichier, ce sera plus simple de comprendre

Voici un fichier exemple:

L'idée pour moi si par exemple la cellule était "Envoyée" et on le passe vers "Gagnée", si on choisie d'annuler ce changement, la cellule retourne à "Envoyée", et ci entre temps on le mets à "Perdue" et on le change à "Gagnée" et annule ce changement la cellule retourne à "Perdue" et non pas à "Envoyée".

espère que j'étais claire ;)

Merci :)

2test.xlsm (16.94 Ko)

Dans votre fichier juste au-dessus de votre première macro mettez ceci --> Dim Valcell

Note : Attention que vos deux sub sont à mettre en Private, donc comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cordialement

Rechercher des sujets similaires à "recuperation valeur initiale modification"