F
footix
Guest
Bonjour le forum et bonjour thierry,
J'ai juste une petite question concernant le fichier transmis hier (USF-Financial-Currency-Positions), j'ai repris la procédure pour comprendre le fonctionnement et j'en arrive à la list box 1 où je t'avoue avoir un peu de mal à comprendre le cheminement.
Voilà la procédure, si tu as deux minutes pour m'aider à comprendre? Si tu n'as pas le temps ce n'est pas grave, je continue mes recherches.
Merci bcq. A + et bon appétit
Private Sub ListBox1_Click()
Dim Item As Variant, Container As Variant
Dim TabCur() As String
Dim x As Long, i As Long
Me.ListBox2.Clear
For x = 1 To 4
Me.Controls("TextBox" & x) = ""
Next
For Each Item In ColAccCur
Container = Split(Item, "#")
ReDim Preserve TabCur(2, x)
TabCur(0, x) = Container(0)
TabCur(1, x) = Container(1)
x = x + 1
Next
For i = 0 To UBound(TabCur, 2)
If TabCur(0, i) = Me.ListBox1 Then
Me.ListBox2.AddItem TabCur(1, i)
End If
Next
End Sub
J'ai juste une petite question concernant le fichier transmis hier (USF-Financial-Currency-Positions), j'ai repris la procédure pour comprendre le fonctionnement et j'en arrive à la list box 1 où je t'avoue avoir un peu de mal à comprendre le cheminement.
Voilà la procédure, si tu as deux minutes pour m'aider à comprendre? Si tu n'as pas le temps ce n'est pas grave, je continue mes recherches.
Merci bcq. A + et bon appétit
Private Sub ListBox1_Click()
Dim Item As Variant, Container As Variant
Dim TabCur() As String
Dim x As Long, i As Long
Me.ListBox2.Clear
For x = 1 To 4
Me.Controls("TextBox" & x) = ""
Next
For Each Item In ColAccCur
Container = Split(Item, "#")
ReDim Preserve TabCur(2, x)
TabCur(0, x) = Container(0)
TabCur(1, x) = Container(1)
x = x + 1
Next
For i = 0 To UBound(TabCur, 2)
If TabCur(0, i) = Me.ListBox1 Then
Me.ListBox2.AddItem TabCur(1, i)
End If
Next
End Sub