(RESOLU)supprimer une ligne selon son numéro

mutzik

XLDnaute Barbatruc

• 31 Décembre 2016

• #2

bonjour
- un bouton activeX sur la feuille

VB:

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

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 31 Décembre 2016

• #3

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 31 Décembre 2016

• #4

Bonjour, chaelie2015, mutzik , le Forum,

Ou bien :

VB:

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

 

Vote positif 0 Vote négatif