Discussion :

[Carabistouilleur]

Bonjour.
Je voudrais que l'utilisateur puisse faire des choix sur le principe de le Listbox suivant :


j'ai déjà codé la partie qui permet de remplir la liste box de gauche, maintenant j'essaye de coder les actions engendrées par l'appui sur le bouton de flèche vers la droite.
J'ai autorisé les sélections multiples dans les propriétés de la list box de gauche, mais quand j'essaye le code j'ai ce message d'erreur:



... Peut être la sélection n'a pas été prise en compte, ou le type de list box n'est pas le bon ,j'ai utilisé celui-ci :



... À noter que cette list box ne comporte que ces événements:



Merci de m'éclairer.

[tee_grandbois]

bonsoir,

j'ai déjà codé la partie qui permet de remplir la liste box de gauche, maintenant j'essaye de coder les actions engendrées par l'appui sur le bouton de flèche vers la droite.
J'ai autorisé les sélections multiples dans les propriétés de la list box de gauche, mais quand j'essaye le code j'ai ce message d'erreur:

et nous crois-tu assez forts pour voir ce qui ne va pas sans montrer le code ?

... Peut être la sélection n'a pas été prise en compte, ou le type de list box n'est pas le bon ,j'ai utilisé celui-ci :

en effet, on peut faire cela avec une zone de liste (non déroulante) native d'Access

[Carabistouilleur]

... en effet, on peut faire cela avec une zone de liste (non déroulante) native d'Access

Bonjour tee_grandbois.
Après quelques péripéties j'y suis enfin arrivé, je résume (pour garder une trace, même si je sais que le sujet avait déjà été abordé dans d'autres discussions) :
J'ai utilisé une list box plus exactement une "zone de texte" non déroulante.
Dès qu'on importe ce contrôle, s'ouvre une boîte de dialogue qui demande de pointer sur des tables ou de définir une table, il faut annuler. Ensuite dans les propriétés/Données il faut mettre le champ suivant à cette valeur:



... Ce qui permet d'enrichir la zone de liste à partir d'un code VBA tel que celui-ci:

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
Sub RemplirListBoxSeb()
Dim oDb         As DAO.Database
Dim Lstbox      As Control
Dim tTable      As DAO.TableDef
 
'Affectation objet base
Set oDb = CurrentDb
Set Lstbox = Me.Controls("ListBoxWL")
'Parcours des tables WL de la base
For Each tTable In oDb.TableDefs
    If Left(tTable.Name, 2) = PREFIXE_WL Then
        Lstbox.AddItem (tTable.Name) 'Si je trouve une table WL je la rajoute dans la lisbox
    End If
Next
End Sub

Merci.
Au revoir, je clos la discussion.

[Carabistouilleur]

Désolé j’avais effectivement prévu de mettre le code mais j’ai oublié.

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
Sub PasserTableDroite()
Dim oDb         As DAO.Database
Dim Lstbox      As Control
Dim LstboxTo    As Control
Dim varItm      As Variant
 
 
'Affectation objet base
Set oDb = CurrentDb
'd objet listbox
Set LstboxTo = Me.Controls("ListBoxWLselect")
Set Lstbox = Me.Controls("ListBoxWL")
 
For Each varItm In Lstbox.ItemsSelected '!!!!!!!!ERREUR!!!!!!!!!!!
    MsgBox Lstbox.ItemData(varItm)
Next varItm
 
 
End Sub