XL 2010 Suppression d'une ligne par son numéro avec un textbox

[eduraiss]

Bonjour le forum

Je mets un fichier en pièce jointe

Le but est de supprimer un ligne de part son numéro renseigné dans un textbox

J'ai fais un code mais il ne fonctionne pas

Merci de votre aide

Cordialement,

 

[Jacky67]

Bonjour,
Essaye comme ceci

Private Sub Command_valider_suppression_de_ligne_Click()
    Dim l As Integer
    If UCase(Me.Text_code_supprimer_ligne) <> ("CSE") Or Me.Text_numero_de_ligne = "" Then GoTo fin
    l = CDbl(Me.Text_numero_de_ligne.Value)
    Cells(l, 1).EntireRow.Delete
fin:
    Unload Me
End Sub

 

[eduraiss]

Bonjour le forum, bonjour Jacky67

Merci beaucoup ça fonctionne

Cordialement,