Discussion :

[stdonat]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[boisgontierjacques]

Bonjour,


Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[stdonat]

Merci Jacques
C'est super comme d'hab