Bonjour,

J’aimerai remplir une listbox (list2) de 0 après un premier clic sur une ligne d’une autre listbox, (list1), mais la list2 dois se remplir a chaque ligne du nombre contenu dans un textbox (text1)

J’ai tester le programme suivant,

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
23
24
25
26
 
 
Private Sub List1_Click()
Dim D As Integer
 
‘remplissage de list2 de 0
For D = 0 To List2.ListCount - 1
List2.List(D) = "0"
List2.ListIndex = D
Next D	
 
'Charger le contenu de text1 dans list2
    Text1.text = List2.List(List1.ListIndex)
 
 'Selection de la ligne dans list2 en fonction de list1
    List2.Selected(List1.ListIndex) = True
 
'Affichage dans label2 du defaut selectionner dans list1
 Label2.Caption = List1.text
 
'Positionnement du curseur de saisi dans text1 quand selection ligne 0 sur list1
If List1.ListIndex < List1.ListCount Then
Text1.SetFocus
 End If
 
End Sub
La list2 se rempli bien de 0 mais la valeur de text1 ne le remplace pas, en faite, a chaque nouvelle saisi, la valeur 0 de la list2 n’est pas remplacé,

Je pense voir le problème, j’ai mis « remplissage de list2 de 0 » dans list1.clic, donc des que je passe a la ligne suivante, le programme remplace toute les valeurs de list2 par 0 a chaque fois, celle du text1 et remplacer aussi,

En faite, je ne connais pas la fonction pour sauvegarder les valeurs saisi dans text1 ou pour remplacer une seul fois seulement les valeurs de list2 (au 1ER clic uniquement)

Comment faire puor remplacer les 0 par les valeurs de text1 ?

Merci pour votre aide,