IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

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

Macros et VBA Excel Discussion :

Ajouter nom de colonne ListBox depuis un RecordSet [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Développeur UNIFACE, C, C++, C#, Java
    Inscrit en
    Janvier 2012
    Messages
    71
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Développeur UNIFACE, C, C++, C#, Java
    Secteur : Santé

    Informations forums :
    Inscription : Janvier 2012
    Messages : 71
    Par défaut Ajouter nom de colonne ListBox depuis un RecordSet
    Bonjour,
    Le but de mon programme est d'afficher une liste d'utilisateurs depuis une requêtes SQL (Serveur Oracle 11GR2)
    Sur ce point, aucun problème j’exécute ma requête, elle s'affiche bien dans ma ListBox, mais c'est un peu brouillon.

    J'essaye de trouver un moyen afin d'afficher le nom de mes colonnes en base, dans des colonnes de la listBox afin que les données soient rangées.
    Je récupère le nom de mes colonnes en base de cette façon :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     List.AddItem Rs_Oracle.Fields(0).Name
    Les noms de colonne s'affichent, mais sur la première ligne, or le but c'est vraiment d'acoir ce type de ListBox :

    Nom : ajuster_colonne.gif
Affichages : 2433
Taille : 9,6 Ko


    Une idée ?

    Merci d'avance !

  2. #2
    Membre éprouvé
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Septembre 2011
    Messages
    112
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2011
    Messages : 112
    Par défaut
    Bonjour,

    cf ici http://silkyroad.developpez.com/VBA/...serForm/#LII-G

    ColumnHeads ne fonctionne pas avec List ni AddItem. Il faut passer par RowSource, et donc par des données sources sur une feuille de calcul...

  3. #3
    Membre confirmé
    Homme Profil pro
    Développeur UNIFACE, C, C++, C#, Java
    Inscrit en
    Janvier 2012
    Messages
    71
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Développeur UNIFACE, C, C++, C#, Java
    Secteur : Santé

    Informations forums :
    Inscription : Janvier 2012
    Messages : 71
    Par défaut
    Bonjour letienne,

    merci pour ta réponse, effectivement RowSource permet d'avoir des colonnes depuis une feuille de calcul mais mes données sont tirées d'une requête et non d'une feuille, à moins de mettre sous forme de tableau le résultat de ma requête pour après l'ajouter dans la listBox.. c'est beaucoup de manip pour peu..

    Le RowSource ne peux pas prendre le résultat d'une requête ? (je réfléchis à "haute voix" je fait mes recherches en parallèle)
    du genre ListBox1.RowSource = Rs_Oracle.Fields(0).Name c'est une instruction absurde mais c'est le moyen le plus simple pour me faire comprendre

    Ou peut être utiliser le contrôle ListView avec la référence Common Controls Visual Basic 6.0...

  4. #4
    Membre éprouvé
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Septembre 2011
    Messages
    112
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2011
    Messages : 112
    Par défaut
    Je ne connais pas d'astuce, mais il y en a peut être une
    En général je me contente de mettre des labels au dessus de la ListBox, ou utiliser une autre listbox juste pour les en-têtes. C'est sûr que ce n'est pas optimal mais bon.

    Letienne

  5. #5
    Membre confirmé
    Homme Profil pro
    Développeur UNIFACE, C, C++, C#, Java
    Inscrit en
    Janvier 2012
    Messages
    71
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Développeur UNIFACE, C, C++, C#, Java
    Secteur : Santé

    Informations forums :
    Inscription : Janvier 2012
    Messages : 71
    Par défaut
    J'ai finalement opté pour une ListView, beaucoup plus simple d'utilisation pour les données SQL !!

    voici un extrait du code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    Dim unNombreDeChamps As Integer
    Dim LstItem As ListItem
    Dim Entete As ColumnHeader
    Dim uneLargeur As Integer
    Dim i As Integer
     
    ...
    ...
    ...
     
    Rs_Oracle.Open RequeteSQL, connexion
     
     
     
        lst_data.ListItems.Clear
        lst_data.ColumnHeaders.Clear
        uneLargeur = lst_data.Width
        unNombreDeChamps = Rs_Oracle.Fields.Count
     
     '****** Création des titles ******
               For i = 0 To Rs_Oracle.Fields.Count - 1
     
                    Set Entete = lst_data.ColumnHeaders.Add()
                    Entete.Text = Trim(Rs_Oracle.Fields(i).Name & "")
                    Entete.Width = uneLargeur / (unNombreDeChamps + 0.25)
                Next
               i = 1
     
     
            '****** Chargement des enregistrements
                While Not Rs_Oracle.EOF
                    Set LstItem = lst_data.ListItems.Add(1, , Trim(Rs_Oracle(0) & ""))
                    For i = 1 To Rs_Oracle.Fields.Count - 1
                        LstItem.ListSubItems.Add i, , Trim(Rs_Oracle(i) & "")
                    Next
                    Rs_Oracle.MoveNext
                Wend
     
         If Not Rs_Oracle Is Nothing Then
            If Rs_Oracle.State = adStateOpen Then
                Rs_Oracle.Close
             End If
           Set Rs_Oracle = Nothing
       End If
     
         lst_data.View = lvwReport

    ne pas oublier : lst_data.View = lvwReport pour l'affichage en détail (j'ai ramé une heure pour cette ligne...)

    et ne pas oublier aussi d'ajouter la library : Microsoft Visual Basic 6.0 Common Controls (dispo ici)

  6. #6
    Invité
    Invité(e)
    Par défaut
    Bonjour,
    Indépendamment de ce qui a été dit!

    lst_data.list=Application.WorksheetFunction.Transpose(Rs_Oracle.getrows)

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 1
    Dernier message: 04/01/2012, 17h12
  2. Réponses: 1
    Dernier message: 09/08/2011, 16h28
  3. [Toutes versions] Nom de colonnes Eviter le décalage lors d'un ajout de colonne.
    Par n0vocaine dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 15/07/2011, 15h55
  4. Réponses: 1
    Dernier message: 21/01/2011, 15h17
  5. [VBA Excel] Listbox, nom des colonnes et couleur des lignes
    Par Tutures dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 19/03/2008, 16h24

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo