Problème macro

Pepedro · 31 Mai 2010

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 !!

Code:

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 · 31 Mai 2010

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 · 1 Juin 2010

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 · 1 Juin 2010

Re : Problème macro

Bonjour PepedroEssayez ceci :

Code:

[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 · 1 Juin 2010

Re : Problème macro

Merci Roger ça marche à la perfection.

Bonne soirée

Problème macro

Pepedro

Guest

Pièces jointes

jeanpierre

Nous a quitté

Pepedro

Guest

ROGER2327

XLDnaute Barbatruc

Pepedro

Guest

Discussions similaires

Problème macro

Pepedro

Guest

Pièces jointes

jeanpierre

Nous a quitté

Pepedro

Guest

ROGER2327

XLDnaute Barbatruc

Pepedro

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency