Signaler

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

Posez votre question isa-- 22Messages postés lundi 16 septembre 2013Date d'inscription 29 novembre 2016 Dernière intervention - Dernière réponse le 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 
Utile
+0
moins plus
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-- 22Messages postés lundi 16 septembre 2013Date d'inscription 29 novembre 2016 Dernière intervention - 29 nov. 2016 à 13:48
Super !
Ca fonctionne très bien
Merci mille fois
Répondre
Ajouter un commentaire

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 !