Sortie de macro et variable avec inputval

Bonsoir à tous,

J'essaie 2 choses avec inputval que je n'arrive pas à faire:

1) Arreter la macro si je clique sur annuler

2) attribuer à une variable le contenu de la saisie faites dans la boite de dialogue.

Marco

-- 27 Sep 2010, 00:37 --

J'avance un peu...

J'ai utilisé la commande inputbox qui semble plus adaptée.

J'arrive également à copier le contenu de la variable dans une cellule.

En revanche, je n'arrive pas à sortir de la macro si l'utilisateur clique sur annuler de la box.

Mon code:

Sub Catalogue_ins_article()
'
' Catalogue_ins_article Macro
'
    Dim reponse
    reponse = InputBox("Quelle quantité?", "Quelle quantité?", "Indiquer la quantité ici!")
'   ActiveCell.FormulaR1C1 = reponse
'   Evite le balayage
    Application.ScreenUpdating = False
'   Selectionne les informations nécessaires à la saisie de l'article
    Range(ActiveCell.Offset(0, -2), ActiveCell.Offset(0, 1)).Select
    Selection.Copy
    Range("A1").Select
    Sheets("Modèle").Select
'   Selectionne la première cellule vide
    Range("b65536").End(xlUp).Offset(1, 0).Select
'   Selection.PasteSpecial Paste:=xlPasteValues
    ActiveSheet.Paste
    Range("A1").Select
    Application.CutCopyMode = False
End Sub

Bonjour

reponse = InputBox("Quelle quantité?", "Quelle quantité?", "Indiquer la quantité ici!")

if reponse="" then: exit sub

Super!

Merci Michel.