Lier une cellule avec une ligne d'une LISTBOX
Bonjour à tous !
Je souhaiterai lier une ligne de ma ListBox sélectionnée, avec son prix correspondant :
Colomne A ( N° Composant )
1 2
3
4
Colomne B ( Prix composant)
0,3
0,5
0, 6
0,567
Dans la listbox, lorsque l'utilisateur sélectionne un numéro de composant, ceci alimente une listbox2 où sont présentés tous les composants choisis. Ce que je voudrais faire c'est calculer la somme totale de tous les composants, sans pour autant que le prix des composants UNITAIRES apparaissent dans mon USERFORM. Est-ce possible ? Voici le code que j'ai fait jusqu'à maintenant :
Private Sub ajouter_Click()
Dim j As Integer
Dim compteur_list
With ListBox2
.AddItem (ListBox1.Value)
End With
End Sub
Private Sub ListBox_Cout_Click()
End Sub
Private Sub supprimer_Click()
ListBox2.RemoveItem (ListBox2.ListIndex)
End Sub
Private Sub ListBox1_Click()
ListBox1.Value = UserForm1.ListBox1
End Sub
Private Sub UserForm_initialize()
Me.StartUpPosition = 2
Dim i As Integer
With Me.ListBox1
For i = 0 To 9
.AddItem Range("A" & i + 5)
Next i
End With
End Sub
Merci d'avoir pris le temps de me lire !
Bonjour,
Pourquoi 2 ListBox ?
Tu peux utiliser une ListBox à 2 colonnes (en n'en affichant qu'une)...
Et le clic dans la ListBox qui modifie la valeur de cette même ListBox...
En tout état de cause, sans fichier tu n'auras pas de réponse utilisable.
Et apprends à placer ton code sous balises Code dans un post !
Cordialement.