Afficher et masquer colonnes

Re : Afficher et masquer colonnes

Bonjour Lelex89 et bienvenue sur ce forum,

Pour tous tes problèmes, merci de faire d'abord des recherches sur le forum

Ce lien n'existe plus

A+

Re : Afficher et masquer colonnes

Bonjour lelex89, bienvenue sur XLD,

avant d'utiliser l'enregistreur de macro, déprotège et protège à nouveau la feuille. Tu n'auras plus qu'à récupérer le code enregistré dans ta macro.

Edit: bonjour Bruno 🙂

Re : Afficher et masquer colonnes

Bonjour lelex, Bruno🙂, Skoobi🙂

A noter également, pour que le code puisse s'exécuter sur une feuille protégée, il faut protéger la feuille par vba en utilisant l'argument "userinterfaceonly". Code ci-dessous à placer dans le module "thisworkbook", se déclenche à l'ouverture du classeur :


bonne fin d'après midi
@+

Re : Afficher et masquer colonnes

Merci pour toutes vos réponses aussi rapides!!
Je devrais maintenant être en mesure de terminer mon fichier! 😀
Je voulais également spécifié que j'avais tenter de chercher de l'info sur mon problème et que je n'avais pas réussi... J'avais probablement mal indentifier mes key words...
Bonne journée!

Re : Afficher et masquer colonnes

Bon, au risque d'avoir l'air totalement incompétante, je me lance, je continue a essayer plein de trucs et à rechercher d'autres moyens d'y arriver, mais ça ne fonctionne pas exactement comme je le voudrais...
Pour l'instant, j'ai essayé avec l'enregistreur, mais ça fonctionne moyennement...
J'ai trouvé un code afin de commencer par déprotéger ma feuille, de ce côté, aucun problème, ça fonctionne parfaitement. Mon problème maintenant c'est que je veux que mon bouton cache les colonnes U à AA lorsque L à Q sont apparentes et à l'inverse en appuyant à nouveau sur le même bouton.
J'ai été capable de faire le tout, mais avec deux boutons différents qui ne me permettent pas de revenir en arrière lorsque les 2 ont été enfonconsés...
Espérant avoir été claire...
Merci encore de votre aide! 😉

Sub cacher()

ActiveSheet.Unprotect ("4115")

Worksheets(7).Columns("U:AA").Hidden = True

ActiveSheet.Protect ("4115")


End Sub

Sub afficher()

ActiveSheet.Unprotect ("4115")

Worksheets(7).Columns("L:Q").Hidden = True

ActiveSheet.Protect ("4115")

End Sub

Re : Afficher et masquer colonnes

Re,

test ceci:

Re : Afficher et masquer colonnes

Merci Skoobi!
Ça fonctionne comme je le voulais!!
Bonne journée!