Si cancel dans inputbox alors exitsub

bonjour

j'essaie d'effectuer une macro selon les critères suivantes:

1- si l'utilisateur écrit dans l'inputbox "1" puis clique sur OK ---> exit sub et message "on ne peut pas effacer 1er ligne. opération annulée"

2- si l'utilisateur écrit dans l'inputbox "0" ou laisse vide (" ") puis clique sur OK ---> exit sub et message "aucune ligne à effacer. opération annulée"

3- si l'utilisateur clique sur Cancel --> exit sub .

Je n'ai réussis qu'avec la condition si inputbox=1 (condition 1).

En revanche je ne parviens pas à faire si on clique sur OK avec zéro ou rien (condition 2), ni à faire si on clique sur Cancel (condition 3)...

Quelqu'un peut m'aider SVP ?...

Voici la macro complete...

Sub deleterow()
Dim i As Integer
Dim Editeur As String

    Editeur = inputbox("Veuillez indiquer le numéro de l'hôtel à supprimer", "Supprimer", " ")

If Editeur = 1 Then
MsgBox "Vous ne pouvez effacer cette ligne! L'opération est avortée."
Exit Sub
ElseIf Editeur = "" Then
MsgBox "Vous n'avez choisis aucun hôtel à effacer. L'opération est avortée."
Else
End If

'la valeur saisie est transmise à la variable Editeur
With ThisWorkbook.Sheets("hotels ")
            For i = .Range("a" & .Rows.Count).End(xlUp).Row To 2 Step -1
                        If .Range("a" & i).Value = Editeur Then
    Rows(i).Delete
    End If
   Next i
End With

End Sub

Bonjour,

Si tu considères ta variable Editeur comme la réponse à ton InputBox ...

Tu as intérêt à la déclarer As Variant ...

Ensuite, je ne sais pas combien de cas spécifiques de réponses tu veux traiter ...

mais pour plus de clarté ...je te conseille Select Case

En espèrant que cela t'aide

merci BEAUCOUP!!

Content que tu aies pu résoudre ton problème ...