Supprimer ligne SI un mot est présent Résolu/Fermé

Question

Bonjour, 

Voilà quelque jours que j'essaie de faire un fichier m'aidant à démasquer des infractions parmi des log's d'action bref.

Chaque ligne est analysée avec des fonctions SI par apport à d'autre ligne, le problème est qu'il y a des lignes parasites qui font échouer le résultat.

Est-il possible de supprimer ces lignes avec une condition par exemple que le mot « domicile » s'y trouve parmi d'autre dans la ligne ?

Espérant avoir été assez précis, je vous remercie d'avance



Configuration: Excel 2010 / Windows 7 / Chrome 29.0.1547.57

Frenchie83 · Answer

Bonsoir
il manque des précisions, le mot recherché se trouve t-il toujours dans la même colonne?
Dans quelle colonne doit s'applique le contrôle?
En attendant voici un petit bout de code, j'effectue le contrôle sur la colonne 2, changez le N° si ce n'est pas ça "Col=?"

Sub SupprimerLigneParasite()
    Application.ScreenUpdating = False
    DerLig = Range("A100000").End(xlUp).Row
    Col = 2
    For Lig = 2 To DerLig
Deb:
        Parasite = InStr(1, Cells(Lig, Col), "Domicile", 1)
        If Parasite <> 0 Then GoTo LigneSuivante
        Cells(Lig, Col).EntireRow.Delete
        DerLig = DerLig - 1
        If DerLig = 0 Or DerLig < Lig Then Exit Sub
        GoTo Deb
LigneSuivante:
    Next Lig
End Sub
bonne soirée
cdlt

Ikarytos · Answer

Merci à vous pour votre aide.

C'est toujours dans la première colonne que le contrôle à besoin d'être fait. Et est-il possible d'avoir plusieurs mots clef dans la recherche ?

Par contre j'ai testé le code donné, mais c'est l'inverse qui se toutes les cellules n'ayant pas le mot clef ont été effacé.

En fait c'est toute la ligne en entier contenant le mot clef qui devrait être supprimée.

Désoler si mon explication n'était pas assez compréhensible.

Ikarytos · Answer

Je vous en remercie infiniment. Le code fonction parfaitement.

Sans vouloir abuser, pour une utilisation optimum, est-il possible de mettre comme dans le premier exemple (sans la boite de dialogue)  les mots clef en même temps ?
J'ai essayé plusieurs choses mais rien ne va :

        Parasite = InStr(1, Cells(Lig, Col), "Domicile" & "NPA" & "ASSmG", 1)
ou 
        Parasite = InStr(1, Cells(Lig, Col), "Domicile,NPA,ASSmG", 1)
        Parasite = InStr(1, Cells(Lig, Col), "Domicile ;NPA ;ASSmG", 1)

mais rien ne va.

Frenchie83 · Answer

bonsoir
Voici, j'ai laissé la boîte de dialogue, car très pratique.
Vous saisissez tous les mots à éliminer séparés par une virgule sans espaces et terminez par une virgule
Sub SupprimerLigneParasite3()
    Application.ScreenUpdating = False    
    Dim Message, Title, MotRecherche
    Message = "Quel mot ?"
    Titre = "Supprimer toutes les lignes contenant "
    MotsRecherches = InputBox(Message, Titre)    
    NbVirgule = UBound(Split(MotsRecherches, ",", , 1))
    ReDim Mot(NbVirgule + 1) As String
    ReDim Virgule(NbVirgule) As String    
    For i = 1 To NbVirgule
        Mot(i) = Mid(MotsRecherches, 1, InStr(1, MotsRecherches, ",", 1) - 1)
        MotsRecherches = Right(MotsRecherches, Len(MotsRecherches) - InStr(1, MotsRecherches, ",", 1))
    Next i    
    DerLig = Range("A100000").End(xlUp).Row
    Col = 1
    For Lig = 2 To DerLig
        For i = 1 To NbVirgule
Deb:
            Parasite = InStr(1, Cells(Lig, Col), Mot(i), 1)
            If Parasite = 0 Then GoTo TesterParasiteSuivant
            Cells(Lig, Col).EntireRow.Delete
            DerLig = DerLig - 1
            If DerLig = 0 Or DerLig < Lig Then Exit Sub
            GoTo Deb
TesterParasiteSuivant:
        Next i
LigneSuivante:
    Next Lig
End Subça devrait aller
bonne soirée
cdlt

Ikarytos · Answer

Vraiment super, un très grand merci. Je vais pouvoir économiser beaucoup de temps dans mon travail. Encore milles merci.

Supprimer ligne SI un mot est présent

5 réponses

Discussions similaires

Newsletters