Quitter bouton supprimer

ninbihan à dit:

Bonsoir Limofab,


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

Code:

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

Cliquez pour agrandir...