XL 2016 Masquer/Afficher Colonnes

[Jol40]

Bonjour,
Malgré mes recherches je n'ai pas réussi à intégrer les exemples que j'ai trouvé.
J'ai un fichier Excel 2016 comprenant 6 feuilles identiques de 10 colonnes de A à J, je dois éditer ces tableaux sous 2 formats, le premier intégralement le second en masquant les colonnes B et H.
J'aimerai qu'à l'aide d'un bouton (Afficher/Masquer) on puisse agir sur chaque feuille individuellement.
Je suis loin d'être un expert et la procédure si proposée devra être détaillée !
Par avance merci.

 

[Staple1600]

Bonjour le fil, le forum

@Jol40 [Bienvenue sur le forum]
Une macro qui Affiche/Masque les colonnes sur la feuille active

Sub mAfficheMasquer()
Columns("B:H").EntireColumn.Hidden = Not Columns("B:H").EntireColumn.Hidden
End Sub

Pour traiter toutes les feuilles

Sub mAfficheMasquerAll()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Columns("B:H").EntireColumn.Hidden = Not ws.Columns("B:H").EntireColumn.Hidden
Next
End Sub

Je suis loin d'être un expert et la procédure si proposée devra être détaillée !

Un procédure possible pour un certain type de bouton
https://support.office.com/fr-fr/ar...n-bouton-728c83ec-61d0-40bd-b6ba-927f84eb5d2c
Une autre procédure pour un autre type de bouton
https://support.office.com/fr-fr/ar...commande-d58edd7d-cb04-4964-bead-9c72c843a283

Tu voulais du détaillé, te voilà servi, camarade !

 

[Jol40]

Pour du détail c'est pas mal !
Mais ce sont les Colonnes B et H, pas de B jusqu'à H.
Merci à toi

 

[Staple1600]

Re

Bah, je te laisse faire les modifications toi-même (ce sera formateur)
(Aide-toi de l'enregistreur de macros, et tu trouveras facilement la bonne syntaxe)

 

[Jol40]

Merci,
L'élément formateur nickel !
Très surpris j'ai trouvé rapidement (sans l'enregistreur), le résultat est celui que j'attendais.
Merci encore.

 

[Staple1600]

Re

@Jol40
Trouver la solution soi-même, c'est bien
La publier pour les autres *membres du forum, c'est mieux
(*que cela pourrait intéresser si problème similaire)
Alors, pour la communauté XLD, je publie en lieu et place du demandeur

Sub mAfficheMasquerB()
Range("B:B,H:H").EntireColumn.Hidden = Not Range("B:B,H:H").EntireColumn.Hidden
End Sub

 

[Staple1600]

Re

Et comme j'ai encore un peu de temps avant que le cycle de ma machine à laver s'achève
Un petit Bonux

Private Sub AffMasq(Optional MesColonnes As String = "B:B,H:H")
Range(MesColonnes).EntireColumn.Hidden = Not Range(MesColonnes).EntireColumn.Hidden
End Sub
Sub test_I()
'Par défaut affiche/masque les colonnes B et H
AffMasq
End Sub
Sub test_II()
'ici on choisit les colonnes que l'on veut
AffMasq "A:A,B:B,K:K"
End Sub

 

[Jol40]

La version Test_I est parfaite et + rapide.
Pour résumer, cela me convient parfaitement et va me faire gagner du temps.
Donc encore merci, remercie aussi ta machine à laver qui t'auras permis d'améliorer (à mon sens !) le produit.

 

[Staple1600]

Re,

@Jol40
Et la prochaine fois, n'oublie pas de poster ta solution, stp.
(pour rester dans l'esprit forum, partage de connaissance et tutti quanti )

 

[mapomme]

Pour saluer @Staple1600 , (et jol40 aussi ),

Sub mAfficheMasquerB()
Range("B:B,H:H").EntireColumn.Hidden = Not Range("B:B,H:H").EntireColumn.Hidden
End Sub

Et le faire bisquer avant que sa machine ne le réclame... (ah les fameuses RHM !)

Le terme ,H:H dans la partie droite est inutile, me semble-t-il , car Range("B:B,H:H").EntireColumn.Hidden ne renvoie pas un tableau mais simplement l'état masqué ou non de la colonne B. J'ai juste ?

 

[Staple1600]

Bonsoir mapomme

Si tu poses la question, c'est que tu as la réponse

Et pour les RHM, j'ai juste ?
https://www.urbandictionary.com/define.php?term=RHM
Si oui, je ne vois pas le rapport avec ce fil.

 

[mapomme]

Re,

Et pour les RHM, j'ai juste ?
https://www.urbandictionary.com/define.php?term=RHM
Si oui, je ne vois pas le rapport avec ce fil.

Pour les hommes : RHM (Relation Homme Machine - en général il s'agit d'un ordinateur - rarement un lave-linge , enfin c'est toi qui vois)
Pour les femmes : RFM (Relation Femme Machin - je risque de me faire incendier par les politiquement bien pensants )

J'ai l'impression qu'en informatique, on n’emploie plus beaucoup ce terme RHM (il était en vogue dans les années 1980). Il faut dire que j'ai laissé tomber ce type de littérature. Je ne suis plus trop les évolutions dans ce domaine. Pourtant, les communications avec nos appareils sont au cœur des recherches, OK Gogole ?

 

[Staple1600]

Re

@mapomme
Tu m'aurais dit: interface chaise-clavier
Tout de suite je pensais:
"le problème se trouve entre la chaise et le clavier"

Mais là, RHM, inconnu au bataillon.

Quand à ma machine à laver, j'en suis pas au point de lui donner un petit nom

NB: Si tu as lu mon récent fil dans le salon, tu verras que je suis dans l'impossibilité de causer avec Mister G. vu que je navigue sans JS.
J'ai d'ailleurs ressorti mon minitel
(qui lui je l'avoue avait un petit nom à l'époque)
Donc je suis en pleine dévolution

Pour revenir à la question du demandeur
Ms codes font le job ou pas?
Ou il y a anguille sous France Roche ?

 

[mapomme]

Pour revenir à la question du demandeur
Ms codes font le job ou pas?

yes, ils le font.