Macros Et VBA Excel : Masquer Des Colonnes

Navigation

Inscrivez-vous gratuitementpour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

• Vous n'êtes pas encore inscrit sur Developpez.com ? Inscrivez-vous gratuitement !

• Quoi de neuf ?
• Forum
• Derniers messages
• Actions
  • Marquer les forums comme lus
  • Messages du jour
  • Bugs & Suggestions
• Réseau social
  • Groupes
  • Liste des utilisateurs
  • FAQ forum
  • Voir l'équipe du site
• Blogs
• Agenda
• Chat
• Règles
• Blogs
• Projets

• Recherche avancée

• 
• Forum
• Logiciels
• Microsoft Office
• Excel
• Macros et VBA Excel
• [XL-2016] Masquer des colonnes

+ Répondre à la discussion Discussion : Masquer des colonnes Sujet :

Macros et VBA Excel

• Outils de la discussion
  • Afficher une version imprimable
  • S'abonner à cette discussion…
• Affichage
  • Mode linéaire
  • Choisir le mode hybride
  • Choisir le mode arborescent

1. 04/09/2017, 15h43 #1 philpyreneen Membre averti Inscrit enNovembre 2009Messages21Détails du profilInformations forums :Inscription : Novembre 2009Messages : 21 Masquer des colonnes

   bonjour je cherche a creer une macro pour masquer des colonnes si on rentre une donnée dans une cellule etant débutant en vba j'ai essayé ceci

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   12345

   Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B4")) Is Nothing Then Exit Sub If Target.Value <> 0 Then Columns(2, 3, 4).Hidden = False If Target.Value = 0 Then Columns(2, 3, 4).Hidden = True End Sub

   si je rentre B4 =0 je voudrais masquer les colonnes 2,3,4 mais je crois avoir fait une erreur merci de votre aide Sandrine nounou initial.xlsx

   Répondre avec citation 0 0
2. 04/09/2017, 16h32 #2 Philippe Tulliez Rédacteur Formateur, développeur et consultant Excel, Access, Word et VBAInscrit enJanvier 2010Messages13 200Détails du profilInformations personnelles :Sexe : Localisation : BelgiqueInformations professionnelles :Activité : Formateur, développeur et consultant Excel, Access, Word et VBAInformations forums :Inscription : Janvier 2010Messages : 13 200Billets dans le blog53

   Bonjour, Il me semble difficile d'introduire une valeur en B4 à partir du moment où l'on aura masqué la colonne 2 Pour masquer une colonne on utilise l'indice de la collection qui est soit numérique, soit alphanumérique Exemple pour masquer ou afficher la colonne 3

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   12345

   Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B4")) Is Nothing Then Exit Sub If Target.Value <> 0 Then Columns(3).Hidden = False If Target.Value = 0 Then Columns(3).Hidden = True End Sub

   Comme la valeur de la propriété Hidden est de type booléen, profitons en

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   1234	Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B4")) Is Nothing Then Exit Sub Columns(3).Hidden = Target.Value = 0 End Sub

   et pour effacer plusieurs colonne, on peut utiliser une structure répétitive telle que For ... To ... Next Exemple pour masque les colonnes de 3 à 5

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   1234567

   Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Integer If Intersect(Target, Range("B4")) Is Nothing Then Exit Sub For c = 3 To 5 Columns(c).Hidden = Target.Value = 0 Next End Sub

   Il y a bien entendu d'autres solutions [EDIT] Une coquille s'est glissée dans mon code. Même si cela fonctionnait le test est plus compréhensible comme ci-dessous

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   Columns(c).Hidden = Target.Value = 0 Au lieu de

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   Columns(c).Hidden = False = Target.Value

   Philippe Tulliez Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau) Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

   Répondre avec citation 0 0
3. 04/09/2017, 17h42 #3 philpyreneen Membre averti Inscrit enNovembre 2009Messages21Détails du profilInformations forums :Inscription : Novembre 2009Messages : 21

   je te remercie pour ta réponse mais je voudrais modifier le fonctionnement je voudrais que si je clique en J2 cela me masque les colonnes B,C,D merci pour votre aide

   Répondre avec citation 0 0
