Problème macro

[Pepedro]

Bonjour,
J'ai écris une macro pour supprimer des lignes vides et des lignes contenant deux mots différents... Mais quand je la lance elle ne supprime pas tout ce que je veux, je suis obligé de la lancer 2 à 3 fois et je ne vois pas pourquoi !!
Mon fichier fait environ 19000 lignes !!

Sub SupprimerTexteMA()

    Dim i As Integer
    Dim a As Long

    For a = Range("A65536").End(xlUp).Row To 1 Step -1
        Select Case Cells(a, 1).Value
            Case "Tendances", "Informations"
                Cells(a, 1).EntireRow.Delete
        End Select
    Next

    For i = 1 To 19360
        If Cells(i, 3) = "" Then
            Cells(i, 1).EntireRow.Delete
        End If
    Next
    
End Sub

Merci par avance.

 

[jeanpierre]

Re : Problème macro

Bonsoir Pepedro, Bienvenue sur le forum,

Et si tu inverses également ta seconde boucle ?

For i = 19360 to 1 step -1

Bonne soirée.

Jean-Pierre

 

[Pepedro]

Re : Problème macro

Merci jean pierre, en effet ça supprime bien les lignes vides, mais il reste un problème sur la suppression des lignes contenant les mots. Celles contenant le mot "tendances" se suppriment bien mais pas l'autre !!

 

[ROGER2327]

Re : Problème macro

Bonjour PepedroEssayez ceci :

[COLOR="DarkSlateGray"][B]Sub SupprimerTexteMA()
Dim a&
   For a = Range("A65536").End(xlUp).Row To 1 Step -1
      Select Case Split(Cells(a, 1).Value & Space(1))(0)
         Case "Tendances", "Informations": Cells(a, 1).EntireRow.Delete
         Case Else: If Cells(a, 3) = "" Then Rows(a).EntireRow.Delete
      End Select
   Next
End Sub[/B][/COLOR]

ROGER2327
#3596

Samedi 14 Merdre 137 (Saint Sphincter, profès, SQ)
12 Prairial An CCXVIII
2010-W22-1T22:27:23Z

 

[Pepedro]

Re : Problème macro

Merci Roger ça marche à la perfection.

Bonne soirée