XL 2010 recherche code d'impression

[mikepers]

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]

Bonjour mikepers, le forum,

As tu essayé l'enregistreur de macros ?

A+

 

[DoubleZero]

Bonjour, mikepers, Calvus 😀, le Forum,

Comme ceci ?

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]

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