Affichage lignes colonnes

Bonjour,

Est ce quelqu'un saurait m'écrire une petite macro à placer dans un module qui me permettrait à partir de deux boutons sur la feuille d'accueil de mon classeur de masquer toutes les lignes et colonnes ou inversement de les afficher

Merci d'avance, cordialement, Chti59xcel

Bonjour Chti59xcel

voici le code à placer dans ton module

Sub Cacher()

    ' Pour cacher toutes les colonnes
    ' A affecter au bouton adequat

    Columns("A:A").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.EntireColumn.Hidden = True
End Sub
Sub Montrer()

    ' Pour montrer toutes les colonnes
    ' A affecter au bouton adequat

    Selection.EntireColumn.Hidden = False
End Sub

Bonjour à toutes et à tous. Code inspiré de la proposition d'andréa

Sub masquer()
Feuil1.Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell).Address).EntireColumn.Hidden = True
End Sub

Sub demasquer()
Feuil1.Cells.EntireColumn.Hidden = False
End Sub

Bonjour, merci pour ce retour de réponses, j'ai testé les deux formules avec mes boutons, mais je ne sais pas pourquoi, il ne déclenche aucunes actions ?

Si vous savez pourquoi, je suis à disposition, A+, chti59xcel

Bonjour, pensez à vous vêtir car l'hiver sera rude.