Ok XL ne fait pas d'undo pour les opération en VB
commen puis je alors stopper l'opération en cours si le user n'est pas sur de ce qu'il fait
Voici mon code
Private Sub CommandButton1_Click()
Dim plage As String
plage = UserForm1.RefEdit1.Value
If plage = '' Then
InputBox 'vous n'avez rien sélectionné, recommencez !'
Exit Sub
End If
Range(plage).Copy
End Sub
Private Sub CommandButton2_Click()
Dim plage As String
plage = UserForm1.RefEdit1.Value
If plage = UserForm1.RefEdit1.Value Then
msgbox 'Attention cette opération est irréverssible si vous continuer'
End If
la je veux pouvoir annuler l'opération car actuellement elle continue même si je ferme la Msgbox avec la croix
Range(plage).PasteSpecial (xlPasteValues)
Unload Me
End Sub