Signaler

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

Posez votre question isa-- 31Messages postés lundi 16 septembre 2013Date d'inscription 25 août 2017 Dernière intervention - Dernière réponse le 29 nov. 2016 à 13:48 par isa--
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

Utile
+0
plus moins
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-- 31Messages postés lundi 16 septembre 2013Date d'inscription 25 août 2017 Dernière intervention - 29 nov. 2016 à 13:48
Super !
Ca fonctionne très bien
Merci mille fois
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !