Supprimer toutes les lignes contenant le mot "Representative"

[josanche]

Bonjour,

J'aurais besoin de votre aide. Je voudrais savoir comment on fait via un macro ou une autre fonction excel pour supprimer toutes les lignes du fichier excel contenant le mot "Representative" en sachant que les lignes sont du textes ! J'aimerais un macro qui analyse ligne par ligne et supprime chaque ligne de texte contenant le mot "Representative"

Merci pour votre aide

Cordialement

 

[Styv17]

Hello Soan, merci pour ta réponse...
mais puis-je avoir le code directement que je pourrais copier-coller stp.
Ps: je suis un débutant en excel !

 

[soan]

aïe ! j'ai pas fait de code VBA, car y'a pas d'fichier ! c'est pourquoi
j'ai juste indiqué une piste ! peux-tu joindre ton fichier sans
données confidentielles ?

soan

 

[soan]

ou tu veux que je fasse le job à partir du fichier "Echantillon.xlsx"
du demandeur josanche ? (j'ai vu que c'est un sujet de 2012 !)

tu as peut-être un fichier plus récent ? c'est qu'entre-temps,
de l'eau a coulé sous les ponts, lollllllll !

soan

 

[Styv17]

en fait ce code la fonctionne bien pour effacer les lignes qui ont le mot "Rich":


Sub Macro1()
Dim Cel As Range
Do
Set Cel = Cells.Find(What:="Rich", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False)
If Cel Is Nothing Then
Exit Do
Else
Rows(Cel.Row).Delete
End If
Loop
End Sub


Maintenant toujours en utilisant ce code, est il possible de rajouter une fonction qui dit : si il y a le mot "Precious Alloy" dans cette ligne, ne supprime pas la ligne ?

 

[soan]

ça y'est, j'ai trouvé ton fichier ; le voici en retour.

fais Ctrl e ➯ travail effectué !

ce que je t'ai indiqué dans mon post #15 est car je pensais que c'était
dans la même phrase qu'il peut y avoir "Rich" et "Precious Alloy" ;
or selon ton fichier : "Rich" apparaît seulement dans la colonne G ;
et "Precious Alloy" apparaît seulement dans la colonne F ; donc la
« stratégie » à adopter est très différente ! voici un autre exemple bien
concret comme quoi il vaut toujours mieux joindre un fichier !

soan

 

[soan]

@Styv17

on s'est croisés ! la réponse à ta question est
dans le fichier de mon post #20 précédent.

soan

 

[fanch55]

Bonjour le fil,

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.

Code à tester : (classeur joint pour exemple)

Sub Test()
Dim Row As Range, Target As Range, To_Del as String
Set Target = Range("A1:E20") ' <-- range bidon à modifier

For Each Row In Target.Rows
    Select Case True
        Case Not SFW(Row, "rich")
        Case Not SFW(Row, "precious alloy")
'       Case Not SFW(Row, "any") <-- pour des restrictions supplémentaires
        Case To_Del = "":   To_Del = Row.Row & ":" & Row.Row
        Case Else:          To_Del = To_Del & "," & Row.Row & ":" & Row.Row
    End Select
Next

If To_Del <> "" Then
    Range(To_Del).Select
    If MsgBox("Voulez-vous détruire les lignes sélectionnées ?", vbCritical + vbYesNo) = vbYes Then
        Selection.Delete
    End If
End If
Cells(1).Activate
  
End Sub
Function SFW(Plage As Range, W As String) As Boolean
Dim Cell_Sel As Range
    Set Cell_Sel = Plage.Find(W, , xlFormulas, xlPart, xlByColumns, xlNext, False)
    If Not Cell_Sel Is Nothing Then
        If Len(Trim(Cell_Sel)) <> Len(W) Then Set Cell_Sel = Nothing
    End If
    SFW = Not Cell_Sel Is Nothing
End Function

Nota: s'adapte également à la demande de @JM-OFF

 

[Styv17]

Merci pour la réponse

 

[fanch55]

Merci pour la réponse

Désolé, mal lu la demande, le code tel qu'il est proposé détruit les lignes si on trouve "Rich" et "Precious Alloy" ...

Pour éviter de détruire les lignes avec "Precious Alloy":

