Méthode InputBox d'Excel

Bonsoir à toutes et à tous.
J'utilise une boite de dialogue InputBox pour sélectionner des cellules qui contiennent des valeurs et ça fonctionne. Mais j'ai un problème si j'appuie sur le bouton annuler, je reçois une erreur 424.
Pouvez-vous me dire ce que je dois modifier.
Voici le début du code.

Code:

---

1 2 3 4

Sub Numero() Dim Plage As Range Set Plage = Application.InputBox(Prompt:="Sélection du code ", _ Type:=8)

---

Merci de votre aide.

Bonjour,

Ci dessous ton code avec une gestion d'erreur en place

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim Plage As Range   On Error Resume Next   Set Plage = Application.InputBox(Prompt:="Sélection du code ", _ Type:=8)   On Error GoTo Gerreur   If Not Plage Is Nothing Then MsgBox Plage.Address End If   Exit Sub   Gerreur:   MsgBox Err.Number & " - " & Err.Description

---

Bonsoir Jfontaine.

Merci pour ta réponse, mais même avec la gestion d'erreur le code se bloque à la ligne: Set Plage = Application.InputBox..........
Que ce soit en cliquant sur le bouton annuler ou la croix de fermeture.
Par contre si je sélectionne une cellule ,je n'ai pas de problème.
Je continue mes recherches.
A+

Citation:

---

mais même avec la gestion d'erreur le code se bloque à la ligne

---

tu veux dire qu'excel se bloque sur cette ligne? ou as tu un message d'erreur?

Voici le message d'erreur à la ligne Set Plage=
"Erreur d'exécution 424 "
Objet requis

Bonjour,

Annuler renvoie un False, incompatible avec un objet...

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Numero() Dim Plage As Range Set Plage = Nothing   On Error Resume Next Set Plage = Application.InputBox(Prompt:="Sélection du code ", Type:=8)   If Plage Is Nothing Then MsgBox "Je traite la situation": On Error GoTo 0: Exit Sub '......... End Sub

---

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

Bonjour Didier, bonjour Jérome.
Bonjour à tous.

Merci à Didier et Jérome pour leurs réponses concernant la gestion des erreurs. Pour que celle-ci fonctionne il faut que le paramètre "Arrêt sur toutes les erreurs" soit désactivé. J' ai donc modifié ce paramètre et tout fonctionne.
Merci à vous deux.

A+

Bernard

Bonjour,

Ben oui, c'est pour ça que par défaut c'est "Arrêt sur les erreurs non gérées" qui est coché !!!

Sinon, il fait ce que tu as demandé de façon explicite ;)

cordialement,

Didier