Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Essaie :
Dim i As Long With ActiveSheet.UsedRange For i = .Cells(.Rows.Count, 1).Row To 1 Step -1 If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete End If Next i End With
Cordialement. Daniel "Pascal" a écrit dans le message de news: 4690a51e$0$5076$
Est-il possible de supprimer la ligne concernée si et seulement si elle est vide et de la laisser si il reste des données
Merci Pascal
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-4, 06/07/2007 Analyse le : 08/07/2007 10:49:35 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
Bonjour.
Essaie :
Dim i As Long
With ActiveSheet.UsedRange
For i = .Cells(.Rows.Count, 1).Row To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then
Rows(i).Delete
End If
Next i
End With
Cordialement.
Daniel
"Pascal" <lapless@wanadoo.fr> a écrit dans le message de news:
4690a51e$0$5076$ba4acef3@news.orange.fr...
Dim i As Long With ActiveSheet.UsedRange For i = .Cells(.Rows.Count, 1).Row To 1 Step -1 If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete End If Next i End With
Cordialement. Daniel "Pascal" a écrit dans le message de news: 4690a51e$0$5076$
Est-il possible de supprimer la ligne concernée si et seulement si elle est vide et de la laisser si il reste des données
Merci Pascal
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-4, 06/07/2007 Analyse le : 08/07/2007 10:49:35 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
anonymousA
Bonjour,
si le remplacement de Plan par "" ne met réellement en jeu qu'une colonne par exemple, il est rapide de passer par la métode SpecialCells de l'objet Range par exemple si c'est dans la colonne A qu'on veut rechercher les cellules vides, les deux instructions suivantes ou d'autres sont équivalentes:
Est-il possible de supprimer la ligne concernée si et seulement si elle est vide et de la laisser si il reste des données
Merci Pascal
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-4, 06/07/2007 Analyse le : 08/07/2007 10:49:35 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
Bonjour,
si le remplacement de Plan par "" ne met réellement en jeu qu'une
colonne par exemple, il est rapide de passer par la métode SpecialCells
de l'objet Range
par exemple si c'est dans la colonne A qu'on veut rechercher les
cellules vides, les deux instructions suivantes ou d'autres sont
équivalentes:
si le remplacement de Plan par "" ne met réellement en jeu qu'une colonne par exemple, il est rapide de passer par la métode SpecialCells de l'objet Range par exemple si c'est dans la colonne A qu'on veut rechercher les cellules vides, les deux instructions suivantes ou d'autres sont équivalentes: