Afficher/Maquer des colonnes
#1
Débutant XLPages

Inscription: 17/11/2009

Messages: 15

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 21-11-2009 14h19

Bonjour le forum,

Je cherche un exemple qui me permettrait de masquer ou d’afficher des colonnes.

J’ai trouvé un excellent exemple, mais je n’arrive pas à le modifier.

Je vous joins l’exemple en question, sur lequel j’ai indiqué le tableau que j’ai créé.

Je désire masquer les 2 colonnes (matin et après-midi) lorsque je sélectionne un nom.

J’espère que je me suis exprimé correctement, et vous remercie par avance de l’attention que vous voudrez bien m’accorder.

Cordialement.



Pièce jointe:
xls AfficherMasquerColonnes3.xls   [ Taille: 41.00 Ko - Téléchargements: 411 ]
Hors Ligne
Rapport   Haut 

Re: Afficher/Maquer des colonnes
#2
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 21-11-2009 16h26
Bonjour lours,

Ne serait-il pas plus simple de modifier le tableau du dessous pour que les colonnes à masquer ou à afficher correspondent aux colonnes du dessus comme en pièce jointe ?
Bon après-midi,

mth


Edit de 16hh40: je viens de remettre le bon fichier ZIP, je m'étais trompée de fichier




Pièce jointe:
zip AfficherMasquerColonnes4.zip   [ Taille: 20.20 Ko - Téléchargements: 469 ]
Hors Ligne
Rapport   Haut 

Re: Afficher/Maquer des colonnes
#3
Débutant XLPages

Inscription: 17/11/2009

Messages: 15

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 21-11-2009 17h37

Bonsoir Mth, le forum,

 

Merci pour la rapidité de cette réponse, mais je ne peux pas retenir cette suggestion.

Le tableau que j’ai crée, était un exemple pour me permettre de réaliser mon projet.

Cordialement

Hors Ligne
Rapport   Haut 

Re: Afficher/Maquer des colonnes
#4
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 21-11-2009 21h02
Bonsoir lours, bienvenue sur XLpages.com
Bonsoir Mth, le Forum,


En pièce jointe, une autre proposition qui te conviendra peut-être...

J'ai utilisé le code suivant :
Option Explicit

Private Sub UserForm_Initialize()
Dim Cell As Range
    With ListboxF
        .ColumnCount = 2        '2 colonnes dans la ListBox
        .ColumnWidths = ";0"    'dont la deuxième cachée
        .BoundColumn = 2        'La propriété "Value" renverra la valeur de la colonne cachée
        For Each Cell In Rows(24).SpecialCells(xlCellTypeConstants, 23)
            .AddItem Cell.Text                          '1ère colonne : les prénoms
            .List(.ListCount - 1, 1) = Cell.Column      '2ème colonne : les numéros de colonnes correspondantes
        Next Cell
    End With
End Sub

Private Sub ListBoxF_Click()
    BoutonOnOff.Caption = IIf(Columns(Val(ListboxF.Value)).Hidden, "Afficher", "Masquer")
End Sub

Private Sub ListBoxF_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    BoutonOnOff_Click
End Sub

Private Sub BoutonOnOff_Click()
    'Masque ou affiche la colonne cible et la colonne à sa droite
    With Columns(Val(ListboxF.Value))
        .Hidden = Not .Hidden
        .Offset(0, 1).Hidden = Not .Offset(0, 1).Hidden
    End With
    ListBoxF_Click
    ActiveWindow.ScrollColumn = 1
End Sub

Private Sub BoutQuitte_Click()
  Unload Me
End Sub

Cordialement,


Pièce jointe:
zip PourLours.zip   [ Taille: 14.57 Ko - Téléchargements: 427 ]

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Afficher/Maquer des colonnes
#5
Débutant XLPages

Inscription: 17/11/2009

Messages: 15

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 23-11-2009 11h00

Bonjour Didier, le forum,

C’est super. Cela me convient très bien, je vais essayer de l’appliquer à mon projet.

J’ai apprécié les commentaires figurant dans les macros, pour l’exemple que tu as eu la gentillesse de développer,  et aussi pour les autres macros figurant sur le forum.

Si tu le permets, j’ai deux questions :

