Gestion des erreurs sur inputbox

Bonjour à tous!

J'ai un petit soucis que je n'arrive pas à régler, pas même avec l'aide de notre bon vieux google,

J'ai une macro avec des inputbox, tout va bien jusqu'à ce qu'on essaie de cliquer sur annuler à la première inputbox, et qu'un message d'erreur apparaît, et je ne sais pas comment y remédier!

Ci joint mon code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  If MsgBox("Etes-vous certain de vouloir ajouter ce produit au stock ?", vbYesNo, "Demande de confirmation") = vbYes Then

Rows(ActiveCell.Row).Select
Selection.Copy
    Sheets("Stock").Select
    ActiveSheet.Rows("3:3").Select
    Selection.Insert Shift:=xldow

Dim quantité As Integer
quantité = InputBox("Combien de boîtes entrez vous en stock ?", "Nombre de boîtes") 'La variable reçoit la valeur entrée dans l'InputBox

Dim nuance As String
nuance = InputBox("Indiquez la nuance du produit ajouté", "Nuance")

Dim rake As String
rake = InputBox("indiquez l'emplacement du produit ajouté", "n°RAKE")

Sheets("Stock").Range("A3") = rake
Sheets("Stock").Range("B3") = nuance
Sheets("Stock").Range("C3") = quantité

MsgBox "Le produit a été ajouté au stock"

End If

End Sub

Merci par avance

Bonne journée

Bonjour

Dim quantité est à déclarer en String également

Amicalement

Nad

Effectivement! je n'ai plus de message d'erreur, par contre, cliquer sur annuler n'arrête pas la procédure, comment fait on pour choisir l'action après avoir cliquer sur annuler?

merci par avance

Re

Essaye avec ce code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If MsgBox("Etes-vous certain de vouloir ajouter ce produit au stock ?", vbYesNo, "Demande de confirmation") = vbYes Then

Dim quantité As String
    quantité = InputBox("Combien de boîtes entrez vous en stock ?", "Nombre de boîtes")
    If quantité = "" Then Exit Sub

Dim nuance As String
    nuance = InputBox("Indiquez la nuance du produit ajouté", "Nuance")
    If nuance = "" Then Exit Sub

Dim rake As String
    rake = InputBox("indiquez l'emplacement du produit ajouté", "n°RAKE")
    If rake = "" Then Exit Sub

Rows(ActiveCell.Row).Select
Selection.Copy
    Sheets("Stock").Select
    ActiveSheet.Rows("3:3").Select
    Selection.Insert Shift:=xldow

Sheets("Stock").Range("A3") = rake
Sheets("Stock").Range("B3") = nuance
Sheets("Stock").Range("C3") = quantité

MsgBox "Le produit a été ajouté au stock"

End If
End Sub

Nad

Merci bien, c'est ce dont j'avais besoin!

Bonne journée