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 :)