Discussion :

[frag132]

bonjour a tous,
Je fais appel a vous aujourd'hui car j'ai un petit soucis d'optimisation avec mon code que voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub supprimerlignemot()
Application.ScreenUpdating = False
Dim I     As Long
Dim Plage As Range
Set Plage = Range("E2:E" & Range("E65536").End(xlUp).Row)
For I = Plage.Cells.Count To 1 Step -1
    If InStr(Plage.Cells(I).Text, "Remplacement") Then
    Plage.Cells(I).EntireRow.Delete
    End If
Next
Application.ScreenUpdating = True
End Sub

Le code ci-dessus permet de regarde sur chaque ligne dans la colonne E si il n'y a pas un mot en particulier dans la cellule et de supprimer la ligne si il est présent.
Le code s’exécute sur la totalité tu tableau et prend pas mal de temps (plusieurs minutes). Est-il possible d’exécuter le code seulement sur la longueur du tableau ?

Merci !

[Nicopilami]

Hello

essaie d'utiliser un truc du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

while not Range("E:E").find("...") is nothing

ca sera peut-etre plus rapide (à tester)
++
Nico

[frag132]

salut nicopilami et merci pour ta réponse.
Mes cases ne contiennent pas uniquement le mot que je cherche, il est comprit dans une phrase a chaque fois differente fera t-il l'affaire ? (je ne peux pas encore le tester)

[gFZT82]

Bonjour,

Un exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub supprimerlignemot()
Dim Plage As Range
    Application.ScreenUpdating = False
    Set Plage = Range("E2:E" & Range("E" & Rows.Count).End(xlUp).Row)
    While Not Plage.Find("Remplacement", LookIn:=xlValues, lookat:=xlPart) Is Nothing
        Plage.Find("Remplacement", LookIn:=xlValues, lookat:=xlPart).EntireRow.Delete
    Wend
    Set Plage = Nothing
    Application.ScreenUpdating = True
End Sub

Avec le paramètre lookat:=xlPart, on détecte une correspondance avec une partie du texte recherché.

Cordialement.

[frag132]

Merci gFZT82 c'est tout a fait ce que je cherchais : le rows.count que je n'ai pas sut sortir.
Encore une fois le forum a réussi a m'aider.
Merci a tous et bonne journée