Discussion :

[Sebphyto]

Bonjour le forum,

Toujours dans la suite de mon projet, j'ai une question à vous posez, en sachant que j'ai effectué des recherches non concluant, donc je reviens vers vous.

Voilà, j'ai une listbox avec plusieurs critères (et multiselect), et j'aimerai qu'il m'affiche en fonction du nombre de sélection, le même nombre de textbox sur mon userform, afin que je puisse saisir une valeur avec le "label" des critères sélectionnés s'affichant en face de chaque textbox. En sachant que sur mon userform, un espace est dédié à l'affichage de ces textbox.

Cela est-il possible?

Merci d'avance

Et bonne journée

[jijie]

Toujours dans la suite de mon projet, j'ai une question à vous posez, en sachant que j'ai effectué des recherches non concluant, donc je reviens vers vous.

désolé mais suivi

mais voir ceci:

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
Option Explicit
 
Private Sub commandButton1_Click() 'bouton valider
    Dim i As Byte
    Dim Nb As Byte
 
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
        Nb = Nb + 1
        Me.Controls("Label" & Nb).Visible = True
        Me.Controls("Label" & Nb).Caption = ListBox1.List(i)
        Me.Controls("textbox" & Nb).Visible = True
 
        End If
    Next i
End Sub
 
Private Sub commandButton2_Click() 'bouton annuler
    Dim i As Byte
    Dim Nb As Byte
 
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
        Nb = Nb + 1
        Me.Controls("Label" & Nb).Visible = False
        Me.Controls("Label" & Nb).Caption = ""
        Me.Controls("textbox" & Nb).Visible = False
        Me.Controls("textbox" & Nb) = ""
        ListBox1.Selected(i) = False
        End If
    Next i
End Sub

Il faut que ton 1er label se nomme Label1 et ton 1er textbox se nomme Textbox1 et ainsi de suite.....

[Sebphyto]

Re à tous,

C'est bon pour moi

Merci encore