Sub Test()
Dim Row As Range, Target As Range, To_Del As String
Set Target = Range("A1:E20") ' <-- range bidon à modifier

For Each Row In Target.Rows
    Select Case True
        Case Not SFW(Row, "rich")
        Case SFW(Row, "precious alloy") <-- modif! modif ! modif !
 '       Case Not SFW(Row, "....") <-- pour des restrictions supplémentaires
        Case To_Del = "":   To_Del = Row.Row & ":" & Row.Row
        Case Else:          To_Del = To_Del & "," & Row.Row & ":" & Row.Row
    End Select
Next

If To_Del <> "" Then
    Range(To_Del).Select
    If MsgBox("Voulez-vous détruire les lignes sélectionnées ?", vbCritical + vbYesNo) = vbYes Then
        Selection.Delete
    End If
End If
Cells(1).Activate
    
End Sub
Function SFW(Plage As Range, W As String) As Boolean
Dim Cell_Sel As Range
    Set Cell_Sel = Plage.Find(W, , xlFormulas, xlPart, xlByColumns, xlNext, False)
    If Not Cell_Sel Is Nothing Then
        If Len(Trim(Cell_Sel)) <> Len(W) Then Set Cell_Sel = Nothing
    End If
    SFW = Not Cell_Sel Is Nothing
End Function

 

[Styv17]

Bonjour le fil,

Code à tester : (classeur joint pour exemple)

Sub Test()
Dim Row As Range, Target As Range, To_Del as String
Set Target = Range("A1:E20") ' <-- range bidon à modifier

For Each Row In Target.Rows
    Select Case True
        Case Not SFW(Row, "rich")
        Case Not SFW(Row, "precious alloy")
'       Case Not SFW(Row, "any") <-- pour des restrictions supplémentaires
        Case To_Del = "":   To_Del = Row.Row & ":" & Row.Row
        Case Else:          To_Del = To_Del & "," & Row.Row & ":" & Row.Row
    End Select
Next

If To_Del <> "" Then
    Range(To_Del).Select
    If MsgBox("Voulez-vous détruire les lignes sélectionnées ?", vbCritical + vbYesNo) = vbYes Then
        Selection.Delete
    End If
End If
Cells(1).Activate
 
End Sub
Function SFW(Plage As Range, W As String) As Boolean
Dim Cell_Sel As Range
    Set Cell_Sel = Plage.Find(W, , xlFormulas, xlPart, xlByColumns, xlNext, False)
    If Not Cell_Sel Is Nothing Then
        If Len(Trim(Cell_Sel)) <> Len(W) Then Set Cell_Sel = Nothing
    End If
    SFW = Not Cell_Sel Is Nothing
End Function

Nota: s'adapte également à la demande de @JM-OFF

Hello merci pour ta réponse, mais ce code efface les lignes ou il y a "Rich" et "Precious Alloy", alors que c'est le contraire que je cherche. L'idée est de Supprimer toutes les lignes où il y a "Rich" mais de garder les lignes ou il y a "Rich" et "Precious Alloy"

 

[Styv17]

voici un exemple des lignes que j'ai !

 

[fanch55]

Hello merci pour ta réponse, mais ce code efface les lignes ou il y a "Rich" et "Precious Alloy", alors que c'est le contraire que je cherche. L'idée est de Supprimer toutes les lignes où il y a "Rich" mais de garder les lignes ou il y a "Rich" et "Precious Alloy"

Voir le Post #24

 

[soan]

@Styv17

mon fichier fait bien ce que tu demandes !

il supprime toutes les lignes contenant "Rich" sauf s'il y a aussi
"Precious Alloy" !

si tu essayes le fichier de mon post #20, tu verras que c'est OK !
sur les 30 lignes de départ, 20 sont supprimées ; et il reste
donc les 10 lignes que tu attends !

soan

 

[Styv17]

@Styv17

on s'est croisés ! la réponse à ta question est
dans le fichier de mon post #20 précédent.

soan

Merci Soan... c'est exactement ce que je cherchais. Je te suis reconnaissant. Merci infiniment pour ton aide !!!

 

[soan]

ah, j'savais bien qu't'avais manqué mon post ! comme j'ai très bien compris
ta demande, j'savais dès l'départ que mon fichier était une bonne solution !

soan