Microsoft 365 Supprimer des lignes à partir d'un mot

J

JHA

XLDnaute Barbatruc

• 1 Décembre 2020

• #2

Bonjour à tous,

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

JHA

 

Vote positif 0 Vote négatif

S

Styv17

XLDnaute Nouveau

• 1 Décembre 2020

• #3

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

 

Pièces jointes

• exemple.xlsx

  10.3 KB · Affichages: 20

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 1 Décembre 2020

• #4

Bonjour à tous,

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

JHA

 

Pièces jointes

• exemple (1).xlsx

  23.8 KB · Affichages: 4

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Décembre 2020

• #5

Bonjour à tous,
Un exemple avec une macro.

VB:

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

 

Pièces jointes

• exemple (14).xlsm

  18.4 KB · Affichages: 3

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 1 Décembre 2020

• #6

Bonjour @Styv17, JHA, sylvanu,

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

soan

 

Vote positif 0 Vote négatif

Solution

S

Styv17

XLDnaute Nouveau

• 1 Décembre 2020

• #7

merci

 

Vote positif 0 Vote négatif

S

Styv17

XLDnaute Nouveau

• 2 Décembre 2020

• #8

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

soan à dit:

Bonjour @Styv17, JHA, sylvanu,

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

soan

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

L

linadeau

XLDnaute Nouveau

• 18 Février 2021

• #9

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?..

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 18 Février 2021

• #10

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Février 2021

• #11

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

VB:

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

 

Vote positif 0 Vote négatif