1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2016 Masquer/Afficher Colonnes

Discussion dans 'Forum Excel' démarrée par Jol40, 12 Janvier 2018.

  1. Jol40

    Jol40 XLDnaute Nouveau

    Inscrit depuis le :
    3 Mars 2017
    Messages :
    4
    "J'aime" reçus :
    0
    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.
     
  2. Chargement...

    Discussions similaires - Masquer Afficher Colonnes Forum Date
    XL 2007 (RESOLUT) afficher masquer colonnes par liste deroulante Forum Excel 27 Décembre 2017
    VBA | Afficher/Masquer des colonnes selon un "shape" unique Forum Excel 10 Juillet 2017
    XL 2016 Afficher Masquer colonnes par rapport à une date référence Forum Excel 9 Juillet 2017
    XL 2010 Masquer et afficher des colonnes disjointes à la demande Forum Excel 8 Juin 2017
    XL 2003 masquer & afficher colonnes avec mot de passe Forum Excel 26 Mars 2017

  3. Staple1600

    Staple1600 XLDnaute Barbatruc

    Inscrit depuis le :
    24 Juin 2005
    Messages :
    24141
    "J'aime" reçus :
    1056
    Habite à:
    Roahzon
    Utilise:
    Excel 2013 (PC)
    Bonjour le fil, le forum

    @Jol40 [Bienvenue sur le forum]
    Une macro qui Affiche/Masque les colonnes sur la feuille active
    Code (Visual Basic):

    Sub mAfficheMasquer()
    Columns("B:H").EntireColumn.Hidden = Not Columns("B:H").EntireColumn.Hidden
    End Sub
    Pour traiter toutes les feuilles
    Code (Visual Basic):

    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
     
    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 !
     
    Dernière édition: 13 Janvier 2018
  4. Jol40

    Jol40 XLDnaute Nouveau

    Inscrit depuis le :
    3 Mars 2017
    Messages :
    4
    "J'aime" reçus :
    0
    Pour du détail c'est pas mal !
    Mais ce sont les Colonnes B et H, pas de B jusqu'à H.
    Merci à toi
     
  5. Staple1600

    Staple1600 XLDnaute Barbatruc

    Inscrit depuis le :
    24 Juin 2005
    Messages :
    24141
    "J'aime" reçus :
    1056
    Habite à:
    Roahzon
    Utilise:
    Excel 2013 (PC)
    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)
     
  6. Jol40

    Jol40 XLDnaute Nouveau

    Inscrit depuis le :
    3 Mars 2017
    Messages :
    4
    "J'aime" reçus :
    0
    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.
     
  7. Staple1600

    Staple1600 XLDnaute Barbatruc

    Inscrit depuis le :
    24 Juin 2005
    Messages :
    24141
    "J'aime" reçus :
    1056
    Habite à:
    Roahzon
    Utilise:
    Excel 2013 (PC)
    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 ;)
    Code (Visual Basic):
    Sub mAfficheMasquerB()
    Range("B:B,H:H").EntireColumn.Hidden = Not Range("B:B,H:H").EntireColumn.Hidden
    End Sub
     
  8. Staple1600

    Staple1600 XLDnaute Barbatruc

    Inscrit depuis le :
    24 Juin 2005
    Messages :
    24141
    "J'aime" reçus :
    1056
    Habite à:
    Roahzon
    Utilise:
    Excel 2013 (PC)
    Re

    Et comme j'ai encore un peu de temps avant que le cycle de ma machine à laver s'achève
    Un petit Bonux ;)
    Code (Visual Basic):

    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
     
     
  9. Jol40

    Jol40 XLDnaute Nouveau

    Inscrit depuis le :
    3 Mars 2017
    Messages :
    4
    "J'aime" reçus :
    0
    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 :D qui t'auras permis d'améliorer (à mon sens !) le produit.
     
  10. Staple1600

    Staple1600 XLDnaute Barbatruc

    Inscrit depuis le :
    24 Juin 2005
    Messages :
    24141
    "J'aime" reçus :
    1056
    Habite à:
    Roahzon
    Utilise:
    Excel 2013 (PC)
    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 ;) )
     
  11. mapomme

    mapomme XLDnaute Barbatruc

    Inscrit depuis le :
    1 Novembre 2011
    Messages :
    4870
    "J'aime" reçus :
    766
    Sexe :
    Masculin
    Habite à:
    Angers
    Utilise:
    Excel 2010 (PC)
    Pour saluer @Staple1600 ;), (et jol40 aussi :)),

    Et le faire bisquer :p 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 :rolleyes:, 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 ?
     
  12. Staple1600

    Staple1600 XLDnaute Barbatruc

    Inscrit depuis le :
    24 Juin 2005
    Messages :
    24141
    "J'aime" reçus :
    1056
    Habite à:
    Roahzon
    Utilise:
    Excel 2013 (PC)
  13. mapomme

    mapomme XLDnaute Barbatruc

    Inscrit depuis le :
    1 Novembre 2011
    Messages :
    4870
    "J'aime" reçus :
    766
    Sexe :
    Masculin
    Habite à:
    Angers
    Utilise:
    Excel 2010 (PC)
    Re,

    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 :eek:)

    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 ?
     
    Dernière édition: 13 Janvier 2018
  14. Staple1600

    Staple1600 XLDnaute Barbatruc

    Inscrit depuis le :
    24 Juin 2005
    Messages :
    24141
    "J'aime" reçus :
    1056
    Habite à:
    Roahzon
    Utilise:
    Excel 2013 (PC)
    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 ?
     
  15. mapomme

    mapomme XLDnaute Barbatruc

    Inscrit depuis le :
    1 Novembre 2011
    Messages :
    4870
    "J'aime" reçus :
    766
    Sexe :
    Masculin
    Habite à:
    Angers
    Utilise:
    Excel 2010 (PC)
    yes, ils le font.
     

Partager cette page