Microsoft 365 Problème avec Application.undo

[pat66]

Bonjour le forum,

je cale sur cette fonction et je vous remercie de bien vouloir m'aider.

Je souhaite annuler la saisie en M11 si je clique sur "non" et récupérer la valeur de M11 avant la saisie

Dim Rep As Integer
If ............. Then
Rep = MsgBox("Compte tenu de votre âge """ & Worksheets("joueur2").[H9 & " ans"", "Souhaitez vous appliquer la durée minimale ?", vbYesNo + vbQuestion, "LE CLUB")
If Rep = vbYes Then
ActiveSheet.[M11] = ActiveSheet.[E94]
Else

Application.EnableEvents =False
Application.Undo
Application.EnableEvents = True

End If
End If

un grand merci à tous

 

[Jacky67]

Bonjour le forum,

je cale sur cette fonction et je vous remercie de bien vouloir m'aider.

Je souhaite annuler la saisie en M11 si je clique sur "non" et récupérer la valeur de M11 avant la saisie

Dim Rep As Integer
If ............. Then
Rep = MsgBox("Compte tenu de votre âge """ & Worksheets("joueur2").[H9 & " ans"", "Souhaitez vous appliquer la durée minimale ?", vbYesNo + vbQuestion, "LE CLUB")
If Rep = vbYes Then
ActiveSheet.[M11] = ActiveSheet.[E94]
Else

Application.EnableEvents =False
Application.Undo
Application.EnableEvents = True

End If
End If

un grand merci à tous

Bonjour,
Ce code est incomplet...
Quelque chose comme cela sur un code évènementiel

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    If Target.Address = "$M$11" Then
        If Target + Worksheets("joueur2").[H9] > 65 Then ' A adapter
            If MsgBox("Compte tenu de votre âge " & Worksheets("joueur2").[H9] & " ans" & vbLf & "Souhaitez vous appliquer la durée minimale ? (" & [E94] & ")", 292, "LE CLUB") = 6 Then
               [M11] = [E94]
            Else
                Application.Undo
            End If
        End If
    End If
    Application.EnableEvents = True
End Sub

 

[pat66]

re,

oh oui merci c'est parfait !

effectivement, je vous ai mis une partie du code, mais il est bien avec Private Sub Worksheet_Change(ByVal Target As Range)

un grand merci à vous