suppression de lignes blanches

[Liloo]

Bonjour le forum,

J'ai besoin de vos lumières.
Savez vous comment, dans une base de données de 4000 lignes, je peut suprimer toutes les lignes blanches qui se trouvent avant et aprés mes données?
D'un seul clic se serait parfait.

Merci pour votre aide toujours précieuse.

 

[Jacques87]

Bonjour

En supposant que tes lignes commencent toutes par une cellule de la colonne A et que tu considères qu'une ligne est 'blanche' si le contenu de la première cellule est vide, alors tu peux utiliser cette macro

For I = Range('A65536').End(XlUp).Row to 1 step -1
If range('A' & I).value = '' Then
Rows(I).Delete
End If
Next I

Bon courage

 

[Liloo]

Merci de ton aide.

En fait je considère une ligne blanche lorsque toutes les cellules sont vides.

Est ce que cela fonctionnera également?

Merci

 

[Jacques87]

Re

Non tu dois alors remplacer la ligne

If range('A' & I).value = '' Then

par

If Range('A1').End(XlToRight).Column = 256 Then

 

[pat1545.]

Bonjour,
Voilà de quoi faire:

Sub DetruireLignesVides() ' Commencer par le bas
DerniereLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = DerniereLigne To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
ActiveSheet.UsedRange
End Sub
Sub DetruireColVides()
dernierecol = ActiveSheet.UsedRange.Columns.Count
Application.ScreenUpdating = False
For r = dernierecol To 1 Step -1
If Application.CountA(Columns(r)) = 0 Then Columns(r).Delete
Next r
End Sub

Patrick