2010-10-07 10 views

Répondre

0

Cela devrait fonctionner. Tout ce que vous devez faire est de changer la valeur de areaToSearch pour s'adapter à votre classeur. Regardez aussi le cas sur le mot-clé, "Chirurgie" et "chirurgie" ne sont pas les mêmes! J'ai testé ça et ça a marché sur une feuille que j'ai inventée.

Option Explicit 

Sub DeleteSurgery() 

    Dim keyWord As String 
    Dim cell As Range, areaToSearch As Range 

    keyWord = "Surgery" 
    Set areaToSearch = Sheet1.Range("A1:A10") 

    For Each cell In areaToSearch 
     If cell.Value = keyWord Then 
      cell.EntireRow.Delete 
     End If 
    Next cell 

End Sub 
+0

Merci Michael, mais quand je le branche, il ne supprime rien. J'ai une feuille d'Excel qui a une macro qui crée une feuille distincte du fichier original. Le mot-clé est en fait MH-Surgery – Edmond

+0

Le mot-clé peut être n'importe quoi; Changez-le simplement pour tout ce qui est nécessaire. Êtes-vous sûr d'exécuter le code (F5 dans l'éditeur VBA et votre curseur se trouve dans le sous-programme) après l'avoir collé? – Michael

+0

Il semble que le code ne soit pas en cours d'exécution, mais je ne sais pas pourquoi. – Edmond