Page 1 sur 1

macro pour impressison

Posté : 30 oct. 2005, 08:05:16
par alain85
Bjr, peut-on avec une macro ne pas imprimé les lignes vierges, exemple
j'ai un tableau lignes 5 à 10, lignes 6 à 14 vierges, et 1 tableau ligne 15 à 20, je voudrais qu'a l'impression les 2 tableaux se touchent.
merci si quelqu'un peut m'aider

Posté : 30 oct. 2005, 08:45:09
par alain51
Salut,

Code : Tout sélectionner

 Sub SuppLigneVides()
With ActiveSheet.UsedRange
derLi = .Row + .Rows.Count - 1
End With
Application.ScreenUpdating = False
For r = derLi To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
Il faut commencer par la dernière ligne et remonter.

Posté : 30 oct. 2005, 09:23:05
par alain85
Aquel endroit il faut indiquer la dernière ligne?