petite question à thierry, stp

[footix]

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

 

[@+Thierry]

Bonjour Footix, le Forum

Grrrr voici exactement le genre de truc à ne pas faire (Voir Charte XLD)!!! Tu footix une grosse pagaille ainsi ! (lol)

Imagines-toi une seconde qu'il y a des milliers de gens qui visitent ce Forum ? Et qu'ils fassent tous comme toi ?

Non je te donne les explications dans le Fil d'Origine, sinon là on ne sait même quoi de quoi on parle....

Mais d'abord je pars déjeuner...
Bon App à tous et à toutes !
@+Thierry

 

[footix]

Autant pour moi,
laisse faire alors, je ne veux justement pas mettre le bordel.
Erreur à ne pas recommencer, c'est noté.
Merci pour tout. A+

 

[@+Thierry]

Ok Foutix pas de souci, tu n'es pas le seul !!!

Mais au moins ça sert d'exemple à ne pas faire !!

Bon donc RENDEZ VOUS tous et toutes !!! (il y a du Fun lol)

=> Lien supprimé

Bonne Aprèm
@+Thierry