Probléme pour supprimer des ligne

Résolu/Fermé

isa-- Messages postés 77 Date d'inscription lundi 16 septembre 2013 Statut Membre Dernière intervention 11 mars 2020 - 28 nov. 2016 à 16:01
isa-- Messages postés 77 Date d'inscription lundi 16 septembre 2013 Statut Membre Dernière intervention 11 mars 2020 - 29 nov. 2016 à 13:48

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:

Probléme pour supprimer des ligne
Supprimer une page word - Guide
Supprimer compte instagram - Guide
Hors ligne instagram - Guide
Aller à la ligne excel - Guide
Vente en ligne particulier - Guide

1 réponse

Réponse 1 / 1

Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 20
Modifié par Kalissi le 28/11/2016 à 17:42

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

isa-- Messages postés 77 Date d'inscription lundi 16 septembre 2013 Statut Membre Dernière intervention 11 mars 2020 1
29 nov. 2016 à 13:48

Super !
Ca fonctionne très bien
Merci mille fois

Discussions similaires

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

Statut « en ligne » alors que non

Discussions similaires

Newsletters