Bonjour à tous !
Je débute dans vba et je découvre la joie de l'automatisation avec les macros et le gain de temps qu'elles autorisent
Mais forcément les problèmes arrivent et en étant débutant les comprendre et les résoudre n'est pas forcément évident
En gros je fais une extract d'un logiciel, je me retrouve avec pas mal de donnée et l'idée est de trier ces données.
Dans cette plage de donnée, j'ai une colonne qui va être concernée par le tri que l'on va nommer Références.
Sur une autre feuille j'ai une liste de valeur que l'on va appeler référence_à_supp.
La macro doit supprimer une ligne si on a égalité entre la valeur Référence et référence_à_supp
Je sais pas si j'ai été claire
J'ai fais pas mal de recherche sur les différents forum mais sans succès
Voici ce que j'ai pour l'instant
</>
Sub SupprimerRéférence()
Dim référence_à_supp As Integer
Set référence_à_supp = Worksheets("Liste").Range("K2:K33")
With ThisWorkbook.Sheets("Données")
For i = 5000 To 2 Step -1
If Range("B" & i).Value = Range("K2:K33").Value Then Rows(i).Delete
End If
Next i
End Sub
je vous joins le fichier pour que ce soit plus compréhensible
Merci !