Bonjour Apollo, le forum
VBA fait réver en couleurs
Cordialement, A+
Private Sub CommandButton1_Click()
Dim Num_Row As Long
Num_Row = Application.InputBox(Prompt:="Entrez le numéro de ligne à supprimer", Title:="Suppression de ligne", Default:=0, Type:=1)
If Num_Row > 0 And Num_Row < 65537 Then
On Error GoTo GereErreurs
Rows(Num_Row & ":" & Num_Row).Delete
On Error GoTo 0
MsgBox "Ligne " & Num_Row & " supprimée", vbInformation
Else
MsgBox "Numéro de ligne non valide", vbInformation
End If
Exit Sub
GereErreurs:
MsgBox "un problème est survenu lors de la suppression", vbInformation
End Sub