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
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