VBA | Afficher/Masquer des colonnes selon un "shape" unique

[ralph45]

Bonsoir à tou(te)s,

N'ayant pas pratiqué le VBA depuis quelques temps, je me retrouve dans une impasse...

A partir d'un shape, je voudrais afficher ou masquer des colonnes non contiguës (E;F;G;K;P et Q)
Cerise sur le gâteau : selon le mode, le titre du shape devrait s'adapter selon l'affichage ("Version légère" ou "Version complète".

Voir le document fourni en PJ et merci d'avance !

 

[mapomme]

Bonsoir ralph45,

Un essai avec le code suivant affecté au bouton de la feuille "LISTE" :

Sub Bouton_Versions()
   Range("e:g,k:k,p:q").EntireColumn.Hidden = Not Columns("E").Hidden
   ActiveSheet.Shapes("BTN_VERSION").TextFrame.Characters.Text = _
      IIf(Columns("E").Hidden, "Version légère", "Version complète")
End Sub

 

[mapomme]

Bonsoir ralph45,

Si on peut se passer de la forme, un moyen simple, sans codage, est d'utiliser le mode plan d'Excel.

 

[ralph45]

Bonjour mapomme,

Je ne peux pas me passer de la forme, donc je vais tester ton code qui m'air bien :
Je n'avais pas pensé à tester le "hidden" sur une seule colonne...

Je l'adapte et te tiens au courant...

Encore merci d'avance !

Edit : (d'Angers et non de Nantes) OK, ça fonctionne nickel !!!