1)Peut-on supprimer les lignes suivantes de la macro «  UserForm_Initialize », si celles-ci ont été mentionnées dans les propriétés de la ListBoxF :

                         .ColumnCount = 2        '2 colonnes dans la ListBox

                         .ColumnWidths = ";0"    'dont la deuxième cachée

                         .BoundColumn = 2 

2)Peut-on corriger un message que l’on a déjà envoyé (par exemple : pour corriger une faute d’orthographe ou ajouter un fichier oublié, etc.) ?

 

Avec tous mes remerciements pour cette brillante solution.

Cordialement.

Hors Ligne
Rapport   Haut 

Re: Afficher/Maquer des colonnes
#6
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 23-11-2009 20h50
Bonsoir lours, Mth, le Forum,

Content que ça puisse répondre à ta demande.

Citation :
lours a écrit :

1)Peut-on supprimer les lignes suivantes de la macro «  UserForm_Initialize », si celles-ci ont été mentionnées dans les propriétés de la ListBoxF :

                         .ColumnCount = 2        '2 colonnes dans la ListBox

                         .ColumnWidths = ";0"    'dont la deuxième cachée

                         .BoundColumn = 2

Oui, si tu qualifies ces propriétés "en dur" directement depuis la fenêtre de propriétés du Userform, ces lignes deviennent inutiles. Je les ai mentionnées ici pour que tu puisses voir les pré-requis nécessaires au bon fonctionnement du code.

Citation :
lours a écrit :

2)Peut-on corriger un message que l’on a déjà envoyé (par exemple : pour corriger une faute d’orthographe ou ajouter un fichier oublié, etc.) ?

Si tu es connecté comme membre, avec ton pseudo, lorsque tu consultes un fil de discussions dans lequel tu es intervenu, sous chacun de tes posts (messages) tu verras un bouton nommé "EDITER" (à côte de "REPONDRE" et "CITATION").

Par ailleurs, si la réponse donnée te convient et que tu estimes ce sujet clos, merci de mettre en pratique ce qui est indiqué sous ma signature...

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Afficher/Maquer des colonnes
#7
Débutant XLPages

Inscription: 17/11/2009

Messages: 15

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 24-11-2009 00h20

Bonjour Didier, le forum,

Mes sincères remerciements pour le temps que tu m’as consacré, et pour la qualité des réponses.

Un seul petit problème : Le message d’erreur suivant « Erreur d’exécution ‘94’ : Utilisation incorrecte de Null » apparaît, si après l’ouverture du fichier, on lance la macro, puis on clique immédiatement sur le bouton « Afficher ».

J’espère ne pas trop abuser de ta patience.

Cordialement.


Pièce jointe:
xls PourLours.xls   [ Taille: 40.50 Ko - Téléchargements: 409 ]
Hors Ligne
Rapport   Haut 

Re: Afficher/Maquer des colonnes
#8
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 24-11-2009 00h35
Re,

Citation :
lours a écrit :

Un seul petit problème : Le message d’erreur suivant « Erreur d’exécution ‘94’ : Utilisation incorrecte de Null » apparaît, si après l’ouverture du fichier, on lance la macro, puis on clique immédiatement sur le bouton « Afficher ».

J’espère ne pas trop abuser de ta patience.

Non, c'est de ma faute, j'y ai pensé en bouclant le fichier précédemment et j'ai oublié...

Tu trouveras le correctif dans la pièce jointe.

J'ai simplement ajouté la ligne suivante :

.ListIndex = 0

dans la procédure Sub UserForm_Initialize().

Cette erreur est simple à analyser : si aucun élément n'est sélectionné dans la ListBox, alors la macro plante puisqu'il n'y a aucun élément à traiter ! Le simple ajout ci-dessous présélectionne le premier élément de la liste par défaut, ce qui supprime cette situation inopportune.

Cordialement,



Pièce jointe:
zip PourLours2.zip   [ Taille: 14.27 Ko - Téléchargements: 461 ]

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Afficher/Masquer des colonnes
#9
Débutant XLPages

Inscription: 17/11/2009

Messages: 15

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 25-11-2009 19h35
Bonsoir Didier, le forum,
Merci pour ces explications. J'apprécie la clarté de tes réponses.
Cordialement.


Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes