Cacher des colonnes d'un ListBox.

[NICOALBERT]

Bonjour le forum.

Je vient vers vous car je ne sait pas comment faire pour Cacher des colonnes dans un ListBox. Lorsque je sélectionne dans la ListBoxF les colonnes à masquer elle se masque bien dans la Feuille RECHERCHE et j'aimerais qu'il en fasse de même dans la ListBox1.


Cijoint.fr - Service gratuit de dépôt de fichiers

Est ce que quelqu'un à une idée.

Cordialement.

 

[NICOALBERT]

Re : Cacher des colonnes d'un ListBox.

Bonjour le forum,

J'avance dans mon projet mais je coince sur ce problème.

Comment puis-je modifier ce code juste pour qu'il puisse automatiser la largueur des colonnes de ma ListBox lorsque je clique sur un CheckBox pour cacher la colonnes sélectionner.

Sub LargLolListbox1()
Dim c As Control, t As String
For Each c In Me.Controls
If TypeOf c Is MSForms.CheckBox Then
t = t & IIf(c.Value = True, "50;", "0;")
End If
Next c
ListBox1.ColumnWidths = t
End Sub


Cordialement.

 

[Guest]

Re : Cacher des colonnes d'un ListBox.

Bonjour NICOALBERT,

Dans les propriétés Tag de tes CheckBox tu mets la largeur de chacune des colonnes correspondantes de la listbox.

ensuite

Sub LargLolListbox1()
    Dim c As Control
    Dim t(1 To ListBox1.ColumnCount) As String
    Dim i as integer
    For Each c In Me.Frame6.Controls
        If TypeOf c Is MSForms.CheckBox Then
            t(i) = c.Tag * Abs(c.Value)
            i = i + 1
        End If
    Next c
    ListBox1.ColumnWidths = Join(t, ";")
End Sub

En sachant que c.Value renvoie True (-1) ou False (0)
LargeurX contenue dans le tag * Abs(c.Value) renverra donc
la largeur de la colonne mutlipliée par 0 ou 1
Join(t,";") renvoie une chaine des éléments du tableau concaténés par le séparateur ";"

Ta listbox est définie avec 59 colonnes mais seules 27 sont paramétrées!???

A+

 

[kjin]

Re : Cacher des colonnes d'un ListBox.

Bonjour,
Salut Hasco&Bebere&Staple (euh...😀)
J'ai fait plus simple...😱
A+
kjin

 

[Guest]

Re : Cacher des colonnes d'un ListBox.

Re,

Hello Kjin🙂,

Ou j'ai rien compris ou le userForm de ton exemple n'est pas le bon et je ne suis pas sûr que cela soit plus simple?🙂

A+

 

[kjin]

Re : Cacher des colonnes d'un ListBox.

Bonjour Hasco 🙂,

A+
kjin

 

[NICOALBERT]

Re : Cacher des colonnes d'un ListBox.

Bonsoir kjin , Hasco , le forum.

Un grand merci à kjin le fichier nico est exactement ce que je rechercher et il fonctionne très bien , sauf que lorsque je le met dans mon application j'ai un message d'erreur concernant "Tablo1(i)" dans UserForm_Initialize .

Est ce normal ?
ou c'est moi qui est du mal à mettre le code au bon endroit.

Cordialement.

 

[kjin]

Re : Cacher des colonnes d'un ListBox.

Bonsoir,
N'aurais tu pas oublié de déclarer les tablos en tête de module ?!
Par ailleurs si tu as bien regardé le code, dans l'initialisation du formulaire tu auras remarqué que j'ai indiqué la propriété RowSource de la listbox qui se réfère à la plage dynamique nommée "base" (que je t'invite à regarder), il faut donc que tu vires l'indication que tu avais mise manuellement dans la fenêtre propriétés de cette listbox
A+
kjin

 

[NICOALBERT]

Re : Cacher des colonnes d'un ListBox.

Bonjour le forum,

Je vient de modifier la base avec le code de kjin . Mais maintenant j'ai une erreur 424 et a voir il n'arrive pas a ouvrir l'USF_EtudeJournaliere.

Est ce qur quelqu'un a une idée.

Cordialement

 

[kjin]

Re : Cacher des colonnes d'un ListBox.

Bonjour,
As tu lu la réponse jusqu'au bout...
A+
kjin

 

[NICOALBERT]

Re : Cacher des colonnes d'un ListBox.

Bonsoir kjin, Bonsoir le forum,


J'ai bien lu la réponse jusqu'au bout mais lorsque je bascule ton code dans mon fichier et que je clique sur Etude journalière j'ai un message d'erreur 424 que je n'avais pas avant.

Je te joint le fichier pour te montrer mon problème.

Cordialement.

 

[kjin]

Re : Cacher des colonnes d'un ListBox.

Bonsoir,

J'ai bien lu la réponse jusqu'au bout

Bé moi j'en suis moins sûr !

Par ailleurs si tu as bien regardé le code, dans l'initialisation du formulaire tu auras remarqué que j'ai indiqué la propriété RowSource de la listbox qui se réfère à la plage dynamique nommée "base" (que je t'invite à regarder)...

A+
kjin

 

[NICOALBERT]

Re : Cacher des colonnes d'un ListBox.

Re ,

Je n'avait pas redefinit Base dans mon classeur, Désoler.

Je te remercie pour le temps que tu as pris pour m'aider.et l'aide précieuse que tu m'a apporter

@+