Bonjour,
Voilà je fais mon stage de fin d'étude et là je me colle à VBA. J'ai utilisé une InputBox pour récupérer une valeur voici à quoi ressemble mon code
 
Sub Recupe_nom_gamme()
 
            Dim Gammename As String
 
            Gammename = ""    'initialisation de Gammename  
            Do Until Gammename <> ""
                Gammename = InputBox("Entrez la référence de la gamme " , "Equipement 1" )
            Loop
 
End Sub
 
Ce que je voudrais c'est que le bouton Annuler qui apparaît dans la InputBox me permette de mettre fin à l'exécution de la macro. Accessoirement il ne faudrait pas que j'utilise Sub Exit parce que cette Macro est appelez à l'aide d'un UserForm qui doit réaparaitre en fin de réalisation de la macro.
 
Merci d'avance à qui me sauvera la vie!!!!!

je débute en vb mais avec un
if Gammename = vbCancel
then 'exit'
 
pour le exit je sais pas trop vu qu'y a ta macro ...

J'ai fait un essai avec  
 
Sub()
    Do Until Unitename <> ""
        Unitename = InputBox("Entrez le nom de l'unite:", "Nom de l'unité en construction " )
        If vbCancel Then Go To Canceled
    Loop
    Instruction ....
    Exit Sub
    Cenceled:
    Instruction ....
 
End Sub
 
Mais ça marche pas! Je voudrais de l'aide s'il vous plait!

Public Sub Recupe_nom_gamme()
Dim Gammename  As String
    Do
        Gammename = InputBox("Entrez qqch", "Information" )
        If Gammename = "" Then
            Exit Do
        Else
            ' .... traitement
        End If
    Loop
End Sub

Je crois que j'ai trouver un truc qui marche pas mal!
 
 
Sub test()
Dim Gammename As String
 
Gammename=InputBox("Entrez qqch", "Information" )
Do While Gammename=""
   If Continuer Then
       Gammename=InputBox("Entrez qqch", "Information" )
   Else: UserForm1.Show
       Exit Sub
   End If
Loop
 
End Sub
 
 
Function ContinuerProcedure() As Boolean
    Dim Config As Integer
    Dim Rep As Integer
     
    Config = vbYesNo + vbQuestion + vbDefaultButton2
    Rep = MsgBox("Voulez vous continuer?", Config)
    If Rep = vbYes Then
        ContinuerProcedure = True
    Else: ContinuerProcedure = False
        Workbooks("Informatisation du plan de maintenance.xls" ).Worksheets("Temp2" ).Delete
    End If
End Function

nolan5631, tu es sûr de ça « If vbCancel then » ?
Moi j'ai un gros doute sachant que vbCancel est une constante VBS : ton test renverra toujours False.

Si l'utilisateur clique sur le bouton Annuler, la fonction renvoie une chaîne de longueur nulle ("" ).
Provient de l'aide VBA...
 
vbCancel, c'est une constante qui servira pour une MsgBox