Récupération ancienne valeur

Version imprimable

Bonjour,

Dans la macro ci-dessous lorsque l'utilisateur clique sur non dans la msgbox, la valeur de la cellule ne revient à la valeur OldValue.

Merci pour votre aide.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim NewValue, OldValue
    Dim Cellule As Range
    If Target.Address <> "$C$16" Then Exit Sub
    Application.EnableEvents = False
    With Target
        NewValue = .Value
        Application.Undo
        OldValue = .Value
        .Value = NewValue
    End With
    MsgBox "Old Value: " & OldValue & vbCrLf & "New Value: " & NewValue
 
    If reponse = MsgBox("Penses-tu que ce soit vrai ?", vbYesNo + vbCritical) = vbYes Then
        MsgBox ("La valeur est changée")
            If reponse = vbNo Then
                Set Cellule = Range("C16")
                    Cellule.Value = OldValue
            End If
            Debug.Print OldValue
    End If
    Application.EnableEvents = True
End Sub

Bonjour,

Par exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewValue, OldValue
Dim reponse As Integer
Dim msg As String
  If Target.Address = "$C$16" Then
    With Target
      Application.EnableEvents = False
      NewValue = .Value
      Application.Undo
      OldValue = .Value
      .Value = NewValue
      Application.EnableEvents = True
    End With
    msg = "Old Value: " & OldValue & vbCrLf & "New Value: " & NewValue
    reponse = MsgBox(msg & vbCrLf & "Penses-tu que ce soit vrai ?", vbYesNo + vbCritical)
    If reponse = vbYes Then
      MsgBox ("La valeur est changée")
    ElseIf reponse = vbNo Then
      Application.EnableEvents = False
      Target.Value = OldValue
      Application.EnableEvents = True
    End If
    Debug.Print msg
  End If
End Sub

25/09/2020, 07h43
joponta

Bonjour,
Merci cela fonctionne.
Pourquoi le premier code ne fonctionnait pas ?
Bonne journée.
25/09/2020, 13h30
Patrice740

Bonjour,

Citation:

Envoyé par joponta

Merci cela fonctionne

Évidement, je ne vais pas te proposer un code qui ne fonctionne pas !!!

Citation:

Pourquoi le premier code ne fonctionnait pas ?

Comme l'aurait dit Jacques II de Chabannes de La Palice : à cause d'un code mal conçu !

Pour comprendre pourquoi, il suffit de placer un point d'arrêt en début de procédure, de continuer en pas à pas en analysant les différentes variables à chaque pas.
A lire : Le débogage sous Visual Basic 6 et VBA