Probléme pour supprimer des ligne
Résolu
isa--
Messages postés
83
Statut
Membre
-
isa-- Messages postés 83 Statut Membre -
isa-- Messages postés 83 Statut Membre -
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 :
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
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 rond bleu whatsapp - Guide
- Partager des photos en ligne - Guide
- Supprimer page word - Guide
- Supprimer pub youtube - Accueil - Streaming
- Mètre en ligne - Guide
1 réponse
Bonjour,
Exemple :
Assez tordu sans la récursivité ...
K
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
Ca fonctionne très bien
Merci mille fois