Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

annulation de procédure en cours

  • Initiateur de la discussion steff
  • Date de début
S

steff

Guest
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

XLDnaute Barbatruc
Modérateur
Bonjour

Tu peux essayer en remplaçant

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

par

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

if Marep=vbno then exit sub

Bon courage
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…