Remplir une zone de liste Excel avec une requête Access (problème)

Bonjour,

J'étais déjà venu sur ce forum pour le même problème et je ne retrouve plus mon ancien post.

Mon problème est énoncé dans l'intitulé du sujet. Sur le site, j'ai vu que ceci devait me permettre de le résoudre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub FillCombo() Dim db As DAO.Database Dim rec As DAO.Recordset curshname = ActiveSheet.Name Set db = DAO.OpenDatabase(ThisWorkbook.Path & "\Membres1.mdb", False, False) Set rec = db.OpenRecordset("SELECT NomFamille FROM Membres WHERE DepartOuRegionTravail = 'WA'", DAO.dbOpenSnapshot) For Each sh In ActiveWorkbook.Sheets(curshname).Shapes If sh.Type = msoFormControl And sh.Name Like "Drop*" Then sh.Select Do While Not (rec.EOF) Selection.AddItem rec.Fields(0).Value rec.MoveNext Loop Exit For End If Next sh rec.Close db.Close Set rec = Nothing Set db = Nothing End Sub

---

Cependant, j'éprouve quelques difficultées : pour la ligne "curshname = ActiveSheet.Name", VB me dit que la variable "curshname" n'est pas définie. Je décide alors de supprimer cette ligne et de remplacer "curshname" par un nom de feuille pour la suite du programme et j'ai un autre problème : la variable "sh" n'est pas définie. Quelqu'un pourrait-il m'aider si possible en m'expliquant brièvement en quoi consiste les grandes lignes de ce programme afin que je puisse le modifier à ma guise ?

Merci et bonne journée !

ben, déclare tes variables, non?

C'est pas comme ça qu'on les déclare ?

Je débute en Visual Basic et j'ai des programmes ou j'écrivais juste "i = 1" et il ne me posait pas de problème de déclaration de variable.
Elles se déclarent où et comment les variables ?

juste à tout hasard, as-tu dans ton code un "Option Explicit" en début?

Pour déclarer une variable:

Citation:

---

Dim MaVar As Type

---

Citation:

---

Envoyé par Asdorve

juste à tout hasard, as-tu dans ton code un "Option Explicit" en début?

---

Oui pourquoi ?

OK je viens de comprendre. Le OPTION Explicit dit qu'il faut déclarer les variables de manière explicite.

Je l'ai enlevé et maintenant, je n'ai plus d'erreur mais mon programme ne fait rien...

le fait d'avoir Option Explicit t'oblige à déclarer toutes tes variables, si tu en oublies une, il te renvoit une erreur comme celle que tu as reçu.

Si tu déclare correctement ta variable curshname ça devrait rentrer dans l'ordre.

Essaye (momentanément) de mettre le option Explicit en commentaire et relance .

Citation:

---

Envoyé par Tontorise

OK je viens de comprendre. Le OPTION Explicit dit qu'il faut déclarer les variables de manière explicite.

Je l'ai enlevé et maintenant, je n'ai plus d'erreur mais mon programme ne fait rien...

---

fais du pas à pas et regarde ce qu'il se passe

Citation:

---

Envoyé par Tontorise

OK je viens de comprendre. Le OPTION Explicit dit qu'il faut déclarer les variables de manière explicite.

Je l'ai enlevé et maintenant, je n'ai plus d'erreur mais mon programme ne fait rien...

---

C'est pas une bonne idée de l'enlever. Chaque variable utilisée sans avoir été déclarée est automatiquement du type variant. Ce qui en fait des foure-tout. Il te sera difficile de gérer les erreurs originant d'un type de données incorect. De plus, un type Variant occupe plus d'espace mémoire que tout les autres types de données. Plus qu'un Currency, c'est tout dire! Un type variant peut contenir n'importe quoi (au risque de me répéter - n'ai-je pas déjà dit que c'était un foure-tout?) même un objet. Alors pourquoi occuper tant de mémoire quand on peut n'utiliser que la place nécessaire? En programmation, toujours se rappeler ce principe : Small is beautifull.

Bonjour,

J'ajouterais qu'en enlevant le "Option Explicit" non seulement tu gaspille de la mémoire et surtout tu peux te retrouver avec des programmes qui ne font rien...

