Supprimer ligne en fonction d'un texte

Bonjour à tous,

J’aimerai une petite macro (simple je suppose), qui me supprimerait les lignes entière où il y aurait un mot. Le mot "Affaires" . Tout ceci dans un intervalles de lignes [28:400]. (le mot "Affaires est susceptibles de changer d'endroit dans sa propre colonne [A28:A400] il ne sera pas fixe comme dans le fichier joint).

Le mot "Affaires" va forcément apparaître dans l’intervalle [A28:A400]. (je veux les enlever mais que dans cet intervalle)

Merci d'avance. !!

Bonjour,

As tu pris le temps de jeter un oeil ... au bas de cette page ... aux six discussions qui sont très identiques à ta demande ...???

Bonjour,

Non je n'ai pas regardé autant pour moi.

J'y vais de ce pas!

Merci.

Re

Il y aurait bien cette macro mais pas adapter a ce que je veux faire :/

Sub Doublons()
Dim Unique As Object, Cel As Range
Set Unique = CreateObject("Scripting.Dictionary")
    For Each Cel In Range("a2:a" & [a65000].End(xlUp).Row)
        If Not Unique.Exists(Cel.Value) Then Unique.Add Cel.Value, Cel.Value
    Next Cel
Range("a2:a" & [a65000].End(xlUp).Row).EntireRow.Delete
    Range("a2:a" & Unique.Count + 1) = Application.Transpose(Unique.items)
End Sub

Il va me supprimer tout les doublons ici, or je veux qu'il me supprime juste les lignes où le mot "Affaires" apparaît dans 'intervalle [28:400]....

Re,

La macro que tu as choisie de poster n'est pas adaptée à ton cas ...

Ce dont tu as besoin ... compte tenu de la taille de ta base de données ... c'est d'utiliser AutoFilter ...

Car c'est de loin la méthode la plus efficace ... et surtout ... la méthode la plus rapide ...

Bonjour

A voir

Sub supprimer_lignes()
Application.ScreenUpdating = False
Nlig = Range("D" & Rows.Count).End(xlUp).Row
   For L = Nlig To 28 Step -1
      If Cells(L, 4).Value = "Affaire" Then
         Rows(L).Delete
      End If
   Next
MsgBox "Macro terminée"
End Sub

A+

Maurice

archer a écrit :

Bonjour

A voir

Sub supprimer_lignes()
Application.ScreenUpdating = False
Nlig = Range("D" & Rows.Count).End(xlUp).Row
   For L = Nlig To 28 Step -1
      If Cells(L, 4).Value = "Affaire" Then
         Rows(L).Delete
      End If
   Next
MsgBox "Macro terminée"
End Sub

A+

Maurice

Attention ... en ne respectant pas l'orthographe du mot "Affaires" ... cette macro ne supprimera rien du tout ... !!!

Super sa fonctionne parfaitement merci beaucoup !!!!

Yep j'avais remarqué pour le petit "s" et au final je n'avais pas de "s" sur "affaire"