eric57
XLDnaute Occasionnel
Bonsoir le Forum
Je travail sur des colonnes que je dois "nettoyer" c'est à dire vider des cellules contenant des données inutiles ( et souvent reccurent)
Je cherche une macro pouvant "nettoyer" ma colonne A en fonction d'une liste de mots connus
J'y arrive avec cette macro toute simple,
mais le nombre de mots à supprimer augmente vite, et je souhaite plutôt le faire à partir d'une liste existante dans la même feuille sur une autre colonne . Cette liste pouvant être complétée au fur et à mesure par de nouveaux mots.
Merci pour votre aide
Eric
Je travail sur des colonnes que je dois "nettoyer" c'est à dire vider des cellules contenant des données inutiles ( et souvent reccurent)
Je cherche une macro pouvant "nettoyer" ma colonne A en fonction d'une liste de mots connus
J'y arrive avec cette macro toute simple,
Code:
Sub nettoyage()
Dim Pl As Long
Pl = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To Pl
If Range("A" & i) = "AGORA" Or Range("A" & i) = "5PRG" Or Range("A" & i) = "60CM" Then
Range("A" & i) = Empty
End If
Next
End Sub
mais le nombre de mots à supprimer augmente vite, et je souhaite plutôt le faire à partir d'une liste existante dans la même feuille sur une autre colonne . Cette liste pouvant être complétée au fur et à mesure par de nouveaux mots.
Merci pour votre aide
Eric