Quitter bouton supprimer

[limofab]

Bonsoir a tous,
Juste une petite question, voilà j'ai un code pour le bouton supprimer :

Private Sub supprimer_Click()
1 Set nom = Application.InputBox("Sélectionnez le n°SAP a effacer", "Effacer?", Type:=8)
If nom.Column() = "4" Then
laplage = nom.Row
With Feuil1
.Cells(laplage, 1).ClearContents
.Cells(laplage, 4).ClearContents
.Cells(laplage, 5).ClearContents
.Cells(laplage, 6).ClearContents
.Cells(laplage, 7).ClearContents

End With
Else

MsgBox ("Vous devez sélectionner un n°SAP !")
GoTo 1
End If
End Sub

Le problème vient que lorsque l'utilisateur clique sur Annuler, il y a un message d'erreur qui s'affiche. Avez vous la ptite ligne de code qui permet de fermer la fenêtre sans généré ce message ?
Merci @+

 

[ninbihan]

Re : Quitter bouton supprimer

Bonsoir Limofab,


Je ne suis pas un spécialiste de la gestion d'erreur mais ceci semble fonctionner

Sub test()

1
On Error Resume Next 'inhibe la gestion d'erreur
Set nom = Application.InputBox("Sélectionnez le n°SAP a effacer", "Effacer?", Type:=8)
If nom Is Nothing Then 'teste si nom est défini
    On Error GoTo 0 'rétablit la gestion d'erreur
    Exit Sub ' sort de la proc
End If
On Error GoTo 0 'rétablit la gestion d'erreur
If nom.Column() = "4" Then
laplage = nom.Row
With Feuil1
.Cells(laplage, 1).ClearContents
.Cells(laplage, 4).ClearContents
.Cells(laplage, 5).ClearContents
.Cells(laplage, 6).ClearContents
.Cells(laplage, 7).ClearContents

End With
Else

MsgBox ("Vous devez sélectionner un n°SAP !")
GoTo 1
End If
End Sub

Bonne nuit,

Ninbihan

 

[limofab]

Re : Quitter bouton supprimer

Bonsoir Limofab,


Je ne suis pas un spécialiste de la gestion d'erreur mais ceci semble fonctionner

Sub test()

1
On Error Resume Next 'inhibe la gestion d'erreur
Set nom = Application.InputBox("Sélectionnez le n°SAP a effacer", "Effacer?", Type:=8)
If nom Is Nothing Then 'teste si nom est défini
    On Error GoTo 0 'rétablit la gestion d'erreur
    Exit Sub ' sort de la proc
End If
On Error GoTo 0 'rétablit la gestion d'erreur
If nom.Column() = "4" Then
laplage = nom.Row
With Feuil1
.Cells(laplage, 1).ClearContents
.Cells(laplage, 4).ClearContents
.Cells(laplage, 5).ClearContents
.Cells(laplage, 6).ClearContents
.Cells(laplage, 7).ClearContents

End With
Else

MsgBox ("Vous devez sélectionner un n°SAP !")
GoTo 1
End If
End Sub

Bonne nuit,

Ninbihan

Ok merci Ninbihan c'est ce qu'il me manquait bonne nuit