masquer par macro des lignes/colonnes avec Excel 97
1 réponse
Bonjour,=20
J'ai fait une petite macro qui masque toutes les colonnes=20
correspondantes =E0 une certain crit=E8re (celles dont la=20
ligne 9 est non-vide). J'ai utilis=E9 la=20
fonction 'columnwidth'.=20
Or, j'ai fait ma macro sous Excel 2000 et quand j'envoie=20
ce fichier =E0 d'autres qui utilisent Excel97, ils=20
obtiennent 'impossible de d=E9finir la propri=E9t=E9 columnwidth=20
de la fonction range'.
Quelqu'un connait il une fa=E7on de masquer/afficher des=20
colonnes et lignes sous Excel 97?
Merci beaucoup,
Arno
Pour info, voici un bout de ma macro.
Private Sub semaines_Click()
Dim c, d As Variant
Dim i As Long
i =3D ActiveSheet.Cells(1, 15).Value 'dans la=20
cellule, j'ai mis un indicateur me disant si il faut=20
masquer (=3D1) ou afficher (=3D0) les colonnes
=20
For Each c In [$L$9:$ID$9]
=20
If (c <> "") Then
If (i =3D 1) Then Range(d).ColumnWidth =3D 0 Else=20
Range(d).ColumnWidth =3D 11
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Bourby
bonjour,
voilà ce que dit l'aide d'Excel: Hidden, propriété - Exemple
Cet exemple montre comment masquer la colonne C de la feuille « Sheet1 ».
Worksheets("Sheet1").Columns("C").Hidden = True Nota: avec ColumnWidth, tu ne masques rien du tout;tu te contentes d'affecter une largeur nulle lors de l'affichage. Si tu emploies des fonctions ou propriétés sensibles au masquage (p.ex; sous.total dans Excel, ou .hidden dans VBA) le résultat ne devrait pas être le même(non testé). Cordialement Bourby
a écrit dans le message news: 4d1001c3a3b8$67290f80$ Bonjour,
J'ai fait une petite macro qui masque toutes les colonnes correspondantes à une certain critère (celles dont la ligne 9 est non-vide). J'ai utilisé la fonction 'columnwidth'. Or, j'ai fait ma macro sous Excel 2000 et quand j'envoie ce fichier à d'autres qui utilisent Excel97, ils obtiennent 'impossible de définir la propriété columnwidth de la fonction range'. Quelqu'un connait il une façon de masquer/afficher des colonnes et lignes sous Excel 97?
Merci beaucoup,
Arno
Pour info, voici un bout de ma macro.
Private Sub semaines_Click()
Dim c, d As Variant Dim i As Long
i = ActiveSheet.Cells(1, 15).Value 'dans la cellule, j'ai mis un indicateur me disant si il faut masquer (=1) ou afficher (=0) les colonnes
For Each c In [$L$9:$ID$9]
If (c <> "") Then If (i = 1) Then Range(d).ColumnWidth = 0 Else Range(d).ColumnWidth = 11 End If
Next
ActiveSheet.Cells(1, 15) = 1 - i
End Sub
bonjour,
voilà ce que dit l'aide d'Excel:
Hidden, propriété - Exemple
Cet exemple montre comment masquer la colonne C de la feuille « Sheet1 ».
Worksheets("Sheet1").Columns("C").Hidden = True
Nota: avec ColumnWidth, tu ne masques rien du tout;tu te contentes
d'affecter une largeur nulle lors de l'affichage.
Si tu emploies des fonctions ou propriétés sensibles au masquage
(p.ex; sous.total dans Excel, ou .hidden dans VBA)
le résultat ne devrait pas être le même(non testé).
Cordialement
Bourby
<anonymous@discussions.microsoft.com> a écrit dans le message news:
4d1001c3a3b8$67290f80$7d02280a@phx.gbl...
Bonjour,
J'ai fait une petite macro qui masque toutes les colonnes
correspondantes à une certain critère (celles dont la
ligne 9 est non-vide). J'ai utilisé la
fonction 'columnwidth'.
Or, j'ai fait ma macro sous Excel 2000 et quand j'envoie
ce fichier à d'autres qui utilisent Excel97, ils
obtiennent 'impossible de définir la propriété columnwidth
de la fonction range'.
Quelqu'un connait il une façon de masquer/afficher des
colonnes et lignes sous Excel 97?
Merci beaucoup,
Arno
Pour info, voici un bout de ma macro.
Private Sub semaines_Click()
Dim c, d As Variant
Dim i As Long
i = ActiveSheet.Cells(1, 15).Value 'dans la
cellule, j'ai mis un indicateur me disant si il faut
masquer (=1) ou afficher (=0) les colonnes
For Each c In [$L$9:$ID$9]
If (c <> "") Then
If (i = 1) Then Range(d).ColumnWidth = 0 Else
Range(d).ColumnWidth = 11
End If
voilà ce que dit l'aide d'Excel: Hidden, propriété - Exemple
Cet exemple montre comment masquer la colonne C de la feuille « Sheet1 ».
Worksheets("Sheet1").Columns("C").Hidden = True Nota: avec ColumnWidth, tu ne masques rien du tout;tu te contentes d'affecter une largeur nulle lors de l'affichage. Si tu emploies des fonctions ou propriétés sensibles au masquage (p.ex; sous.total dans Excel, ou .hidden dans VBA) le résultat ne devrait pas être le même(non testé). Cordialement Bourby
a écrit dans le message news: 4d1001c3a3b8$67290f80$ Bonjour,
J'ai fait une petite macro qui masque toutes les colonnes correspondantes à une certain critère (celles dont la ligne 9 est non-vide). J'ai utilisé la fonction 'columnwidth'. Or, j'ai fait ma macro sous Excel 2000 et quand j'envoie ce fichier à d'autres qui utilisent Excel97, ils obtiennent 'impossible de définir la propriété columnwidth de la fonction range'. Quelqu'un connait il une façon de masquer/afficher des colonnes et lignes sous Excel 97?
Merci beaucoup,
Arno
Pour info, voici un bout de ma macro.
Private Sub semaines_Click()
Dim c, d As Variant Dim i As Long
i = ActiveSheet.Cells(1, 15).Value 'dans la cellule, j'ai mis un indicateur me disant si il faut masquer (=1) ou afficher (=0) les colonnes
For Each c In [$L$9:$ID$9]
If (c <> "") Then If (i = 1) Then Range(d).ColumnWidth = 0 Else Range(d).ColumnWidth = 11 End If