Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Lignes vidfes

Lignes vidfes

2 réponses
Avatar
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
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






Avatar
Pascal
Merci


"FFO" a écrit dans le message de news:

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