Erreur lorsque je clic sur Annuler

[christ91]

Bonjour,

J'ai fait un bout de code qui me permet de demander à un utilisateur par une inputbox de cliquer sur une cellule.
Seulement si je clic sur Annuler, j'ai une erreur....comment faire pour ne pas avoir cette erreur ?

voici mon code:



Sub menage()
' Supprime la ligne selectionnée
Dim ligne As Range
Set ligne = Application.InputBox("Sélectionner le nom du fichier à effacer", Type:=8)
mavariable = ligne.Address
Range(mavariable).Select
Range(mavariable, ActiveCell.Offset(0, 5)).Select
Selection.ClearContents
End Sub


merci de votre aide

 

[Pierrot93]

Re : Erreur lorsque je clic sur Annuler

Bonjour,

essaie avec une gestion d'erreur :

Sub menage()
 Dim ligne As Range
On Error Resume Next
 Set ligne = Application.InputBox("Sélectionner le nom du fichier à effacer", Type:=8)
 If Err.Number <> 0 Then Exit Sub
 On Error GoTo 0
 mavariable = ligne.Address
 Range(mavariable).Select
 Range(mavariable, ActiveCell.Offset(0, 5)).Select
 Selection.ClearContents
 End Sub

bon après midi
@+

 

[christ91]

Re : Erreur lorsque je clic sur Annuler

Merci !!

c'est ce qu'il me fallait.

A+