Discussion :

[soad029]

Salut tout le monde !!

Bon.. rien ne va plus, ça fait depuis plus de deux heures que je cherche comment mettre des checkbox dans une listbox, même google refuse de m'aider.

Il me semble que dans le passé un listbox.style = checkbox était bon, mais sous Access 2003 il ne reconnait pas cette méthode...

Quelqu'un voit t'il comment faire ?

d'avance un grand merci, et bonne journée !

[stéphane_ais2]

Bonjour,

à priori je ne vois pas comment faire appliquer un style chkbox dans une zone de liste et l'aide d'Access n'est pas plus prolixe sur le sujet...
tu dois pouvoir cependant si le champ source de la valeur à afficher est un champ de type Oui/Non retrouver dans la zone de liste une chkBox...
à vérifier...

SE

[soad029]

Salut stéphane et merci pour ta réponse !

Ma liste affiche des marques en faites, mais je me souviens que sur VB6 un p'tit listBox.style = checkbox marchait, c'est fou que sous access 2003 ont ai plus la possibilité de mettre des checkbox devant les lignes...

[Flo4594]

bonjour,

j'ai un cas similaire dans une de mes liste (une liste de résultats). je fais appartaitre mes enregistrements dans la liste, et j'aimerais pouvoir cocher la case à cocher des enregistrements que je veux.
Actuellement, c'est de la forme Oui/Non, et je ne peux pas le modifier directement dans la liste.

Est ce que c'est le meme problème que tu as soad029 ?

[soad029]

Bienvenue au club Flo !

Moi c'est pareil, j'ai une liste de marques et j'aimerai cocher celle que je veux mais je ne sais pas comment mettre de case à cocher dans ma liste...

Il est où notre sauveur ??

[argyronet]

Bonjour,

Ce type de contrôle avec cette propriété est dispo dans VB6 ou VBA
XL/Word/PPoint mais pas dans Access
Si vous avez Office 2000 par exemple, il vous suffit de faire référence à
FM20.DLL et sur le formulaire en question, posez un contrôle Microsoft Form
2.0 Listbox nommé dans l'exemple lstTest.
Une fois cela fait, poser un bouton de commande nommé cmdShowContent et
écrivez (copiez) ce code puis passez en mode formulaire...

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
' ***** Begin bloc *****
Option Compare Database
Option Explicit
 
Private Sub Form_Load()
Const fmLIST_STYLE_OPTION As Integer = 1
Const fmMULTI_SELECT_SINGLE As Integer = 0
Const fmMULTI_SELECT_MULTI As Integer = 1
Const fmMULTI_SELECT_EXTENDED As Integer = 2
 
Dim I As Integer
Dim oCtl As Object
 
  Set oCtl = lstTest.Object
  With oCtl
    .ListStyle = fmLIST_STYLE_OPTION
    .MultiSelect = fmMULTI_SELECT_MULTI
    For I = 1 To 10
      .AddItem "Valeur " & Trim(str(I))
    Next
  End With
  Set oCtl = Nothing
End Sub
 
Private Sub cmdShowContent_Click()
Dim oCtl As Object
Dim strContent As String
Dim I As Integer
Dim N As Integer
 
  Set oCtl = lstTest.Object
  For I = 0 To oCtl.ListCount - 1
    If oCtl.Selected(I) = True Then
      strContent = strContent & oCtl.List(I) & vbCrLf
    End If
  Next
  MsgBox strContent
 
End Sub
' ***** End bloc *****

A vous ensuite d'enrichir le contenu de la liste, ceci étant un simple
exemple.

[Flo4594]

J'avais dejà lancer un post la-dessus il y a une ou deux semaines, mais personne ne m'a donné des infos.

la seule alternative que j'ai trouvé, c'est d'ouvrir un formulaire au Double-Clic de l'enregistrement choisi. Dans ce formulaire, j'ai mis ma case à cocher.
En faisant comme ca, ca marche, mais c'est vraiment laborieux à faire, surtout quand tu as 15-20 enregistrements à choisir.

Pour le moment, j'ai pas de solution, mais si qqn en a une, qu'il hesite pas à se mannifester.

[soad029]

J'ai trouvé :

Fait un clic droit sur ta listbox, propriété :
listStyle : option
MultiSelect : Multi

Voilà, bon courage !

[EDIT] Merci pour ton code argyronet, ça va bien m'aider pour le traitement des cases cocher !

[Flo4594]

