Discussion :

[alain78]

Bonjour à toutes et à tous.

24h de recherches et je ne trouve ni ne comprend l'erreur.

Dans une userform j'ai une frame qui contient 2 textbox.



L'une permet de saisir un nom et l'autre une quantité.
Ce qui est attendu :

Si Click sur le bouton plus ==> insertion d'un nouvel item de la listbox active avec Nom dans la colonne 0 et Quantité dans la colonne 1. Ceci fonctionne correctement

Code :

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

1
2
3
4
5
6
7
8
Private Sub bouton_ajout_Click() 'ajouter un nouvel item dans listbox
    ref_aliment = Me.aliments_liste.ListCount
 
                Me.aliments_liste.AddItem
                Me.aliments_liste.List(ref_aliment, 0) = aliment_nom.Value
                Me.aliments_liste.List(ref_aliment, 1) = aliment_quantite.Value
 
End Sub

Si Clik sur le bouton OK ==> remplacement pour l'item sélectionné dans la listbox du Nom (colonne0) et de Quantité (colonne1). Cela ne fonctionne pas.

Code :

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

1
2
3
4
5
Private Sub bouton_plus_Click() ' modifier item dans listbox
    Me.aliments_liste.List(ref_aliment, 0) = aliment_nom
    Me.aliments_liste.List(ref_aliment, 1) = aliment_quantite
 
End Sub

Ce qui se passe.
- dans la listbox la valeur du nom est bien remplacée. OK
- dans la listbox la valeur de quantité n'est pas remplacée

Précisions ;
1/ ma variable ref_aliment est bien déclarée comme Public
2/ en mode debug je constate que dans ma ligne

Code :

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

 Me.aliments_liste.List(ref_aliment, 1) = aliment_quantite

la variable aliment_quantité conserve son ancienne valeur et ignore la valeur nouvelle.
3/ J'ai essayé avec ou sans l'attribue .value pour la textbox: rien ne change

Je me perd en conjectures comme dirait Michel Audiard !

Si vous voyez l'explication de ce mystère, je suis preneur.

Merci pour votre aide.

Bon weekend de Pâques.