Comment transférer les données d'une ListBox vers une TextBox

Version imprimable

Salut le forum
je bloc sur un problème de transfère de données de la ListBox vers Les TextBox afin de faciler la
lecture à l'utilisateur. Ainsi, lorsqu'il clique sur une ligne de la ListBox, les données de la ligne sont
rapatriées vers les TextBox pour consulter l'historique des factures.
J'ai écris ce code qui ne fonctionne malheureusement pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
  Private Sub StoryList_Click()
  Dim i As Integer
  Dim LinSuiv As String
  LinSuiv = Sheets("BD-FACTURATION").Range("C1048576").End(xlUp).Row + 1 '---dernière ligne du tableau
  For i = 2 To LinSuiv
      While StoryList.Text = Range("C", i).Value
      Me.TxtDte.Value = Range("A" & i).Value
      Me.TxReference.Value = Range("B" & i).Value
      Me.TxNumFacture.Value = Range("C" & i).Value
      Me.txDesignation.Value = Range("D" & i).Value
      Me.TxNomClient.Value = Range("E" & i).Value
      Me.TxQteEntree.Value = Range("F" & i).Value
      Me.TxQteSortie.Value = Range("G" & i).Value
      Me.TxPrixUnitaire.Value = Range("H" & i).Value
      Me.txMontant.Value = Range("I" & i).Value
      Me.TxObs.Value = Range("J" & i).Value
      'End If
      i = i + 1
    Wend
  Next i
End Sub

Cordialement !

21/11/2016, 01h36
unparia

Bonjour
Tu nous dis vouloir afficher dans des textboxes des données d'une listbox et nous montres, sans explication aucune, un code alimentant des textboxes à partit de cellules d'une feuille de calcul. Explique ce mécanisme.
Il semble par ailleurs que tu cliques sur un élément d'une listbox et en utilises la propriété text, qui, elle ne correspond :
- qu'à l'élément cliqué
- qu'au contenu de la 1ère colonne de l'élément cliqué, si listbox multicolonne
Montre-nous s'il te plait par quel code tu as abondé la listbox en nous précisant :
- si cette listbox se trouve sur une feuille de calcul ou sur un userform
- si elle a été liée à une plage de cellules et, le cas échéant, la valeur de la propriété de liaison

Bonjour

La ListBox se trouve sur un UserForm et la RowSource de la ListBox est une plage de cellule nommée
de 10 colonnes dont 10 colonnes également pour la ListBox. Le souci est de transférer les
données de la ligne de cette ListBox à l'évenement Click Vers les TextBox. J'utilise un code
de meme type mais qui fontionne avec une ListBox d'une Seule colonne
que voici
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub ListBox1_Click() Dim i As Integer Dim Var As String Var = Sheets("gestion").Range("D65000").End(xlUp).Row + 1 For i = 1 To Var While ListBox1.Text = Range("E" & i).Value TextBox1.Text = Range("D" & i).Value TextBox2.Text = Range("E" & i).Value TextBox3.Text = Range("F" & i).Value TextBox4.Text = Range("I" & i).Value TextBox5.Text = Range("G" & i).Value If Dir(ThisWorkbook.Path & "\photos" & "\" & TextBox1 & ".jpg") = "" Then Me.Image1.Picture = LoadPicture("") Else Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\photos" & "\" & TextBox1 & ".jpg") End If i = i + 1 Wend Next i End Sub
à l'évenement Click de la ListBox, les TextBox et la zone d'image sont alimentés
cette méthode ne fonctionne pas avec une ListBox Multicolonne et
c'est ce que je souhaite faire, n'étant pas un pro de la programmation.

Merci à vous.

Cordialement

Merci

22/11/2016, 00h33
unparia

Je comprends bien que tu n'es pas un "pro", mais, lorsque l'on est débutant, on commence par lire ce qui est exposé dans l'aide VBA.
Bon ...
Voilà ma réponse de principe e-t je te laisse continuer sur ces bases :
1) Lorsque l'on clique sur une listbox, l'élément sélectionné a pour index la propriété Listindex de la listbox (qu'elle soit multicolonne ou non)
2) la première colonne d'une listbox multicolonne est la colonne 0, la seconde, la colonne 1, etc ...
3) la valeur en colonne 3 (par exemple) correspondant à un click sur une listbox nommée Listbox1 est :

