virer ligne vides sur une feuille

[so]

bonjour,
en desssou de mes lignes renseignée, j'ai pas mal de ligne vides et ce sur 50 feuilles.
lorsque je convertis pour la base mysql, elle sont comptés
comment les virer ou les ignorer
Merci

 

[PascalXLD]

Bonjour

Pour 50 feuilles tu peux peut-être fair eune petite macro

Sub SupLignesVides()

dim ws as worksheet
dim MaLigne as Integer

for each ws in WOrksheets
Maligne=ws.range('A65536').end(xlup).row + 1
ws.rows(maligne &':65536').delete
next
end sub

Bon courage

 

[so]

arfffff
c'est pas top, ça me vire toutes mes données!!
tu as un plan b?
merci de ton aide

 

[PascalXLD]

Re

Bon à première vu ta colonne A n'est pas ta colonne de référence donc il faut modifier la macro légèrement car cela ne devrait pas retiré toutes les données sit ta colonne A est remplie

Bon modifies comme ceci

Sub SupLignesVides()

Dim ws As Worksheet
Dim MaLigne As Integer

For Each ws In Worksheets
MaLigne = ws.Cells.SpecialCells(xlCellTypeLastCell).Row + 1
ws.Rows(MaLigne & ':65536').Delete
Next
End Sub

Bon courage

 

[so]

arff je me suis tt tapé à la main :s
mais je me la mets de coté ça me reservira merci