Discussion :

[YacineHib]

Bonjour à tous,

Aujourd'hui j'ai un problème lors de la création d'un nouveau formulaire :
En faites sur ma liste à choix multiple, j'aimerais recopier les valeurs sélectionnées (au nombre de 5) dans mes différents label (également au nombre de 5).

J'ai bien essayé plusieurs méthode telle que celle-ci dessous, mais les résultats sont inexistant.

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
Private Sub CommandButton1_Click()
Dim i As Integer
Dim a, b, c, d, e As String
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True And a = "" Then
    a = ListBox1.Selected(i)
    Else
    If ListBox1.Selected(i) = True And a <> "" Then
    b = ListBox1.Selected(i)
    Else
    If ListBox1.Selected(i) = True And b <> "" Then
    c = ListBox1.Selected(i)
    Else
    If ListBox1.Selected(i) = True And c <> "" Then
    d = ListBox1.Selected(i)
    Else
    If ListBox1.Selected(i) = True And b <> "" Then
    e = ListBox1.Selected(i)
    End If
    End If
    End If
    End If
    End If
Next
    Label1.Caption = a
    Label2.Caption = b
    Label3.Caption = c
    Label4.Caption = d
    Label5.Caption = e
End Sub

Je tient a préciser que toutes les valeurs de la liste sont des chaines de caractère.
Je vous remercie par avance pour votre aide.

[unparia]

Bonjour

Je tient a préciser que toutes les valeurs de la liste sont des chaines de caractère

Tu m'étonnes ... (une listbox ne peut contenir QUE des chaînes de caractères)
Pour le reste : tu ne sembles pas avoir compris la logique de If .. Then ... Else .. else ...
La première occurrence vérifiée fait que les autres vérifications ne sont pas faites .

[YacineHib]

Je t'avoue que cette "chose affreuse" que j'ai réalisé en dernier recours, je n'y croyais pas plus que ça, mais bon j'ai tenté quand même au cas où quelqu'un aurait une idée à partir de là. Enfin bref, j'ai essayé d'autres chose pour déjà en copier une seule, mais sans succès.

D'où la recherche et la demande d'aide sur le forum

Merci.

[unparia]

Je vais personnellement te répondre de cette manière et te laisser travailler :
Liminaire : nous ne savons pas si tes contrôles sont sur une feuille de calcul ou dans un userform.
Supposons qu'ils soient sur un userform :
- la collection controls contient tous les contrôles
- on peut se référer au label Label3 ainsi :

Code :

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

Controls("Label" & 3)

- Tes variables tremplin a, b, etc ... sont inutilement encombrantes
- commence par parcourir tous tes labels et efface leur contenu
- définis une variable n et initialise-la à 1
- parcours les articles de ta listbox et
----- chaque fois que l'un d'entre eux est sélectionné :
---------- donne sa valeur au label Controls("Label" & n)
---------- incrémente n de une unité .
Vas-y d'abord, s'il te plait..

[YacineHib]

Merci pour la réponse unparia,

C'était clair, je vais essayé de faire ce que tu a dis.

Bonne journée à toi.

[unparia]

J'ajoute ceci YacineHib :
dupliquer dans des labels ce qui existe déjà dans la listbox n'a aucun intérêt pratique réel.
Je suppose donc qu'il ne s'agit-là que d'un exercice.