Discussion :

[Tontorise]

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 :

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

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 !

[Asdorve]

ben, déclare tes variables, non?

[Tontorise]

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 ?

[Asdorve]

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

Pour déclarer une variable:

Dim MaVar As Type

[Tontorise]

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

Oui pourquoi ?

[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...

[Asdorve]

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 .

[ProgElecT]

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 :

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

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).

[Tontorise]

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.