Listbox et classeur fermé

[abtony]

Bonjour le forum,

j'ai beau retourné le sujet, mais je n'arrive pas a trouver la solution.

j'ai adapté trois fichier exemple pris sur le forum, et j'ai fait quelques modif, a savoir crée un userform avec combobox comme sur la feuille de home, les deux autres fichiers sont la base de donnée.

Mon soucis est d'afficher les données sur la listbox sur des colonnes differentes, car la ca met tout sur une seule colonne de la listbox.

merci pour votre aide !

 

[michel_m]

Re : Listbox et classeur fermé

Bonjour,

Dans cette vieille petite démo en PJ, on affiche des données de 3 colonnes(listbox à plusieurs colonnes) d'une feuille choisie (combo) dans un classeur fermé parmi d'autres (combo).
(Tu as aussi la solution des listviews.)

Pour mémoire

 ...
Set requete = source.Execute("SELECT * FROM `" & onglet & "$" & zone & "` WHERE '" & champ & "' <>"""";")
   If requete.EOF Then ' astuce d'après @+Thierry xld
        MsgBox "Plage vide..."
        Exit Sub
    End If

With requete
    .MoveFirst
    Do While Not .EOF
        Tableau(0, X) = .Fields(0)
        Tableau(1, X) = .Fields(1)
        Tableau(2, X) = .Fields(2)
        X = X + 1
        ReDim Preserve Tableau(2, X)
        .MoveNext
     Loop
    End With
    
' -------------------- affectations des valeurs du tableau à la liste de données (Michel_xld)
Me.LbxDonnees.Column() = Tableau
Me.tbx_nbre.Value = " Nombre d'éléments dans la liste: " & X + 1
'fermeture des connexions
requete.Close
source.Close
End Sub

Peut-être que cela t'aidera.

 

[abtony]

Re : Listbox et classeur fermé

bonjour michel_m,

cela ne m'aide pas, mais cela me sauve et répond parfaitement a ma demande.

je vais pouvoir l'adapter a mon projet

Un Grand Merci

 

[abtony]

Re : Listbox et classeur fermé

une question quand mème,

mon classeur est toujours le meme, comment faire pour qu'il soit activer par default a l'ouverture de l'userform ?

autre question, comment ajouter des colonnes ? j'en ait besoin de 8 en tout sur la listbox ?

je cherche et je vois pas du tout

merci