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

Bonjour le forum,

C'est bon, on m'a répondu et voici le code:

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 

Bonne journée

Rechercher des sujets similaires à "afficher textbox fonction listbox"