Discussion :

[massilia80]

hello,
encore moi...
Comment peut on gérer avec excel et vba une base de données du style:
une table X comportant des champs string A, B, C et D;
une table Y comportant les champs E, F, G; etc
Je voudrais savoir l'endroit où je dois implémenter mes tables et comment.
Merci

[ouskel'n'or]

Hello,
Un peu plus de précisions sur ce que tu compte faire dans ces tables nous aiderait à t'aider

A+

[massilia80]

c'est a priori assez simple.
Je dois selectionner dans une zone de liste deroulable une de mes tables qui suivant celle choisi ma donnera acces à son contenu.
Par ex, si j'ai dans ma liste les tables A, B, C, D et que je choisi la B je voudrais faire apparaitre dans une autre liste deroulable les champs de cette table pour apres choisir l'un d'entre eux.
Si ce n'est pas clair dites le moi.
Merci

[ouskel'n'or]

Ok, c'est plus clair Mais pas complètement...
Où se trouvent tes listes ? Dans un userform ou dans une feuille de calcul ?
Dans un userform :
J'imagine que tu veux placer le contenu de ta colonne A dans listbox1
Tu recherches d'abord la dernière ligne renseignée de ta colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    DernièreLigne = Cells(65535, 1).End(xlUp).Row

Ensuite, tu fais pour chaque listbox ou par colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub UserForm_Initialize()
    DernièreLigne = Workbooks("Perso.xls").Worksheets("Feuil1").Cells(65535, 1).End(xlUp).Row
    For i = 1 To DernièreLigne
        LaForm.ListBox1.AddItem Workbooks("Perso.xls").Worksheets("Feuil1").Cells(i, 1).Value
    Next i
End Sub

J'ai mis ça dans Userform_Initialize mais tu peux le placer dans le code d'un Bouton_Clic...

A+

[ouskel'n'or]

Tu as mieux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    NoColonne = 1
    DernièreLigne = Workbooks("Perso.xls").Worksheets("Feuil1").Cells(65535, NoColonne).End(xlUp).Row
    LaForm.ListBox1.List = Workbooks("Perso.xls").Worksheets("Feuil1").Range(Cells(1, NoColonne), Cells(DernièreLigne, NoColonne))

A+

Edit
Vérifie, j'ai corrigé la deuxième ligne (NoColonne)