Erreur 1004

[Cougar]

Bonsoir le forum,

J'ai cette erreur et je ne sais pas comment la corrigée ? Vous avez une idée ?

Private Sub CmdImprimer_Click()
Dim u As Integer
Dim nbpages As Variant

Unload Me
Application.ScreenUpdating = False

For u = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Not IsEmpty(Cells(u, "h2")) Then Rows(u).Hidden = True 'erreur définie par l'application ou par l'objet
Next u
Application.ScreenUpdating = True
Endsub

Merci

 

[Mytå]

Re : Erreur 1004

Salut Cougar

Juste ceci IsEmpty(Cells(u, "H"))

au-lieu de IsEmpty(Cells(u, "H2"))

Mytå

 

[Cougar]

Re : Erreur 1004

Bonsoir Mytå,
Merci pour la solution.