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 !!
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas