Discussion :

[Lola21]

Bonjour,

Je suis actuellement en train d'essayer de créer un état à partir d'un formulaire qui contient des listes déroulantes, des listes non déroulantes à choix multiples, des cadres de texte et des groupes d'option.

J'arrive à afficher correctement le contenu des listes déroulantes (http://www.developpez.net/forums/sho....php?t=176204).
J'arrive également à faire afficher dans mon état le contenu des listes non déroulantes, à sélection multiple.
Cependant j'aimerai faire apparaître uniquement les choix réalisés par l'utilisateur dans le formulaire.

Dans les propriétes de la liste de l'état, j'ai mis :
- dans "Source du contrôle" :

Code :

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

=[Formularios]![Prueba]![B_desc].Column(0)

où Prueba est le nom de mon formulaire, B_desc le nom de mon champ avec le numéro de colone dans la table correspondante, t_B.

- dans "Source données" :

Code :

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

SELECT [t_B].[B_desc], [t_B].[B_id] FROM t_B;

Je ne vois pas du tout comment faire en VBA pour affiche uniquement le ou les sélections réalisées par l'utilisateur

Est-ce que quelqu'un aurait une idée du code à mettre ou de la manip à réaliser ?

Merci beaucoup d'avance

[Lola21]

Bonjour à nouveau !

Cette fois, ça y est, ça marche !! Je suis arrivée à résoudre mon problème toute seule. Je marque ma solution au cas où ça soit utile pour d'autres ayant rencontré le même problème et j'élimine mes posts inutiles précédents.

Le contexte :

J'ai un formulaire et un état. Dans le formulaire, l'utilisateur réalise différents choix sur diverses listes, en particulier des listes à sélection multiple. Quand il a terminé, il dispose d'un bouton de commande pour visualiser le formulaire sous forme d'état (il existe un 2ème bouton pour imprimer).

L'objectif :

Faire afficher uniquement les choix réalisés dans une liste à sélection multiple d'un formulaire (et pas toute la liste...)

Solution :

1- Faire générer une liste de valeurs:

Dans le générateur de codes du formulaire, on écrit le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub AllSelectedData()
    Dim frm As Form, ctl As Control
    Dim varItm As Variant, intI As Integer
 
    Set frm = Forms!Prueba
    Set ctl = frm!zona_desc
    For Each varItm In ctl.ItemsSelected
        For intI = 0 To ctl.ColumnCount - 1
            Debug.Print ctl.Column(intI, varItm)
        Next intI
        Debug.Print
    Next varItm
End Sub

où Prueba est le nom de mon formulaire et zona_desc le nom de ma liste à sélection multiple.

2-Appeler cette liste de valeur depuis l'état

Ensuite, dans les propriétés de l'état, onglet Évènement, ligne, au moment d'Ouvrir, je marque le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Report_Open(Cancel As Integer)
 
    Dim frm As Form, ctl As Control
    Dim varItm As Variant, intI As Integer
 
    Set frm = Forms!Prueba
    Set ctl = frm!zona_desc
 
    Me.zona_desc.RowSource = ""
    For Each varItm In ctl.ItemsSelected
        Me.zona_desc.RowSource = Me.zona_desc.RowSource & ctl.Column(1, varItm) & ";"
    Next varItm
End Sub

où le numéro de la colonne correspond à la colonne -1 que l'on veut faire afficher.

Ensuite dans les propriétés de la liste de l'état, onglet Données, je marque dans Type d'origine de la rangée Liste de valeurs


Voilà, normalement ça marche !! En tout cas moi j'ai ce qu'il faut !! J'espère n'avoir rien oublié.
J'espère que j'ai été assez claire et que ça va servir à d'autres !!

Bon courage !!