Le bouton "Annuler" d'un inputbox

Salut le forum,

dans le fichier ci-dessous, lors d'un clic dans la plage D4:D13, j'aimerais pouvoir utiliser le bouton "Annuler" de l'inputbox pour sortir de la macro mais je ne sais pas comment le programmer.

Merci pour votre aide.

https://www.excel-pratique.com/~files/doc/k0yKzBook1.xls

Bonsoir,

Essaye le code :

Loop Until Valeur = False

à la place de :

Loop Until Valeur <> False

Salut Raja,

il faut trouve rune autre solution. La ligne de code que tu me demandes de changer ne peut l'être puisque c'est elle qui me permet de m'assurer que la donnée de l'inputbox est numérique.

Salut le forum

Eric essaye ceci, pas vriament testé

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Montant As Currency
Dim Valeur As Variant

If Target.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("D4:D13")) Is Nothing Then
    Valeur = Application.InputBox("Entrez le montant", "Montant", , , , , , 1)

    'Intercepte l'utilisation du bouton "Annuler"
        If VarType(Valeur) = vbBoolean Then
            MsgBox " opération annulée"
            Exit Sub
        End If

    Montant = ActiveCell.Value
    ActiveCell.Value = ActiveCell.Value + Valeur
    Range("A1").Activate

End If

ActiveSheet.EnableSelection = xlNoSelection

End Sub

Mytå

Voilà, c'est fonctionnel avec ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Valeur As Currency

Application.DisplayAlerts = False

If Target.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("D4:D13")) Is Nothing Then

    Valeur = Application.InputBox("Entrez le montant", "Montant", , , , , , 1)

    ActiveCell.Value = ActiveCell.Value + Valeur
    Range("A1").Activate

End If

End Sub

Merci pour votre aide.