c'est peut etre sous on nez, mais je ne trouve pas

listStyle : option
MultiSelect : Multi

c'est bien une zone de liste que tu as???

est ce que tu as insérer le code donné par argyronet? Si oui, je ne vois pas où le copier, et surtout, quel est l'interet d'un bouton à cet endroit?

[soad029]

Non non non, c'est une listBox, avec une zone de liste je sais pas comment on fait...

J'ai copié juste la fonction qui permet d'afficher les cases que tu as cochés (ça marche super bien d'ailleurs) mais son code fait pareil que ce que j'ai écris plus haut,il inialise les propriétés, insère des valeurs dans la liste et affiche les lignes dont les cases ont été sélectionnées.

[Flo4594]

ok, donc on est pas dans la meme situation.

et là, je ne vois pas comment faire.

Merci quand meme, et bon courage pour ta BD
A+

[soad029]

Tu ne peux pas utiliser une listBox plutot ? Car elle m'a l'air pareil qu'une zone de liste.

[argyronet]

Vous en êtes où ???

Argy

[Flo4594]

toujours au meme point.

je ne sais pas si il y en a une, mais une ListBox et une zone de liste sont pareil pour moi. Or, je ne trouve pas ce que soad 029 disait.

Du coup, je n'ai pas avancé depuis tout à l'heure.

p.s: pour info, voici l'allure de mon formulaire. c'est la colonne 'Sélection' que j'aimerai aficher autrement et pouvoir modifier directement.

[argyronet]

Ben chez moi, ça marche...
Qu'as tu fait pour que ce ne soit pas possible ?
Regarde : (bon c'est basic mais...)


Argy

[Flo4594]

Bonjour Argy,

D'abord, merci de ton aide, mais ce ne sont pas ces cases à cocher.
Mon problème est justement là: elles n'apparaissent pas sous forme de case à cocher, mais sous la forme Oui/Non.

je l'ai entouré sur le fichier joint.

Merci d'avance pour ton aide.*

Flo

[argyronet]

Ah, je n'avais pas compris ta requête alors ou bien tu t'es mal exprimé...
Bref, le principe est quasiment le même à la chose près que la manipulation des colonnes dans un Microsoft Form 2.0 Listbox est assez farfelue et assez inadaptée pour ce que tu veux faire mais c'est possible.
Je te précise que c'est bien une bonne prise de tête pour le résultat escompté.
En toute sincérité, envisage le sous-formulaire comme solution.
C'est autrement plus souple, plus rapide et facile à mettre en oeuvre.
Là, tu pourras mettre tes cases à cocher sans problème.
Maintenant, si tu veux vraiment un ListBox... je peux te guider...

Argy

[Flo4594]

j'accepte l'aide avec plaisir.

En fait, j'arrive à la fin de ma base de données, c'est pourquoi j'aime autant conserver ma ListBox si c'est possible. Ca me derange un peu (pour rester poli) de tout recommencer avec un formulaire, d'autant plus que cette ListBox me conduit à d'autres formulaires quand je clique dessus (un formulaire résumant les coordonnées de l'entreprise du produit correspondant), donc j'aime autant garder la ListBox.

Si tu as la solution pour faire ca, je veux bien l'essayer.

[argyronet]

Bon en fait, tu n'es pas parti, selon moi, pour viser la simplicité.
Il faut être conscient que la solution du sous-formulaire où, tu dis :

de tout recommencer avec un formulaire, d'autant plus que cette ListBox me conduit à d'autres formulaires quand je clique dessus

reste pourtant la meilleure.
Dans l'absolu, ce que tu veux faire est réalisable non pas avec un ListBox car le contrôle ne le permet pas mais avec un ListView.
Donc, tu devras également tout recommencer.
En choississant le sous-formulaire, non seulement tu peux faire tout ce que tu veux mais en plus tu en as montre en main pour 5 minutes à le contruire même s'il tu as besoin d'établir des liens externes vers d'autres formulaires.
Par ailleurs, le ListBox avec les cases à cocher implique la mise en surbrillance des lignes lorsque la propriété Selected est à True ce qui est loin d'être élégant.

Argy

[Flo4594]

ca peut paraitre bizar ma demande, mais c'est pourtant bien ca que j'aimerai faire.

Est ce que tu aurais le code (enfin je suppose que oui, parce que tu l'as fait) pour que ma zone de liste puisse ressembler à celle que tu as mis en fichier joint???

Ce serait sympa.

A+
Flo