Bonjour
Je cherche à supprimer à l’aide d’un code saisi dans une listbox des lignes sur les feuilles (« Achat », » Basededonnée », « tableau de bord » et » « listederoulante »). Pour les 3 premières feuilles avec ce code tout fonctionne parfaitement. Mais pour la feuille « listederoulante » les données sont dans un tableau structuré et le code ne se trouve jamais dans la même cellule du tableau, si quelqu’un a une solution a me proposer cela me permettrais de progresser dans mon projet.
Je cherche à supprimer à l’aide d’un code saisi dans une listbox des lignes sur les feuilles (« Achat », » Basededonnée », « tableau de bord » et » « listederoulante »). Pour les 3 premières feuilles avec ce code tout fonctionne parfaitement. Mais pour la feuille « listederoulante » les données sont dans un tableau structuré et le code ne se trouve jamais dans la même cellule du tableau, si quelqu’un a une solution a me proposer cela me permettrais de progresser dans mon projet.
VB:
Sub supp()
Sheets("Achat").Unprotect
Sheets("Basededonnée").Unprotect
Sheets("Listederoulante").Unprotect
Dim i As Integer
Dim Editeur As String
Dim Wsh As Worksheet
Editeur = InputBox("Entrer la référence colonne A que vous voulez supprimer", "Welcome")
'la valeur saisie est transmise à la variable Editeur
For Each Wsh In Worksheets(Array("Achat", "Basededonnée", "Tableau de bord"))
With Wsh
NL = .Range("A" & .Rows.Count).End(xlUp).Row
For i = NL To 3 Step -1
If .Range("A" & i).Value = Editeur Then
.Rows(i).Delete
End If
Next i
End With
Next Wsh
End Sub