[VBA-E]gérer une petite base de données

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

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

A+

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. :cry:
Merci

Ok, c'est plus clair :lol: 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:

---

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

---

Ensuite, tu fais pour chaque listbox ou par colonne

Code:

---

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+

Tu as mieux :

Code:

---

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)