Code d'impression avec cellule non-vide

[Jean]

Bonjour le forum,

Dans le code suivant j’imprime les lignes si la cellule « H » est vide. J’aimerais avoir la même option mais avec une cellule contenant quelque chose. Je n’ai pas trouvé l’équivalent de IsEmpty pour une cellule avec une donnée.

Quelqu’un connaîtrait une solution ?

Private Sub CmdImprimeVide_Click()
Unload UsfMenu
Application.ScreenUpdating = False
For r = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If IsEmpty(Cells(r, 'h')) Then Rows(r).Hidden = True
Next r
Columns('K:AF').Hidden = True
ActiveSheet.PrintOut
Rows().Hidden = False
Columns().Hidden = False
End Sub

Merci

 

[ERIC S]

Bonjour

isempty

et

not isempty

car si ce n'est pas vide...c'est qu'il y a quelque chose

A+

 

[Jean]

Bonjour le fil,

Fonctionne très bien.

Merci