Bouton Masqué démasqué

Bonjour

Novice sur le sujet,
Voilà je cherche une âme charitable afin de créer en un seul bouton de type macro pour masque un ensemble de colonne
voir le fichier en pièce joint
et de changer le texte pour la même occasion
je suppose pour la communauté cela devrait pas être trop difficile
je vous en remercie par avance

Bonjour,

Exemple à tester

Bonjour stef3700, M12, le forum,

Une variante avec un bouton à bascule..

Cordialement,

Bonjour à tous

@Stef3700 en utilisant le contrôle de ton fichier

Bouton 7 de "Feuil1" à lier à cette macro

Sub AficherMasquerColonnes()
  Dim Flg As Boolean
  ' Avec la feuille concernée
  With Sheets("Feuil1")
    ' On peut définir un FLAG si colonnes masquées ou non
    Flg = .Columns("D:K").EntireColumn.Hidden = True
    ' Et afficher ou masquer les colonnes selon
    .Columns("D:K").EntireColumn.Hidden = Not Flg
    ' On modifie le texte du bouton
    If Flg Then
      .Shapes("Button 7").TextFrame.Characters.Text = "Masquer les colonnes"
    Else
      .Shapes("Button 7").TextFrame.Characters.Text = "Afficher les colonnes"
    End If
  End With
End Sub

A+

Parfait comme je voulais

merci

Bonsoir Stef3700

🤔

Bonjour

Dernière chose est til possible de faire la même action depuis une image à la place d'un bouton ?

Merci par avance.

Le novice.

Bonjour,

En te basant sur la macro de BrunoM45 (que je salue au passage) et en modifiant les parties concernant le "Shapes" tu devrais y arriver

Merci a tous