Lignes vidfes

Le
Pascal
Bonjour
Quelqu'un aurait une macro ou un code pour supprimer toutes les lignes vides
d'une feuille?

Merci *
Pascal





Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-2, 05/07/2007
Analyse le : 06/07/2007 08:22:49
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
FFO
Le #4602641
Salut Pascal

La solution la plus rapide est de réaliser un tri sur la colonne dont les
lignes non vides ont obligatoirement une donnée

Sinon tu peux utiliser ce code :

ActiveCell.SpecialCells(xlLastCell).Select
Range("A" & ActiveCell.Row).Select
Do While ActiveCell.Row > Range("A1").Row
If ActiveCell = "" And ActiveCell.End(xlToRight).Column = Range("IV" &
ActiveCell.Row).Column And Range("IV" & ActiveCell.Row) = "" Then
ActiveCell.EntireRow.Delete
End If
If ActiveCell.End(xlToRight).Column <> Range("IV" & ActiveCell.Row) Then
ActiveCell.Offset(-1, 0).Select
End If
Loop
If ActiveCell = "" And ActiveCell.End(xlToRight).Column = Range("IV" &
ActiveCell.Row).Column And Range("IV" & ActiveCell.Row) = "" Then
ActiveCell.EntireRow.Delete
End If

Espérant avoir répondu à ton attente

Dis moi !!!



Bonjour
Quelqu'un aurait une macro ou un code pour supprimer toutes les lignes vides
d'une feuille?

Merci *
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-2, 05/07/2007
Analyse le : 06/07/2007 08:22:49
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






Pascal
Le #4602631
Merci


"FFO"
Salut Pascal

La solution la plus rapide est de réaliser un tri sur la colonne dont les
lignes non vides ont obligatoirement une donnée

Sinon tu peux utiliser ce code :

ActiveCell.SpecialCells(xlLastCell).Select
Range("A" & ActiveCell.Row).Select
Do While ActiveCell.Row > Range("A1").Row
If ActiveCell = "" And ActiveCell.End(xlToRight).Column = Range("IV" &
ActiveCell.Row).Column And Range("IV" & ActiveCell.Row) = "" Then
ActiveCell.EntireRow.Delete
End If
If ActiveCell.End(xlToRight).Column <> Range("IV" & ActiveCell.Row)
Then
ActiveCell.Offset(-1, 0).Select
End If
Loop
If ActiveCell = "" And ActiveCell.End(xlToRight).Column = Range("IV" &
ActiveCell.Row).Column And Range("IV" & ActiveCell.Row) = "" Then
ActiveCell.EntireRow.Delete
End If

Espérant avoir répondu à ton attente

Dis moi !!!



Bonjour
Quelqu'un aurait une macro ou un code pour supprimer toutes les lignes
vides
d'une feuille?

Merci *
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-2, 05/07/2007
Analyse le : 06/07/2007 08:22:49
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-2, 05/07/2007
Analyse le : 06/07/2007 09:37:42
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-2, 05/07/2007
Analyse le : 06/07/2007 09:38:26
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


Publicité
Poster une réponse
Anonyme