Masquer lignes/colonnes

Pierrot93

XLDnaute Barbatruc

• 3 Décembre 2010

• #2

Re : Masquer lignes/colonnes

Bonjour Max

regarde ceci, pour traitement de la feuille active :

Code:

With Cells
    .Columns.Hidden = Not .Columns.Hidden
    .Rows.Hidden = Not .Rows.Hidden
End With

bonne journée
@+

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 3 Décembre 2010

• #3

Re : Masquer lignes/colonnes

Bonjour Pierrot,

Et merci mais il me donne un Message d'erreur "impossible de définir la propriété Hidem de la classe Range"

J'ai mis un bouton sur la feuille1 et le code !

bonne journée

Max
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Décembre 2010

• #4

Re : Masquer lignes/colonnes

Re,

pas de souci chez moi sous 2003, ta feuille n'est pas protégée par hasard ?

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 3 Décembre 2010

• #5

Re : Masquer lignes/colonnes

Re,

J'ai récupéré ton code complet qui m'a été fournis gentiment par Mth en me soulignant ceci "inspiré du code de notre ami pierrot (que je salue)"
Le code fonctionne super, mais Je voudrais pas abusé des bonnes chose mais il est possible d'avoir le code a l'envers si je peut m'exprimer ainsi, je veut dire par la pour revenir avec toute les lignes et colonnes.
Voici le code que j'ai récupéré...!

Code:

Option Explicit
Sub Macro1()
Dim PlageC As Range, PlageL As Range
With ActiveSheet
    Set PlageC = .Range(Cells(1, 4), Cells(1, Columns.Count)).EntireColumn
    Set PlageL = .Range(Cells(6, 1), Cells(Rows.Count, 1)).EntireRow
    
    PlageC.Columns.Hidden = Not PlageC.Columns.Hidden
    PlageL.Rows.Hidden = Not PlageL.Rows.Hidden
End With
End Sub

Bonne soiré

Max

 

Vote positif 0 Vote négatif