suppimer lignes suivant chaine de caractéres

Profane · 19 Juillet 2013

[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 · 19 Juillet 2013

Re : suppimer lignes suivant chaine de caractéres

Bonjour Profane,

Peut-être comme ceci:

Code:

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 · 19 Juillet 2013

Re : suppimer lignes suivant chaine de caractéres

merci Vdavid,
c'est parfait ;-)

suppimer lignes suivant chaine de caractéres

Profane

XLDnaute Occasionnel

VDAVID

XLDnaute Impliqué

Profane

XLDnaute Occasionnel

Discussions similaires

suppimer lignes suivant chaine de caractéres

Profane

XLDnaute Occasionnel

VDAVID

XLDnaute Impliqué

Profane

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency