suppimer lignes suivant chaine de caractéres

[Profane]

[résolu] suppimer lignes suivant chaine de caractéres

Bonjour a tous,
encore une boucle (qui ne fonctionne pas)
je cherche sur la colonne A , si dans le texte de la cellule celle ci contient le mot "CISCO"
si c'est le cas j'efface la ligne (enfin j'aimerai)
voila vous savez tous
merci pour votre aide

Sub cherche()

Sheets("colt").Activate
nomCherche = "CISCO"
On Error Resume Next
Err = 0
For i = 2 To 10 'pour le test, idéaleent il faut partir du bas et remonté
Range(A & i).Find(What:=nomCherche, LookIn:=xlValues).Select
If Err = 0 Then
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
Range(ActiveCell, ActiveCell.End(xlToRight)).Delete

End If
Next
On Error GoTo 0
End Sub

 

[VDAVID]

Re : suppimer lignes suivant chaine de caractéres

Bonjour Profane,

Peut-être comme ceci:

Sub RechercheCisco()

    Dim Ws As Worksheet
    Dim i As Integer
    Dim NomCherche As String
    
        Set Ws = Sheets("Colt")
        NomCherche = "CISCO"
            
            For i = Ws.Range("A65536").End(xlUp).Row To 1 Step -1
                
                If Ws.Range("A" & i).Value Like "*" & NomCherche & "*" Then
                    
                    Ws.Rows(i).Delete
                    
                End If
                
            Next i
    
End Sub

En espérant t'avoir aidé 🙂
Bonne journée

 

[Profane]

Re : suppimer lignes suivant chaine de caractéres

merci Vdavid,
c'est parfait ;-)