Lignes

Le
Pascal
Bonjour,
Après cette partie de Code

Cells.Replace What:="Plan", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:úlse, SearchFormat:úlse,
ReplaceFormat:úlse

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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4903191
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" 4690a51e$0$5076$
Bonjour,
Après cette partie de Code

Cells.Replace What:="Plan", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:úlse, SearchFormat:úlse,
ReplaceFormat:úlse

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
Le #4903051
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:

Range("A1:A65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

A+

Bonjour,
Après cette partie de Code

Cells.Replace What:="Plan", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:úlse, SearchFormat:úlse,
ReplaceFormat:úlse

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





Publicité
Poster une réponse
Anonyme