Definir une impression en VBA

[Titi]

Bonjour le forum.
Voici mon problème, j'ai un bouton macro qui declanche l'impression de la cellule a1 :e127 soit deux feuilles.
Je voudrais que la macro définisse l'impression, uniquement avec les lignes remplies, et non avec les lignes vides.
Si vous avez une solution, alors un grand merci a vous.

 

[evelynetfrancois]

bonjour titi
il faut que tu fasses un tri auto en macro par exemple


Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("ta feuille").Select
Selection.AutoFilter Field:=9, Criteria1:="<>"' le 9 correspond a la 9 ° colonne qui vat etre trier
ActiveSheet.PageSetup.PrintArea = "$A$1:$e$127"
With ActiveSheet
.PrintPreview' apercu sans imprimer
RETOUR = MsgBox("IMPRIMER ? ", 4 + vbInformation, " Feuilles de mon travail . ")
If RETOUR = vbYes Then
.PrintOut
End If

End With
Selection.AutoFilter
Application.ScreenUpdating = True
End Sub


bon courage a plus !

Evelynetfrancois

 

[Titi]

merci a toi Evelynetfrançois.
j'ai essayè ta macro elle ne correspont pas tout a fait a mon besoin.
Le trie n'ai pas obligatoire car la colonne B est replie par des codes les un sous les autres.
Je me suis pas bien exprimé
b1 b2 b3 b4 sont garnies en cliquant sur le bouton l'impression, il me faut une seule feuille.
Par contre si la colonne b est remplie jusqu'a b100 alors je dois avoir deux feuille ou trois.
Si tu vois ce que le veux dire merci de ton aide.

 

[evelynetfrancois]

TITI je pense bien comprendre ton probleme
je pense que tu as des lignes dans ton tableau !!!
du coup la zone a imprimer considere les lignes et imprime la totalite de ton tableau meme si celui ci est vide ........
SI LA SOLUTION DE TRIER LES LIGNES VIDES ET NON VIDES NE TE CONVIENNENT PAS alors
donc je te joints dans un doc explicatif une autre soluce qui malgre les lignes tracées , n'imprimera que les cellules remplis jusqu'a la DERNIERE meme si celles ci ne se suivent pas (trous !!! )

a voir bon courage tiens nous au courant !
evelynetfrancois

 

[Titi]

Bonjour le forum
Merci a toi evelyne pour ton aide,j'ai pas mal de retard, désolé
Ta solution est super.
Titi