Probleme d'arret de macro avec bonton "annuler"

n3Twork

XLDnaute Occasionnel
Bonjour,

BOn j'ai un petit probleme...

j'ai ma macro avec le code ci dessous :

Private Sub cmdNewEntryParRef_Click()
Dim SelectedRow As Range
Dim lngRow As Long, strCC As String, lNumInc As Long
If Not IsSelectionOk Then Exit Sub
SelectRow True
Set SelectedRow = Selection.EntireRow
FrmChoixRef.Show 1
<<--- Si je clique sur le bouton annuler je voudrai que la macro s'arrete
Range('A65000').End(xlUp).Offset(0, 0).Select
Context = enNewtaskParRef
FrmCopieRef.Show 1
LockUnlockWorkSheet shtEnCours, enLock
Range('A65000').End(xlUp).Offset(0, 0).Select
End Sub

voila en gros je voudrai faire un goto ou une sorte comme sa et quand je clique sur mon bonton annuler qui a pour code actuel :

Code:
Private Sub cmdCancel_Click()
  If IsOpening Then
    ThisWorkbook.Close False
  Else
    Unload Me
  End If
End Sub

je voudrai qu'il marrete ma macro et qu'il ne me copy colle pas ma ligne !!. mais je n'i arrive pas ... car quand j'ai mon userform Frmchoixref est ouvert et je clique sur annuler j'ai le second userform Frmcopieref qui s'ouvre alors que je voudrai tout arreter ...

Merci
 

n3Twork

XLDnaute Occasionnel
Comme deja dit dans d'autre post, je ne peu joindre ce fichier trops gros et comportant des données de l'entreprise, de plus il y a telement de macro appeler de partout que sa serai difficle :) ...

En gros jai une macro quand je lance celle macro j'ai un premier userform qui se lance dans cet userform j'ai un bonton 'Ok' et 'annuler' quand je clikque sur le bonton annuler je voudrai que ma macro s'arrete completmeent et ne continue pas son execution en me lancant l'userforum suivant 'FrmCopieRef.Show 1' comme indiqué dans la macro.
 

vekmort

XLDnaute Occasionnel
Désolé,

Mais quand je regarde le fichier, il est clair que je ne serai pas d'un grand secours...
Néanmoins, dans le code du 'bouton1' (module1), virer Userform2.show (sinon, les deux se montrent par défaut).
Ensuite, dans Userform1 : Si
Ok : Usf2.show
Cancel : Unload me
Ensuite, voir Usf2 pour la suite...

Si je suis clair bien sur...

vekmort adelle
:whistle:
 

Discussions similaires

Réponses
1
Affichages
192
Réponses
0
Affichages
172

Statistiques des forums

Discussions
312 392
Messages
2 087 988
Membres
103 690
dernier inscrit
LeDuc