gratifiant > microsoft.* > microsoft.excel

crole (16/11/2008, 11h21)
Bonjour le groupe,

Je suis à la recherche d'un code qui me permettrais par l'action d'un
command button, de supprimer le ligne vide d'une plage en sachant que
les lignes ne sont pas l'une en dessous de l'autre mais par exemple:

ligne; 22,23,27,28,32,33,41......

Merci pour vos réponses
Cordialement
Crole
Philippe.R (16/11/2008, 12h27)
Bonjour,

Tu peux utiliser un code de ce type, supposant que la colonne A soit
représentative de la vacuité de la ligne, à adapter :

sub sup_lig_vides()
dim derlig as long, i as long
for i =derlig to 1 step-1
if cells(i,1).value="" then cells(i,1).entirerow.delete
next i
end sub
Philippe.R (16/11/2008, 12h29)
Oups, oublié de définir derlig

sub sup_lig_vides()
dim derlig as long, i as long
derlig=range("a6543").end(xlup).row
for i =derlig to 1 step-1
if cells(i,1).value="" then cells(i,1).entirerow.delete
next i
end sub
LSteph (16/11/2008, 12h34)
Bonjour,

sans macro: Données trier
crole (16/11/2008, 13h09)
Merci le groupe et bon Dimanche à tous

Cordialement
Crole
JB (16/11/2008, 14h01)
Bonjour,

Cellules vides dans la colonne A:

On Error Resume Next
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

JB


On 16 nov, 10:21, crole <contactbr> wrote:
[..]
Discussions similaires