[VBA] Si contient alors supprime

Question

Bonjour à tous,

Je ne m'en cache pas, je suis au niveau zéro de VBA et mon code compte même pas 10 lignes mais je n'arrive pas à les faire marcher...
J'aimerais faire une macro disant "si tu trouve ce mot dans une cellule, alors supprime la cellule entière.

Mon fichier fait plus de 72000 lignes et tout un tas de lignes sont des doublons. 
Le mot est question : "&defid="

Voici mon code :

Sub test()DoOn Error GoTo A1Cells.Find(What:="&defid=").ActivateSelection.EntireRow.DeleteLoopEnd Sub

Mon erreur : "etiquette non définie"

Quelqu'un d'aimable pourrait-il m'aider ? :)

Merci ! 


Configuration: Windows 7 / Chrome 34.0.1847.131

eriiic · Answer

Bonjour,

essaie avec :
Sub test()
    Dim C As Range
    Set C = Cells.Find(What:="&defid=")
    Do While Not C Is Nothing
        C.EntireRow.Delete
        Set C = Cells.Find(What:="&defid=")
    Loop
End Sub
eric

[VBA] Si contient alors supprime

1 réponse

Discussions similaires

Newsletters