(RESOLU)supprimer une ligne selon son numéro

[chaelie2015]

Bonsoir forum

Je cherche un code (bouton)qui me permet de supprimer une ligne ,bien sure on l’indique le numéro de la ligne à supprimer.

Salutation

 

[mutzik]

bonjour
- un bouton activeX sur la feuille

dim rep
rep = inputbox("Ligne à supprimer")
if isnumeric(rep) then range("A" & rep).entirerow.delete

 

[chaelie2015]

Bonsoir Bertrand
merci c'est formidable
problème resolu
A+

 

[DoubleZero]

Bonjour, chaelie2015, mutzik , le Forum,

Ou bien :

Option Explicit
Sub Ligne_x_supprimer()
    Dim ligne
    On Error Resume Next
    ligne = InputBox("Veuillez indiquer le numéro de ligne à supprimer.")
    Rows(ligne).EntireRow.Delete
End Sub

A bientôt