XL 2010 recherche code d'impression

mikepers

XLDnaute Occasionnel
Bonjour le Forum
mon niveau VBA : assez moyen..

j'ai une petite base de donnée Excel, qui fonctionne assez bien en ( insert, correction, retrait des données ) via USF.
Je logge certaines données sur une feuille "print"
je souhaiterai donner la possibilité d'imprimer ces logs. Mon problème :
la taille de la base de donnée peut supporter jusqu'à 600 lignes. Je souhaiterai n'imprimer que les cellules renseignées, en évitant les cellules vides ( histoire d'économiser du papier ! )
Comment aborder ce type de commande ?

Bien à vous
 

DoubleZero

XLDnaute Barbatruc
Bonjour, mikepers, Calvus :D, le Forum,

Comme ceci ?
Code:
Option Explicit
Sub Imprimer()
    On Error Resume Next
    Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True ' colonne adapter
    ActiveSheet.PrintPreview  ' ou ActiveSheet.PrintOut
    Columns(1).EntireRow.Hidden = False ' colonne adapter
End Sub
A bientôt :)
 

mikepers

XLDnaute Occasionnel
Bonjour
désolé pour le retard de la réponse.. Les problématiques sur mon fichier se sont accumulées et je n'ai pas approfondi votre code, je vais y revenir.
Il me semble que j'avais testé rapidement la dernière fois mais cela n'avais pas fonctionné. je vais à nouveau tester.
toutes mes excuses..

Merci !!
 

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib