Modifier Listbox Multiclonne

Bonjour
J'alimente dans un Userform,une Listbox multicolonnes par add Item.
Cette Listbox a la propriété ListStyle = 1- fmListStyleOption.

Lorsque mon Userform est affiché, je voudrai qu'un bouton (disponible sur le Userform) puisse venir modifier les valeurs de la deuxième colonne de ma listebox
Or le code ci-dessous ne génère pas d'erreur mais ne change rien dans ma listebox....

Code:

---

1 2 3 4 5 6 7 8

Private Sub Bp_Affecter_Click() Dim i As Integer For i = 0 To Me.Lst_SemainesReduites.ListCount - 1 If Me.Lst_SemainesReduites.Selected(i) = True Then Me.Lst_SemainesReduites.list(i, 2) = Me.Txt_TauxReduction.Value End If Next i End Sub

---

Merci de votre aide

Bonjour,


Exemple

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize() Me.ListBox1.ColumnCount = [tableau1].Columns.Count Me.ListBox1.List = [tableau1].Value End Sub   Private Sub B_modif_Click() Me.ListBox1.List(2, 1) = "xxxx" End Sub

---

Boisgontier

Merci Jacques
C'est super comme d'hab