Discussion :

[bipbip2006]

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 :

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

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 :

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

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

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

[rvtoulon]

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 :

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

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/

[bipbip2006]

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

Code :

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

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

[rvtoulon]

effectivement derlign peux-être un Integer.

essaye en remplaçant :

Code :

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

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

par:

Code :

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

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

[pgz]

Bonjour.

rvtoulon avait proposé

Code :

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

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

et tu as fait

Code :

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

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 :

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

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

PGZ

[bipbip2006]

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 !