Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

ralph45

XLDnaute Impliqué
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 !
 

Pièces jointes

  • Bouton_Versions.xlsm
    19.4 KB · Affichages: 35

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonsoir ralph45,

Un essai avec le code suivant affecté au bouton de la feuille "LISTE" :
VB:
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
 

Pièces jointes

  • ralph45- Bouton_Versions- v1.xlsm
    20 KB · Affichages: 55

ralph45

XLDnaute Impliqué
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 !!!
 
Dernière édition:
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…