Masquer lignes/colonnes

[apdf1]

Bonjour,

J'aimerais connaitre le code VBA pour masquer toute les lignes et les colonnes d'une feuille via un bouton.

Merci d'avance

cordialement

Max

 

[Pierrot93]

Re : Masquer lignes/colonnes

Bonjour Max

regarde ceci, pour traitement de la feuille active :

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

bonne journée
@+

 

[apdf1]

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
@+

 

[Pierrot93]

Re : Masquer lignes/colonnes

Re,

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

 

[apdf1]

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é...!

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