pbm dans une boucle Résolu/Fermé

Question

Bonjour,

Je cherche à creer une macro qui va supprimer les lignes pour lesquelles la 1ere colonne est vide. Le pbm est que si j'ai 2 lignes vides consécutives, la boucle va sauter la 2eme (à cause l'iteration de i)

est il utile de préciser que je ne suis pas programmeur ? :)


Sub cleanup()

        endrow = Cells(1, 3).CurrentRegion.Rows.Count
    For i = 2 To endrow
        If Cells(i, 1) = "" Then
        Rows(i).Select
        Selection.Delete Shift:=xlUp
    Else
        End If
    Next

End Sub

Merci d'avance pr vos coup de pouce!

Nabla's · Answer

et en faisant ca:



Sub cleanup()

endrow = Cells(1, 3).CurrentRegion.Rows.Count
For i = 2 To endrow
If Cells(i, 1) = "" Then
Rows(i).Select
Selection.Delete Shift:=xlUp
i=i-1
end if
Next

End Sub

Py_rex · Answer

Bonsoir,

Sub cleanup()

endrow = Cells(1, 3).CurrentRegion.Rows.Count
For i = 2 To endrow
If Cells(i, 1) = "" Then
Rows(i).Select
Selection.Delete Shift:=xlUp
i = i - 1
endrow = endrow - 1
Else
End If
Next

End Sub

ced · Answer

hey ça marche ! Merci pour votre aide, genial!

Sub Macro13()

    Sheets("test").Select
        endrow = Cells(1, 3).CurrentRegion.Rows.Count
    For i = 2 To endrow
        If endrow < i Then Exit For Else
            If Cells(i, 1) = "" Then
                Rows(i).Select
                Selection.Delete Shift:=xlUp
                endrow = endrow - 1
                i = i - 1
            Else
                End If
    Next

End Sub

Pbm dans une boucle

3 réponses

Discussions similaires