XL 2016 Remplir listbox avec 11 colonnes

[KTM]

Bonjour cher Forum
J'aimerais afficher les données de ma table dans mon listbox mais la 11e colonne pause problème
Comment m'y prendre ?

 

[VIARD]

Bonsoir @patrick @job75

Ce prog. tourne depuis une dizaine d'année. pas de souci.
Erreur de jeunesse pour ces défauts.
Toutefois vos remarques sont fondées et corrections ok.
juste pour montrer que l'on dépasse les 10 colonnes.

Salutation à tous et bonne nuit
Jean-Paul

 

[VIARD]

Bonjour à toutes et tous

En fait j'ai continué mes manips sur la ListBox, la largeur des colonnes posaient problème.
et puis 25 colonnes ça fait long, donc l'idée que beaucoup ont eu sur le site et ailleurs,
c'est de récupérer la largeur de la colonne "Feuil" pour l'appliquer à la ListBox, ainsi peu importe la largeur
de la colonne feuil elle sera recopiée moyennant d'ajuster un coefficient (1,1 à 1,2).

Sub Affichage_Couple_Final()
Dim i%, f As Worksheet, cw$

Set f = Sheets("Feuil7")
    With ListBox4
        cw = ""
        .RowSource = "C3:AA6" '
        .MultiSelect = fmMultiSelectMulti
        .ColumnCount = f.[C3:AA6].Columns.Count '25
'---- récupère la largeur des colonnes Feuil pour l'appliquer aux colonnes ListBox -----
        For i = 1 To f.[C3:AA6].Columns.Count
            cw = cw & f.[C3:AA6].Columns(i).Width * 1.18 & ";"
        Next i
        .ColumnWidths = cw
        .Height = 42
        .Width = 580
    End With
End Sub

Et merci à l'intervention de @job75 et @patrick
A+ Jean-Paul

 

[patricktoulon]

Bonjour
c'est 1.25 et non 1.18 et tu verra que ce nombre ressort beaucoup en vba excel
et puis par pitié

.list=[C3:AA6]

utiliser rowsource en vba est absurde selon moi

 

[job75]

Bonjour VIARD, patricktoulon,

c'est 1.25 et non 1.18 et tu verra que ce nombre ressort beaucoup en vba excel
et puis par pitié

.list="C3:AA6"

Avec ça on aura à tout coup un bug mais on a pitié.

Edit : .list=[C3:AA6] ne va pas non plus il faut évidemment .list=[C3:AA6].Value

Pour ce qui est de l'utilisation de RowSource mes posts #7 et #10 sont clairs.

A+

 

[VIARD]

Re Job, Patrick

Désolé, mais le coefficient à 1.2 ça ne marche pas chez moi.

Et puis le RowSource qu'a t'il de moche ...

A+

 

[patricktoulon]

re
il n'a rien de moche
mais dis moi quelle est l'utilité d'utiliser rowsource qui bride une listbox car en fonctionnement elle est sensée ne peut plus être modifiable
autant l’inscrire en dur dans les propriétés

 

[VIARD]

re Patrick
Ok, donc manque de souplesse.
je verrai à l'usage.
A+

 

[Hervé]

Salut 🙂

je rejoins patrick

on/ vieux con qui parle
maitre Ti et thierry@ entres autres, mon souvent repris pour éviter l'utilisation de rowsource, pouvant créer des bug bien après leur initialisation, ce type de code me fait peur :

Private Sub UserForm_Initialize()
ListBox1.RowSource = "a1:a10"
End Sub
Private Sub CommandButton1_Click()
ListBox1.Clear
End Sub

off/vieux con qui part

a plus