Menu

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

isa-- 64 Messages postés lundi 16 septembre 2013Date d'inscription 19 février 2018 Dernière intervention - 28 nov. 2016 à 16:01 - Dernière réponse : isa-- 64 Messages postés lundi 16 septembre 2013Date d'inscription 19 février 2018 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 

2 réponses

Kalissi 179 Messages postés jeudi 2 mai 2013Date d'inscription 22 février 2018 Dernière intervention - Modifié par Kalissi le 28/11/2016 à 17:42
0
Utile
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-- 64 Messages postés lundi 16 septembre 2013Date d'inscription 19 février 2018 Dernière intervention - 29 nov. 2016 à 13:48
Super !
Ca fonctionne très bien
Merci mille fois