Remplir un combobox à partir d'un champ ACCESS

Bonjour
Je débute sous excel 2007 et j'ai un souci pour remplir mon combox.
Je souhaiterai récupérer à partir d'une table access un champ de cette table pour remplir mon combobox.
J'arrive à remplir mon combobox avec une liste "en dur" du style

Code:

---

1 2 3

FIRMS.AddItem "4" FIRMS.AddItem "5"

---

Mais je ne parviens pas à remplir le combobox avec une table acces, ou bien même une plage d'une autre feuille

Code:

---

1 2	FIRMS.AddItem Sheets("FICHE EN VALEUR").range("A2:A5").Value

---

ne fonctionnant pas.
Etant débutant en VBA....
Merci d'avance

Bonjour,
tu ne choisis pas le plus simple pour débuter, mais ce n'est pas impossible.
Une approche simple consiste dans un premier temps à récupérer les données de ta table dans une feuille de ton classeur, une méthode dans la FAQ ici : http://excel.developpez.com/faq/?pag...ortTableAccess.

ensuite si les données sont par exemple dans le colonne A de ta nouvelle feuille qu'on appellera Feuil1 (A1=entête donc donnée en A2)

Code:

---

1 2 3 4

derlign = Sheets("Feuil1").Range("A65000").End(xlUp).Row For i = 2 To derlign Me.ComboBox1.AddItem Range("A" & i).Value Next

---

.

Tu peux parcourir aussi cet excellent tutos sur la communication entre Access et Excel :http://cafeine.developpez.com/access/tutoriel/excel/

tout d'abord merci
Maintenant j'ai un autre souci
Voici mon code exact

Code:

---

1 2 3 4 5 6 7

Dim derlign As Integer Dim i As Integer derlign = Sheets("FICHE EN VALEUR").range("A15").End(xlUp).Row For i = 2 To derlign FIRMS.AddItem range("A" & i).Value Next i

---

J'ai supposé que derlign était un integer car on cherche la dernière ligne.
Cependant, rien ne s'affiche.
Pourtant, si on suit l'algo, effectivement on devrait avoir un truc.
on cherche la dernière ligne.
Pour 2 à la dernière ligne, ajouter au combobox FIRMS la valeur de "A2" à Adernièreligne....
Merci d'avance

effectivement derlign peux-être un Integer.

essaye en remplaçant :

Code:

---

FIRMS.AddItem range("A" & i).Value

---

par:

Code:

---

FIRMS.AddItem Sheets("FICHE EN VALEUR").range("A" & i).Value

---

Bonjour.

rvtoulon avait proposé

Code:

---

derlign = Sheets("FICHE EN VALEUR").range("A65000").End(xlUp).Row

---

et tu as fait

Code:

---

derlign = Sheets("FICHE EN VALEUR").range("A15").End(xlUp).Row

---

Du coup, tu as peut-être derligne = 0, ce que tu peux vérifier en exécution pas à pas.

Pour être bien sûr

Code:

---

derlign = Sheets("FICHE EN VALEUR").range("A" & Application.Rows.count).End(xlUp).Row

---

PGZ

Ca marche !
Alors en fait, je me suis mis sur Excel et VBA un peu (beaucoup) par obligation car ma femme devait faire un truc et "toi tu es informaticien, tu comprends ces choses là" sachant que je suis développeur PHP...
Bref, elle avait mit 2 fois la base de donnée (donc de A1 à A15 et de A7 à A22). Je ne sais pas pourquoi, mais bon.
Bref, ça marche avec les 2 méthodes, j'ai supprimé la deuxième base et fait un FIRMS.clear au début pour nettoyer tout ça...
Merci beaucoup !