une macro qui ne marche pas sur excel 97

[violaine]

bonsoir à tous,

j'ai fait (péniblement et avec votre aide) ça sur excel 2000 :

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
ToggleButton1.Caption = "Afficher toutes les lignes"
Masquage
Else
ToggleButton1.Caption = "Masquer les lignes"
Demasquage
End If
End Sub

Private Sub Masquage()
ActiveSheet.Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

Private Sub Demasquage()
Rows.Hidden = False
End Sub


Private Sub ToggleButton2_Click()
If ToggleButton2 = True Then
ToggleButton2.Caption = "Afficher les Infos Clients"
Columns("D:F").Hidden = True
Else
ToggleButton2.Caption = "Masquer les Infos Clients"
Columns("D:F").Hidden = False
End If
End Sub

Sub masquerinfos()
If Columns("D:F").EntireColumn.Hidden = False Then
Else
End If
End Sub

Private Sub CommandButton1_Click()

End Sub

seulement ça bug sur excel 97.
ça me sort une erreur 1034 à :

Rows.Hidden = False

et à

Columns("D:F").Hidden = False

y a t il quelque chose à rajouter pour assurer la compatibilité?

merci d'avance

violaine

 

[vincent]

bonjour

il faut specifier dans quel feuille ce trouve l'object a masquer ou demasquer sous la forme suivante sheets(1).columns("d:f").hidden=false pour la feuille une modifie en fonction pour to, application.

bye