Afficher textbox en fonction d'une listbox

Version imprimable

15/04/2014, 11h15
Sebphyto

Afficher textbox en fonction d'une listbox

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

Citation:

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:

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.....

16/04/2014, 14h48
Sebphyto

Re à tous,

C'est bon pour moi

Merci encore