Microsoft 365 macro afficher/masquer avec un seul bouton

[Dju1]

Bonjour à tous,
j'utilise une macro pour masquer des colonnes et j'aimerai que cette macro soit utilisable avec un seul bouton.

En cliquant je voudrai donc que ça affiche si la colonne est masqué ou que ça masque si la colonne est affiché.

Pour le moment j'utilise la fonction selection.entirecolumn.Hidden....

Merci d'avance

 

[sylvanu]

Bonjour Dju,
Un essai en PJ avec un seul bouton, il suffit de lire le texte du bouton pour savoir quelle action faire :

Sub MasquerDemasquer()
    Set Sh = ActiveSheet.Shapes("Bouton")
    If Sh.TextFrame2.TextRange.Text = "Masquer colonnes" Then
        [E:O].EntireColumn.Hidden = True
        Sh.TextFrame2.TextRange.Text = "Démasquer colonnes"
        Sh.Fill.ForeColor.RGB = RGB(255, 255, 0)
    Else
        [E:O].EntireColumn.Hidden = False
        Sh.TextFrame2.TextRange.Text = "Masquer colonnes"
        Sh.Fill.ForeColor.RGB = RGB(150, 200, 220)
    End If
End Sub

 

[Dju1]

Bonjour Sylvanu,
merci c'est exactement ce que je recherche. En revanche, je n'arrive pas à le transposer sur mon fichier.
Je renomme ma forme "Bouton" mais ça ne fonctionne pas, je dois certainement oublié quelque chose.

Merci d'avance

 

[sylvanu]

re,
Il n'y a rien d'autre à faire. ( sauf modifier les colonnes à masquer, accrocher la macro au bouton, mais ça doit déjà être fait dans votre fichier 🙂 )
Peut on avoir un petit fichier test ?

 

[Dju1]

un petit peu compliqué car beaucoup de données privées.
J'ai le sh qui est en variable non définie.

Si vraiment il n'y a pas de solutions, je vous envoie le fichier en privé 😉

 

[sylvanu]

J'ai le sh qui est en variable non définie.

Si vous n'avez pas mis au début "Option explicit" la déclaration est optionnelle.
Mais en pas à pas, vous accédez à la macro ?
( vous cliquez sur la ligne "Sub MasquerDemasquer()" puis vous appuyez sur F8, pour faire du pas à pas, à chaque appui une ligne s'exécute )

un petit peu compliqué car beaucoup de données privées.

Vous enregistrez votre fichier en "exemple.xlsm" et vous effacer toutes les données des feuilles, elles sont inutiles pour l'exercice.