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

isa-- 59 Messages postés lundi 16 septembre 2013Date d'inscription 30 novembre 2017 Dernière intervention - 28 nov. 2016 à 16:01 - Dernière réponse : isa-- 59 Messages postés lundi 16 septembre 2013Date d'inscription 30 novembre 2017 Dernière intervention
- 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 :

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

Merci d'avance de votre aide


Isabelle

Afficher la suite 
59Messages postés lundi 16 septembre 2013Date d'inscription 30 novembre 2017 Dernière intervention

2 réponses

Kalissi 162 Messages postés jeudi 2 mai 2013Date d'inscription 1 décembre 2017 Dernière intervention - Modifié par Kalissi le 28/11/2016 à 17:42
0
Utile
1
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-- 59 Messages postés lundi 16 septembre 2013Date d'inscription 30 novembre 2017 Dernière intervention - 29 nov. 2016 à 13:48
Super !
Ca fonctionne très bien
Merci mille fois