Code:

Listbox1.list(Lisbox1.listindex,2)

Je te laisse maintenant t'y mettre (j'y tiens)

Bonjour,

En complément de la réponse d'unparia (salutations Jacques au passage), j'aimerais que tu nous dises à quoi te sert ta boucle (identifiée dans le code ci-dessous) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub ListBox1_Click()
Dim i As Integer
Dim Var As String
Var = Sheets("gestion").Range("D65000").End(xlUp).Row + 1
For i = 1 To Var
  While ListBox1.Text = Range("E" & i).Value ' <======================================= DEBUT DE BOUCLE
    TextBox1.Text = Range("D" & i).Value                                                                                               
    TextBox2.Text = Range("E" & i).Value                                                                                                
    TextBox3.Text = Range("F" & i).Value                                                                                                
    TextBox4.Text = Range("I" & i).Value                                                                                                
    TextBox5.Text = Range("G" & i).Value                                                                                               
    If Dir(ThisWorkbook.Path & "\photos" & "\" & TextBox1 & ".jpg") = "" Then                                               
    Me.Image1.Picture = LoadPicture("")                                                                                                  
    Else                                                                                                                                              
    Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\photos" & "\" & TextBox1 & ".jpg")                                                                                               
    End If                                                                                               
    i = i + 1                                                                                               
  Wend                           ' <================================================== FIN DE BOUCLE                                                                     
Next i
End Sub

Bonjour à vous !

Merci pour vos contributions, Le petit bout de code de Unparia fonctionne, ça marche comme je souhaite.
La boucle utilisé dans le code précédent n'était qu'un test puisque, je ne réussissais pas l'opération. Puisque je
voulais parcourir la feuille, recupérer les données puis transférer vers les TextBox par l'évenement ListBox_Click (Chose impossible,
je me rend compte !). C'est la raison du While dans le code (qui, je me rend également compte n'as pas de place !)
Le nouveau code, le voici.
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 Private Sub StoryList_Click() On Error Resume Next Me.ImgStoryList.Visible = True Me.TxtDte.Value = StoryList.List(StoryList.ListIndex, 0) Me.TxReference.Value = StoryList.List(StoryList.ListIndex, 1) Me.TxNumFacture.Value = StoryList.List(StoryList.ListIndex, 2) Me.txDesignation.Value = StoryList.List(StoryList.ListIndex, 3) Me.TxNomClient.Value = StoryList.List(StoryList.ListIndex, 4) Me.TxQteEntree.Value = StoryList.List(StoryList.ListIndex, 5) Me.TxQteSortie.Value = StoryList.List(StoryList.ListIndex, 6) Me.TxPrixUnitaire.Value = StoryList.List(StoryList.ListIndex, 7) Me.txMontant.Value = StoryList.List(StoryList.ListIndex, 8) Me.TxObs.Value = StoryList.List(StoryList.ListIndex, 9) On Error GoTo 0 End Sub Private Sub TxReference_Change() On Error Resume Next If Dir(ThisWorkbook.Path & "\photos" & "\" & TxReference & ".jpg") = "" Then ImgStoryList.Picture = LoadPicture("C:\Windows\Web\Wallpaper\Windows\Img0.jpg") Exit Sub End If If Dir(ThisWorkbook.Path & "\photos" & "\" & TxReference & ".jpg") = "" Then ImgStoryList.Picture = LoadPicture("") Exit Sub Else ImgStoryList.Picture = LoadPicture(ThisWorkbook.Path & "\photos" & "\" & TxReference & ".jpg") End If On Error GoTo 0 End Sub
Et c'est parfait. Merci encore

Cordialement.

23/11/2016, 09h00
pijaku

Bonjour,

Tu dis :

Citation:

je voulais parcourir la feuille, recupérer les données puis transférer vers les TextBox par l'évenement ListBox_Click (Chose impossible, je me rend compte !)

Bien entendu qu'il est possible de faire ces actions.
Heureusement!

Dans l'événement Click :
> tu récupères l'élément cliqué (1ère, 2nde ou n'importe qu'elle colonne)
> tu le cherches dans la colonne de ta feuille avec la méthode Find
> tu récupères ainsi le numéro de la ligne
> grâce à ce numéro tu transfères les données de ta feuille dans tes textbox.