[VBA-A] Pb avec for each et listbox

Version imprimable

Bonjour,

je poste dans ce forum, je pense que c'est plus un problème VBA que Access.

Je cherche à désactiver une série de listbox et je pensais utiliser la fonction for... each, mais je n'arrive à rien.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Dim lstBoite As ListBox For Each lstBoite In listboxes 'C'est ici que ça bloque !! With lstBoite If cmbAffaires <> "" Then .Enabled = True .Requery Else .Enabled = False End If End With Next lstBoite
J'ai vu que souvent, on faisait une boucle sur tous les controles et si le controle était une listebox alors exécution du code.
Il n'y a pas moyen de boucler seulement sur les listbox ?

Merci,

Jean-Marc

28/05/2006, 20h40
jmfmarques

listboxes est-elle une collection sous VBA ?
Non n'est-ce-pas ? alors... pourquoi l'as-tu écrit ?;)

teste un peut ceci, il devrais marche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
dim lstbox as control
 
for each lstbox in me.controls
    if typeof lstbox is listbox then
              With lstBoite
            If cmbAffaires <> "" Then
                .Enabled = True
                .Requery
            Else
                .Enabled = False
            End If
        End With
   end if
next lstbox

PS: ce dode fonctionne est de VB6 a toi de le traduire

29/05/2006, 19h40
OtObOx
OK, merci, ca revient à peut près au code que je connais... donc, apparamment, ce n'est pas possible ne boucler que sur des listbox :?

Citation:

listboxes est-elle une collection sous VBA ?
Non n'est-ce-pas ? alors... pourquoi l'as-tu écrit ?:wink:

PASSSSSSKEUHHH ! :lol:
En fait, c'était pour faire une analogie, un exemple avec le truc qu'on retrouve partout et que je voulais adapter qu'aux listbox :
Code:

1 2 3 4 5 dim ctl as control for each ctl in me.controls ... next ctl
kenavo,

Jean-Marc, :oops: de poser des questions débiles et de chopper des tags "très mauvais" :roll: