XL 2010 Modifier le contenu de list box

[MAN]

Joyeux noel au forum
Bonjour le forum, Bonjour a tous.
j'ai mon fichier ci dessous. malheureusement, lorsqu'un item est renseigné, celà me devient impossible de modifier sa valeur. ça va dans tous les sens comme le montre le fichier.
j'ai pensé que c'est la macro modifier qui fait problème.
merci d'avance pour vos apports

 

[laurent950]

Bonjour @MAN

Correction :

'-------procédure pour la saisie semi automatique de la combobox1-------
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If L >= ListBox1.ListCount Then Exit Sub
    Me.ListBox1.List(L, 1) = Me.TextBox1.Text ' Corrigé
    Me.TextBox1 = ""
    Me.ComboBox1 = ""
    Me.ComboBox1.SetFocus
End Sub

et

Private Sub CommandButton1_Click()
Dim Text As Range
    For Each Text In ActiveSheet.Range("Tableau1")    'codename(Feuil1)
        For I = 0 To Me.ListBox1.ListCount - 1
        If Text.Value = Me.ListBox1.List(I, 0) Then
            Range("S" & Text.Row) = Me.ListBox1.List(I, 0)
            Range("T" & Text.Row) = Me.ListBox1.List(I, 1)
        End If
        Next
    Next Text
    Me.ListBox1.Clear
    Unload Me
End Sub

 

[MAN]

Merci baucoup Laurent950.
j'ai modifié le code. malheureusement, la modification ne se passe pas a l'endroit indiqué.
par exemple, quand vous voulez modifier Poule, nous nous retrouvons avec aprovisionnement de grenouille.
j'ai vraiment besoin d'aide