VB6 - listbox et feuille excel

Question

Bonjour,

Je cherche &#224; remplir une listbox vb6 avec des donn&#233;es issue d'une feuille excel.
les donn&#233;es y sont organis&#233;es en colonnes, et le nombre d'enregistrements( de pers.)  varie r&#233;gulierement.
         | Nom | pr&#233;nom | date1 | date2 |  ..... etc
         
A partir de la selection faite dans la listbox, qui doit lister les noms, les informations corerspondantes ( prenom, etc) doivent s'afficher dans divers textbox.
Le classeur excel : C:\Program Files\Appli\BD.xls
La feuille excel : Noms
      
Voil&#224;. J'esp&#232;re avoir &#233;t&#233; assez clair. Si quelqu'un peut aider un d&#233;butant en d&#233;tresse ?

seboune76 · Answer

Il faut que tu utilise la fct additem ex:

list1.additem text1.text & "   " & text2.text
text1.text et text2.text sont les textbox que tu utilise pour recueillir tes infos sur vb.
pour effacer le contenu de ta listbox: list1.clear

J'esp&#232;re avoir &#233;clair&#233; ta lanterne!

bonne joun&#233;e

Seboune76

smilingjoe2 · Answer

Merci de ta r&#233;ponse,

Mon probl&#232;me avec le additem comme &#231;a c'est que ma liste de nom est inscrite en dure dans lo prog. Or elle peut varier. J'aimerais donc qu ema listbox --> liste de nom soit charg&#233;e &#224; partir du fichier excel &#224; chaque ouverture. ET c'est l&#224; que je bloque. J'arrive bien &#224; ouvrir un process excel mais ... rien de plus.

seboune76 · Answer

J'ai oubli&#233;, pour que toutes tes infos apparaissent en colonne il fo feinter: change le param&#232;tre column dans les param&#232;tres de ta listbox. Le probl&#232;me de ca c'est ke toutes les colonnes ont la m&#234;me taille, ca craint un peu les listbox mais bon...

apr&#233;s faut bidouiller avec des list1.additem "" car sinon toutes tes infos seront repartis en autant de colonnes que tu aura choisi mais elle vont se suivre dans ta listbox

ex:
nom1       prenom2    date3
nom2       prenom3
nom3       date1
pr&#233;nom1  date2

 au lieu de :
nom1       prenom1    date1
nom2       prenom2    date2
nom3       prenom3    date3

Seboune76

seboune76 · Answer

le truc c'est ke moi pour mon projet je suis justement en train de chercher des infos sur la transmission d'info entre excel et vb et je suis pas encore au point!

Bonne chance!

Seboune76

smilingjoe2 · Answer

oucha

smilingjoe2 · Answer

Plus que moi ... Donc merci de ton aide.
Pour l'instant j'en suis l&#224; : 

Private Sub Form_Load()
Dim oExcel As Excel.Application
Dim oWB As Excel.Workbook


Set oExcel = New Excel.Application
    Set oWB = oExcel.Workbooks.Open("C:\Program Files\AppliNeonat\BD.xls")



Dim lignefin As Integer
Dim PlageList As String


lignefin = oWB(Noms).Range("A65536").End(xlUp).Row
PlageList = oWB(Noms).Range("A2:A" & lignefin).Address
List1.AddItem (PlageList)
End Sub

Ca ne bug pas mais &#231;a ne marche pas non plus !

VB6 - listbox et feuille excel

6 réponses

Discussions similaires