Quelques part ce n'est pas toi qui est maitre de ton programme, alors il est logique d'arriver sur des dérives.


Si j'étais toi je mettrais Option Explicit et déclarerais toutes mes variables de la manière que te l'a conseillé Asdorve plus haut..


Cordialement

OK. Merci pour les renseignements. Je commence à mieux comprendre certaines choses maintenant. Le problème, c'est que j'ai repris le programme trouvé sur le site en y effectuant les modifications comme ci-dessous et je ne comprends pas tout, notamment cette partie la

Code:

---

1 2 3 4 5 6

For Each sh In ActiveWorkbook.Sheets("temp").Shapes If sh.Type = msoFormControl And sh.Name Like "Drop*" Then sh.Select Do While Not (rec.EOF) Selection.AddItem rec.Fields(0).Value rec.MoveNext

---

De plus, je ne vois pas non plus où on indique au programme l'endroit ou il doit créer la liste déroulante (feuille et cellule).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub FillCombo()   Dim sh As Object Dim db As DAO.Database Dim rec As DAO.Recordset Set db = DAO.OpenDatabase(ThisWorkbook.Path & "\generosite.mdb", False, False) Set rec = db.OpenRecordset("SELECT OD FROM OD", DAO.dbOpenSnapshot) For Each sh In ActiveWorkbook.Sheets("temp").Shapes If sh.Type = msoFormControl And sh.Name Like "Drop*" Then sh.Select Do While Not (rec.EOF) Selection.AddItem rec.Fields(0).Value rec.MoveNext Loop Exit For End If Next sh rec.Close db.Close Set rec = Nothing Set db = Nothing   End Sub

---

Citation:

---

Envoyé par zazaraignée

C'est pas une bonne idée de l'enlever.

---

c'est pour celà que j'ai dit:

Citation:

---

Essaye (momentanément) de mettre le option Explicit en commentaire et relance .

---

C'est une idée momentanément bonne alors :aie:

Tontorise : C'est bien que tu aies trouvé les boutons de mise en forme du texte dans l'édition de tes message. Mais le bouton pour mettre du code en évidence c'est celui-ci : http://www.developpez.net/forums/images/editor/code.gif. Essaie de l'utiliser la prochaine fois. ;)

Citation:

---

Envoyé par zazaraignée

Tontorise : C'est bien que tu aies trouvé les boutons de mise en forme du texte dans l'édition de tes message. Mais le bouton pour mettre du code en évidence c'est celui-ci : http://www.developpez.net/forums/images/editor/code.gif. Essaie de l'utiliser la prochaine fois. ;)

---

OK je ferais attention maintenant ;)

Comme je n'arrive pas à faire marcher ce programme, je me suis dit que le moyen le plus simple serait sûrement de récupérer les lignes que j'ai besoin avec une requête SQL et de les copier sur une feuille excel (ce que je sais faire) puis de créer une zone de liste avec les données récupérées dans la feuille. En sorte, ça reviendrait à faire la même opération en 2 étapes.
Quelqu'un pourrait-il me dire comment faire la deuxième étape ? Le nombre de ligne de données récupérées est inconnu (il se situera autour de 2100 lignes donc ce ne sera pas trop lourd).

Citation:

---

Envoyé par Tontorise

De plus, je ne vois pas non plus où on indique au programme l'endroit ou il doit créer la liste déroulante (feuille et cellule).

---

Sur une page (Form) tu prends, dans la boite des composants, un contrôle ListBox, tu le poses sur Form et tu la renomes Selection

Code:

---

1 2 3 4

Do While Not (rec.EOF) Selection.AddItem rec.Fields(0).Value rec.MoveNext Loop

---

A mon avis le code que tu as posé semble bon (avec les correctifs signalés).

Merci pour les informations. Cependant, le programme n'affiche plus d'erreur mais il ne fait rien. J'ai essayé d'ajouter "selection.show" à la fin du petit programme pour qu'il affiche la liste mais ça ne change rien. C'est sûrement un truc con qu'il faut faire mais je m'y connaît pas encore en Visual Basic.