Annulation de commande

Bonjour à tous,

J'aimerais savoir si il est possible d'annuler une commande en cours.

J'ai créer une boite de message où on rentre le nom d'un classeur et en fonction de ce classeur des calculs sont faits. Mais si on a appuyer sur un bouton et que la boite de message s'ouvre même si on fait annuler la commande continu. Comment faire pour que lorsque l'on clique sur annuler la macro s’arrête?

[b]

voici un bout du code:[/b]

Dim num_aff As String

Vachar

Salut vachar,

Que penses-tu de ceci :

If StrPtr(num_aff) = 0 Then
    MsgBox "Vous avez annulé"
ElseIf num_aff = "" Then
    MsgBox "Vous n'avez rien saisi"
Else
    MsgBox "Vous avez saisi " & num_aff 
End If

A adapter avec ton code évidemment

Salut baboutz,

J'essai sa tout de suite et je te tiens au courant.

J'ai essayer et le sa annule bien la message box mais le programme continu quand même.

En gros avec les lignes que tu m'a fourni j'aimerais que si on met 0, le programme se coupe.

Vachar

Ensuite, il me demande d'aller chercher le excel nommé 0

Il faut mettre ton code dans la boucle !

If StrPtr(num_aff) = 0 Then
        MsgBox "Vous avez annulé"
ElseIf num_aff = "" Then
        MsgBox "Vous n'avez rien saisi"
Else
        Range("B1").Select
    Selection.Cut Destination:=Range("C1")
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]-'" & chemin & "\" & num_aff & "\[" & resultat & "]Feuil1'!R1C2"
    Range("D1").Select
    Selection.Copy
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Range("C1:D1").Select
    Range("D1").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("E3").Select
End If

AAAAAH bah oui évidement merci beaucoup en tout cas pour ta rapidité et ton temps

Vachar

Avec plaisir !

Tu peux rajouter un End pour fermer le programme dans les deux premiers cas après la msgbox:

If StrPtr(num_aff) = 0 Then
        MsgBox "Vous avez annulé"
        End
ElseIf num_aff = "" Then
        MsgBox "Vous n'avez rien saisi"
        End
Else
        Range("B1").Select
    Selection.Cut Destination:=Range("C1")
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]-'" & chemin & "\" & num_aff & "\[" & resultat & "]Feuil1'!R1C2"
    Range("D1").Select
    Selection.Copy
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Range("C1:D1").Select
    Range("D1").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("E3").Select
End If