XL 2010 recherche code d'impression

mikepers · 15 Février 2018

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

Calvus · 15 Février 2018

Bonjour mikepers, le forum,

As tu essayé l'enregistreur de macros ?

A+

DoubleZero · 15 Février 2018

Bonjour, mikepers, Calvus , 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 · 8 Mars 2018

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

XL 2010 recherche code d'impression

mikepers

XLDnaute Occasionnel

Calvus

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

mikepers

XLDnaute Occasionnel

Discussions similaires