Controls et variables

[Benoit]

Bonjour le Forum,
J'ai récupéré dans différentes Démos des bouts de codes et j'ai pu avoir l'aide de queques uns d'entres vous, mais il y a quelquechose que je n'arrive pas à fire fonctionner les controls avec des variables. Pourriez vous m'aider SVP?

Dim Y As Byte

With Me.ListBox6
.AddItem Me.ListBox3.List(Me.ListBox3.ListIndex, 1)
Select Case Y
Case 1
'ce qui est en dur fonctionne
.Column(1, .ListCount - 1) = Me.ListBox4.List(Me.ListBox4.ListIndex, 1)

.Column(Y, .ListCount - 1) = Me.Controls('ListBox' & Y + 3).List(Me.Controls('ListBox' & Y + 3).ListIndex, 1)
Case 3
.Column(Y, .ListCount - 1) = Me.Controls('ListBox' & Y + 1).List(Me.Controls('ListBox' & Y + 1).ListIndex, 3)
End Select
End With

 

[flo2002]

Bonjour, je ne comprend pas bien ta question....

tu cherche à faire quoi? Qu'est ce qui ne fonctionne pas?
tu veut savoire ce que veut dire Byte?

 

[Benoit]

Bonjour Flo,
Je souhaite remplir la listbox6 avec des les éléments des lignes sélectionnées dans les listboxs 3, 4 et 5.
Avec For...Next la listbox 6 se remplit mais pas avec les valeurs souhaitées car elles sont dans plusieurs colonnes non contigües dans les listboxs.(C'est du aux valeurs de la variable)
En revanche le Select Case qui me conviendrait mieux car la variable ne change pas linéairement, ne tient pas compte de celle-ci pour modifier le nom de la listbox.
Suis je plus clair?
Merci de t'y être penché

 

[flo2002]

re ,
je pense que tu as été assez clai pour que je me dise que ca depasse mes compétence.
Désolé et bon courage!