Probléme pour supprimer des ligne Résolu/Fermé

Question

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
Configuration: Windows 7 / Firefox 50.0

Kalissi · Answer

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 BoucleEnd Sub
Assez tordu sans la récursivité ...
K

Probléme pour supprimer des ligne

1 réponse

Discussions similaires