annulation de procédure en cours

[steff]

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


Merci de vos conseil

 

[PascalXLD]

Bonjour

Tu peux essayer en remplaçant

msgbox 'Attention cette opération est irréverssible si vous continuer'

par

Marep= msgbox 'Attention cette opération est irréverssible. Voulez-vous continuer?',vbyesno

if Marep=vbno then exit sub

Bon courage

 

[steff]

j'ai effectivement une msg a choix mais ça ne stoppe pas la procédure
Merci qd même pascal

 

[PascalXLD]

Re

Si tu mets bien le exit sub sur le vbno bah ça doit sortir de la procédure

 

[galopin01]

bonsoir,
Sinon Ctrl + Pause ou Ctrl + Break pour interrompre une boucle qui n'en fini pas...