XL 2013 Supression d'une ligne dans un tableau selon une variable ( inputbox)

delseb233

XLDnaute Nouveau
Salut j'essaie de supprimer une ligne dans un tableau selon une variable mais ça fontionne pas voici le code que j'utilise

Sub SupLigne()
Dim i As Integer
Dim NomS As String



NomS = InputBox("Veuillez entrer le nom à supprimer ?", "retirer un employé")
'la valeur saisie est transmise à la variable Editeur

Application.ScreenUpdating = False


With ThisWorkbook.Sheets("Liste")
For i = .Range("D" & .Rows.Count).End(xlUp).Row To 2 Step -1
If .Range("D" & i).Value = Editeur Then
Rows(i).Delete
End If
Next i
End With

Application.ScreenUpdating = True
Sheets("Liste").Visible = xlVeryHidden
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
312 108
Messages
2 085 363
Membres
102 874
dernier inscrit
Petro2611