Discussion :

[cedana]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[jfontaine]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[cedana]

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+

[jfontaine]

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?

[cedana]

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

[Didier Gonard]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[cedana]

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

[Didier Gonard]

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