Discussion :

[Chtik]

Bonjour,

Je cherche à faire une boucle supprimer les lignes qui renvoient le texte "OUI" ou "PEUT-ETRE" dans des cellules avec une fonction "RECHERCHEV" à l'origine (voir fichiez joint).

J'ai essayé ce code mais ça ne fonctionne pas :

Code :

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

1
2
3
4
5
6
Sub SupLigneOui()
   Application.ScreenUpdating = False
   For J = [A65000].End(xlUp).Row To 1 Step -1
      If Left(Cells(J, 1), 4) = "FAUX" Then Rows(J).Delete
   Next J
End Sub

Merci de votre réponse,
Chtik

[mercatog]

Testé sur ton fichier

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub SupLigneOui()
Dim i As Long
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")
    For i = .Cells(.Rows.Count, "J").End(xlUp).Row To 8 Step -1
        If .Range("J" & i) = "OUI" Or .Range("J" & i) = "PEUT-ETRE" Then .Rows(i).Delete
    Next i
End With
End Sub

[Chtik]

Bonjour,

Merci pour ce premier code, il m'a bien aidé.

Cependant, je ne parviens pas à l'adapter pour qu'il fonctionne aussi avec la combinaison de fonction suivante :
=SI(RECHERCHEV(...);VRAI;FAUX)

Auriez-vous la solution !?

[mercatog]

Et que veux tu supprimer dans ce cas?

Une question bien posée c'est 90% de la réponse

[Chtik]

Je veux supprimer le VRAI et le #N/A, s'il y en a, sur les lignes 2 à 2000 dans le fichier final.

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub SupLigneVraiEtErreur()
Dim i As Long
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")
    For i = .Cells(.Rows.Count, "J").End(xlUp).Row To 8 Step -1
        If .Range("J" & i).Text = "VRAI" Or IsError(.Range("J" & i)) Then .Rows(i).Delete
    Next i
End With
End Sub

[Chtik]

Merci, c'est tout à fait ça.

J'ai cependant une petite question supplémentaire.
Lorsque j'applique la Macro dans mon fichier final, le traitement prend environ 2 minute pour traiter les 2000 lignes.

N'y aurait-il pas un moyen d'accélérer le traitement ?

[mercatog]

Essaies comme ceci si tu peux grignoter quelques secondes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub SupLigneVraiEtErreur()
Dim i As Long
 
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Worksheets("Feuil1")
    For i = .Cells(.Rows.Count, "J").End(xlUp).Row To 8 Step -1
        If .Range("J" & i).Text = "VRAI" Or IsError(.Range("J" & i)) Then .Rows(i).Delete
    Next i
End With
Application.Calculation = xlCalculationAutomatic
End Sub

[Chtik]

Merci beaucoup, c'est ce qu'il me fallait.