Remplir des txtbox a partir d’une listbox en VBA Excel

Question

Bonjour

Dans un form je souhaite que l’utilisateur puisse choisir dans une listbox jusquà 6 valeurs et que ces valeurs aillent alors remplis 6 listbox différents ( 1 à 6) mais je n’arrive à rien, ni à sélectionner plusieurs valeurs dans la list box ni par conséquent à remplis mes txtbox. Ma list box contient des numéros.

Merci pour votre aide

3Pom · Answer

Beh essai de mettre la propriété Multiselect de ton listbox à Extended pour voir.

rvw68 · Answer

Merci, je connaisais pas cette propriété.

rvw68 · Answer

Bonjour

Je n'arrive pas à remplis mes txt box, je fonctionne avec des if then .... mais ma selection ne remplis pas mes list box.
Je suis perdu je ne sais plus ou chercher.

Merci

3Pom · Answer

File la partie de ton code ki pose pbm et on vera

rvw68 · Answer

Voila mon code


Private Sub lststands_Click()

Dim i As Integer
Dim j As Integer

i = lststands.ListIndex + 1
ThisWorkbook.Worksheets ("stands")
' remplis 1ere case vide avec stand selectionné
'verif case 1
If txtST1 = "" Then
UserForm1.txtST1 = .Cells(i + 1, 1)
Else
'verif case 2
If txtST2 = "" Then
UserForm1.txtST2 = .Cells(i + 1, 1)
Else
'verif case 3
If txtST3 = "" Then
UserForm1.txtST3 = .Cells(i + 1, 1)
Else
'verif case 4
If txtST4 = "" Then
UserForm1.txtST4 = .Cells(i + 1, 1)
Else
'verif case 5
If txtST5 = "" Then
UserForm1.txtST5 = .Cells(i + 1, 1)
Else
'verif case 6
If txtST6 = "" Then
UserForm1.txtST6 = .Cells(i + 1, 1)

End If

ThisWorkbook.Worksheets ("liste_personnes")

End Sub



Merci

3Pom · Answer

T'es sûr ke t'as des listbox (vu ke t'appel tes controles txtST1,txtST2,...)

rvw68 · Answer

Bonjour

En fait je me suis trompé c'est des textbox, J'ai donc 6 textbox. je me suis emmêlé les pédales en tapant mon premier message.
Mais bon si ça ne marche pas avec des textbox est ce que je dois mettre des listbox ? car je voudrai pouvoir saisir manuellement aussi mes valeurs de la liste.

Merci

3Pom · Answer

En fait t'es obligé de bouclé sur ta listbox pour récupérer les valeurs selectionnnées ex :

for i=0 to lststands.list
     if lststands.selected(i) then
          If txtST1 = "" Then
             UserForm1.txtST1 = lststands.list(i)
         Else
              If txtST2 = "" Then
               UserForm1.txtST2 = lststands.list(i)
         Else
              If txtST3 = "" Then
               UserForm1.txtST3 =  lststands.list(i)
         Else
              If txtST4 = "" Then
                UserForm1.txtST4 = lststands.list(i)
         Else
             If txtST5 = "" Then
                UserForm1.txtST5 =  lststands.list(i)
         Else
             If txtST6 = "" Then
              UserForm1.txtST6 =  lststands.list(i)
    End If
next i

et voilà le tour est joué.
Bon prog

rvw68 · Answer

Bonsoir

J'ai copié ton code dans le sub lststands_Click() mais les txtbox ne se changent pas, je vais continuer a chercher.

Merci

3Pom · Answer

Essai de prefixer ts tes textbox du nom de la form du genre :
If UserForm1.txtST1 = "" Then

rvw68 · Answer

Bonjour

Ca ne donne toujours rien, je vais continuer a potasser et si j'y arrive je posterai le code, mais bon je me laisse 2 semaines pour y arriver après j'abandonne cette fonctionalitée.

Merci pour ton aide et ta patience.

Remplir des txtbox a partir d’une listbox en VBA Excel

11 réponses

Discussions similaires