Microsoft 365 Supprimer des lignes à partir d'un mot

[Styv17]

Bonjour à tous, j'ai besoin d'aide svp.

J'aimerai supprimer toutes les lignes contenant le mot " Rich ". Cependant si dans cette même ligne il y a aussi le mot " Precious Alloy ", il ne faudrait pas la supprimer.

Merci d'avance.

 

[JHA]

Bonjour à tous,

Peux-tu mettre un fichier exemple pour nous aider à te donner une réponse.

JHA

 

[Styv17]

Salut, voici quelques lignes de mon fichier pour exemple.
Merci pour ta réactivité

 

[JHA]

Bonjour à tous,

Un essai avec Power Query ou avec une colonne supplémentaire.

JHA

 

[sylvanu]

Bonjour à tous,
Un exemple avec une macro.

Sub Suppression()
Dim L%, A%, B%
Application.ScreenUpdating = False
DerLig = Range("A65500").End(xlUp).Row
For L = DerLig To 1 Step -1
    A = Application.CountIf(Range(L & ":" & L), "Rich")
    B = Application.CountIf(Range(L & ":" & L), "Precious Alloy")
    If A > 0 And B = 0 Then Rows(L).Delete
Next L
End Sub

 

[soan]

Bonjour @Styv17, JHA, sylvanu,

on s'est croisés à l'instant ! je t'ai écrit 2 posts,
à partir de celui-ci : post #20.

soan

 

[Styv17]

merci

 

[Styv17]

bien reçu tout le monde merci pour vos aides....

J'ai finalement utilisé le poste de Soan car il fonctionne bien sur mon fichier.
Encore merci a tous pour vos réactions rapides

Bonjour @Styv17, JHA, sylvanu,

on s'est croisés à l'instant ! je t'ai écrit 2 posts,
à partir de celui-ci : post #20.

soan

 

[linadeau]

Bonjour à tous,

J'ai téléchargé le fichier pour supprimer des lignes contenant un mot en particulier.....

Ça a bien fonctionné pour quelques fichiers, mais mon dernier document est figé..... la macro semble avoir fonctionnée, mais je ne peux cliqué sur aucun bouton pour effectuer la sauvegarde de mon document.....

Une idée?..

 

[soan]

Bonjour linadeau,

Bienvenue sur le site XLD !

Si tu envoies un fichier exemple (sans données confidentielles), je veux bien essayer de t'aider ; précise aussi quelle est la condition pour supprimer une ligne ; par exemple : si ça contient le mot « loup » ; ou : si ça contient le mot « loup » et pas le mot « agneau » ; pour envoyer ton fichier, utilise le bouton « Joindre un fichier » que tu verras sous ton prochain post en cours d'édition.​

---

tu as écrit ceci : « mais je ne peux cliquer sur aucun bouton pour effectuer la sauvegarde de mon document..... » ; peut-être que ton fichier est avec l'attribut « Lecture seule » ? ou peut-être que tu as utilisé « Ouvrir en lecture seule » ?​

soan

 

[patricktoulon]

bonjour
perso une boucle vba pour faire ce que sait déjà faire excel c'est moyen
un simple double filtre et c'est bon
pour reprendre l'exemple du demandeur original

Sub test()
Dim p As Range
With ActiveSheet.Range("F1:G1").Resize(ActiveSheet.UsedRange.Count)
    .AutoFilter Field:=2, Criteria1:="Rich"
   .AutoFilter Field:=1, Criteria1:="<>*Alloy*"
Set p = .SpecialCells(xlVisible)
.AutoFilter
End With
p.EntireRow.Delete shift:=xlUp
End Sub