4. 04/09/2017, 17h54 #4 Philippe Tulliez Rédacteur Formateur, développeur et consultant Excel, Access, Word et VBAInscrit enJanvier 2010Messages13 200Détails du profilInformations personnelles :Sexe : Localisation : BelgiqueInformations professionnelles :Activité : Formateur, développeur et consultant Excel, Access, Word et VBAInformations forums :Inscription : Janvier 2010Messages : 13 200Billets dans le blog53

   Bonjour, je te remercie pour ta réponse mais je voudrais modifier le fonctionnement je voudrais que si je clique en J2 cela me masque les colonnes B,C,D Franchement, avec le code que tu as sous les yeux et si tu fais un minimum d'effort de lire le code, cela ne doit pas être difficile de modifier B4 par J2 non ? [EDIT] je voudrais que si je clique en J2 cela me masque les colonnes B,C,D Pour intercepter la sélection d'une cellule, il faut utiliser cette procédure événementielle Worksheet_SelectionChange(ByVal Target As Range)

   Philippe Tulliez Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau) Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

   Répondre avec citation 0 0
5. 05/09/2017, 14h18 #5 philpyreneen Membre averti Inscrit enNovembre 2009Messages21Détails du profilInformations forums :Inscription : Novembre 2009Messages : 21

   je veux bien te croire à condition de connaitre quelque chose en vba ce qui n'est pas mon cas

   Répondre avec citation 0 0
6. 05/09/2017, 14h24 #6 Pierre Fauconnier Rédacteur/Modérateur Formateur et développeur chez EXCELLEZ.netInscrit enNovembre 2003Messages19 125Détails du profilInformations personnelles :Sexe : Âge : 59Localisation : BelgiqueInformations professionnelles :Activité : Formateur et développeur chez EXCELLEZ.netSecteur : EnseignementInformations forums :Inscription : Novembre 2003Messages : 19 125Billets dans le blog131

   Salut. A mettre dans le module de la feuille concernée

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   12345

   Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("J2")) Is Nothing Then Range("b:d").EntireColumn.Hidden = True End If End Sub

   Perso, je déteste les exit sub

   "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire) --------------- Mes billets de blog sur DVP Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles... Pensez à utiliser les tableaux structurés. Ils vous simplifieront la vie, tant en Excel qu'en VBA ==> mon tuto Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel... Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA... ---------------

   Répondre avec citation 0 0
7. 05/09/2017, 15h23 #7 philpyreneen Membre averti Inscrit enNovembre 2009Messages21Détails du profilInformations forums :Inscription : Novembre 2009Messages : 21

   merci cela fonctionne parfaitement

   Répondre avec citation 0 0

+ Répondre à la discussion

Actualités

FAQs OFFICE

TUTORIELS OFFICE

LIVRES OFFICE

SOURCES VBA

OFFICE 2010

• 
• Forum
• Logiciels
• Microsoft Office
• Excel
• Macros et VBA Excel
• [XL-2016] Masquer des colonnes

« Discussion précédente | Discussion suivante »

Discussions similaires

1. masquer des colonnes Par magictom42 dans le forum Macros et VBA Excel Réponses: 12 Dernier message: 11/07/2007, 15h16
2. [VBA-E] Problème pour masquer des colonnes. Par martiweb dans le forum Macros et VBA Excel Réponses: 3 Dernier message: 25/04/2007, 03h53
3. Masquer des colonnes ? Par epfyffer dans le forum Deski Réponses: 15 Dernier message: 10/01/2007, 14h23
4. [Reporting Services] Masquer des colonnes Par deep_blue dans le forum MS SQL Server Réponses: 1 Dernier message: 08/08/2006, 23h21
5. Masquer des colonnes dans un tableau Par fornorst dans le forum Général JavaScript Réponses: 10 Dernier message: 26/04/2006, 22h00

Partager

Partager

• 
• 
• 
• 
• 
• 
• 
• 

• Nous contacter
• Developpez.com
• Haut de page