[VB]Combobox initialisation au démarrage.

Version imprimable

Bonjour a tous,
Je vous solicite, aujourd'hui et je pense plus tard aussi car je suis en train de develloper un logiciel enfin bref,
Mon probleme est double:
le premier: Ma Combobox ne se met pas a jours au demarrage, en effet, je recupere les informations d'un fichier excel dans la combobox je met la colonne A du fichier excel
Le deuxieme : comment associer la valeur du champs sélectionner dans la combobox a la valeur correspondante a la meme ligne du fichier excel?

Je vous met mon code si vous pouvez m'aider je vous en serait tres reconnaissant!

fonction de ma combobox
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub NumeroRenvoi_Load() Dim n As Integer Dim objXL As Object ' déclaration d'un objet Set objXL = CreateObject("Excel.Application") ' Création de l'objet ' Ouverture de la feuille Excel objXL.Workbooks.Open FileName:="C:\test.xls" ' Copie des valeurs de la colonne A ' A partir de la case A1 et jusqu'a ce qu'il n'y ait plus de texte n = 1 Do While objXL.Range("A" & n) <> "" NumeroRenvoi.AddItem objXL.Range("A" & n) n = n + 1 Loop objXL.Workbooks.Close objXL.Application.Quit End Sub ------------------------------------------------------------------------------
En ce qui concerne le deuxieme probleme, je ne sais vraiment pas comment faire

Par avance merci

14/02/2006, 17h40
ouskel'n'or

C'est quoi NumeroRenvoi_Load ?
14/02/2006, 18h09
ept35

il sagit pour NumeroRenvoi de ma combobox que j'ai appellé comme cela

Désolé, mais je n'ai pas l'événement load pour les conbo (VBA97) je ne peux donc pas t'aider mais tu peux tester ça

Code:

1
2
    MaPlage = Range("A1:A15")
    ListBox5.List() = MaPlage

ou ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    Dim DernièreLigne, NoColonne, NoLigne, MonTableau()
    Dim ok As Boolean
    ReDim Preserve MonTableau(0)
    NoColonne = 1 ' ********** TU FIXES ICI LE N° DE COLONNE DE TES DONNÉES ********
    Cells(1, 1).Select
    DernièreLigne = ActiveCell.End(xlDown).Row  'DernièreLigneDeTesDonnées
    For i = 1 To DernièreLigne  'Lecture des cellules de la colonne NoColonne
        For j = 0 To k  'relecture du tableau
            ok = LTrim(LCase(Cells(i, NoColonne).Formula)) = LTrim(LCase(MonTableau(j)))
            If ok Then Exit For ' la donnée existe déjà, je sors
            k = k + 1
            ReDim Preserve MonTableau(k)
            MonTableau(k) = Cells(i, NoColonne).Formula
            Exit For
        Next j
    Next i
    For i = 1 To k
        ComboBox1.AddItem MonTableau(i)
    Next i

A adapter

A+

Salut ept35 et les autres
pour que ta Combo se charge au demarrage il faut mettre ton code dans le form_load de ta form VB

Comme la premiere donnée que tu charges dans ta combo est sur la ligne 1 de ta colonne Excel
Tu récupères ton ListIdex sur l'évènement clic de ta combo que tu mettras en style DropDownList et tu lui ajoutes 1 pour avoir le numéro de la ligne .
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub Form_Load() Dim n As Integer Dim objXL As Object ' déclaration d'un objet Set objXL = CreateObject("Excel.Application") ' Création de l'objet ' Ouverture de la feuille Excel objXL.Workbooks.Open FileName:="C:\test.xls" ' Copie des valeurs de la colonne A ' A partir de la case A1 et jusqu'a ce qu'il n'y ait plus de texte attente = DoEvents() 'Pour laisser le temp à Excel de s'ouvrir ! n = 1 Do While objXL.Range("A" & n) <> "" NumeroRenvoi.AddItem objXL.Range("A" & n) n = n + 1 Loop objXL.Workbooks.Close objXL.Application.Quit End Sub
Code:

1 2 3 Private Sub NumeroRenvoi_Click() Label1.Caption = NumeroRenvoi.ListIndex + 1 End Sub
Dis nous
@+

15/02/2006, 01h47
zazaraignée

Salut

Ouaip! Le Form_Load, c'est bien pratique. Mais y'a certains trucs qui n'y fonctionne pas toujours bien pour des raisons d'ordre d'exécution ou de création, enfin, sais plus. Si c'est le cas, essaie l'événement Form_Initialize.
15/02/2006, 08h07
ept35

cela se charge bien au demarrage merci, mais maintenant, comment associer a mon label la valeur de la ligne selectionné pour la collonne B de mon fichier excel

ex je selectionne un nom dans ma combobox et je veux sont numero dans le label

exemple dans mon fichier excel

Colonne A colonne B
andre 0628954233255
sylvain 0478258978778
....

Merci pour tout
15/02/2006, 08h18
ept35

Dsl je m'en suis sorti, j'ai d'autre probleme, different, doit je faire un nouveau poste ou bien continuer dans celui la?

Merci a tous pour votre aide precieux