Microsoft 365 Problème avec Application.undo

pat66 · Jeudi à 10:42

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 · Jeudi à 12:39

pat66 à dit:
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

VB:

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

Jacky67 · Jeudi à 12:39

pat66 à dit:
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

VB:

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 · Jeudi à 15:52

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

Microsoft 365 Problème avec Application.undo

pat66

XLDnaute Impliqué

Jacky67

Jacky67

XLDnaute Barbatruc

pat66

XLDnaute Impliqué

Discussions similaires