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 : 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
 
  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 !