Probléme pour supprimer des ligne

Résolu
isa-- Messages postés 82 Date d'inscription   Statut Membre Dernière intervention   -  
isa-- Messages postés 82 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je suis en train de créer une macro pour mettre en forme un fichier excel.
Tout va bien jusqu'à ce que je tente de faire supprimer toutes les lignes pour lesquelles il n'y a pas de valeur dans la colonne D, mais cela ne fonctionne pas : 

 
Application.ScreenUpdating = False
   Dim i As Integer
   For i = [A65000].End(xlUp).Row To 1 Step -1
        If Cells(i, 4) = "" Then Rows(i).Delete
     Next i


J'ai besoin d'un coup de main, car je viens d'y passer des heures et je ne trouve pas l'erreur.

Je joins mon fichier pour plus de renseignements :

https://www.cjoint.com/c/FKCpaR4V8lv

Merci d'avance de votre aide


Isabelle

A voir également:

1 réponse

Réponse 1 / 1
Kalissi Messages postés 218 Date d'inscription   Statut Membre Dernière intervention   20
 
Bonjour,

Exemple : 

Public Sub SuppressionLignes()

    Dim Limite As Integer, Boucle As Integer

    Range("A1").Select
    Limite = Range("A65000").End(xlUp).Row

    For Boucle = 0 To Limite
        If (ActiveCell.Offset(Boucle, 3).Value = "") Then
            ActiveCell.Offset(Boucle, 0).EntireRow.Delete
            Boucle = 0
            Limite = Limite - 1
            If (Limite = 0) Then
                Exit For
            End If
        End If
    Next Boucle

End Sub


Assez tordu sans la récursivité ...

K
0
isa-- Messages postés 82 Date d'inscription   Statut Membre Dernière intervention   1
 
Super !
Ca fonctionne très bien
Merci mille fois
0

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Pat -

10 réponses
Supprimer conversation messenger pour tout le monde
mercidemaider -
sd -

7 réponses