Valeur Textbox non prise en compte

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.

Pièce jointe 594888

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:

---

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:

---

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:

---

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.

J'ai pu voir ce qui se produit mais je ne comprend pas pourquoi.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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

---

Ainsi :

Un clic sur le bouton + ouvre la sub en ligne 6
la valeur aliment_nom est bien récupérée et affecté à l'index de la listbox qui a été modifié. Si le nom a changé le nouveau nom est donc affecté à l'index.
Puis après le code en ligne 7 le programme se reroute vers la ligne 1 ???? Pourquoi puisqu'on n'a pas cliqué A NOUVEAU sur aliment_list
C'est donc dans cette sub que Excel affecte à aliment_quantité sa valeur qui existe dans aliment_liste sans tenir de celle saisie compte dans la textbox aliment_quantite.
Puis il retourne en ligne 9

Donc Je comprend que lorsque en ligne 6 on affecte une valeur à liste_aliment Excel assimile ça à un évènement click. Est ce bien cela ?

Citation:

---

Envoyé par alain78

---

Bonjour,

Utilisez la propriété ListIndex pour modifier :

Code:

---

1 2 3 4 5

With Me.aliments_liste .List(.ListIndex, 0) = aliment_nom .List(.ListIndex, 1) = aliment_quantite End With

---

Citation:

---

Envoyé par Eric KERGRESSE

Bonjour,

Utilisez la propriété ListIndex pour modifier :

Code:

---

1 2 3 4 5

With Me.aliments_liste .List(.ListIndex, 0) = aliment_nom .List(.ListIndex, 1) = aliment_quantite End With

---

---

Merci Eric.
Cela ne provoque pas de blocage et semble se dérouler correctement sauf que ma liste n'est pas actualisée. Mais le résultat est le même.
après avoir executé le code dans la procédure Private Sub bouton_plus_Click()

Code:

---

.List(.ListIndex, 0) = aliment_nom

---

il execute ensuite la procédure Private Sub aliments_liste_Click() dans laquelle il récupère les valeurs initiales nom et quantité qui annulent les valeurs saisies.

J'ai contourné cette erreur que je ne m'explique pas en initiant une variable à 1 lorsque qu'on demande la modification. Puis lorsqu'on arrive sur la procédure Private Sub aliments_liste_Click() il ne l'execute pas si cette variable = 1.

Ce n'est pas très correct mais au moins cela fonctionne jusqu'à ce que je trouve une solution correcte.

Merci pour votre aide.:ccool:

A suivre .....

Bonne fin de journée.

Citation:

---

Envoyé par alain78

---

Il n'y a pas de raison que cela fonctionne chez moi et pas chez vous une fois sélectionné l'item dans la ListBox. Regardez la valeur de vos variables en insérant un Debug.print et en ouvrant la fenêtre exécution (Ctrl-G) :

Code:

---

1 2 3 4 5 6

Debug.Print "Nom : " & aliment_nom & ", quantité : " & aliment_quantite With Me.aliments_liste .List(.ListIndex, 0) = aliment_nom .List(.ListIndex, 1) = aliment_quantite End With

---

Bonjour, et Merci Eric

J'ai déroulé la procédure en mode pas à pas avec un arrêt sur chaque ligne de code. Voici le résultat dans le tableau.

Pour faciliter la lecture de ma réponse, voici le code incriminé.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub aliments_liste_Click() aliment_nom = Me.aliments_liste.List(Me.aliments_liste.ListIndex, 0) aliment_quantite = Me.aliments_liste.List(Me.aliments_liste.ListIndex, 1) ref_aliment = Me.aliments_liste.ListIndex End Sub Private Sub bouton_plus_Click() ' modifier item dans listbox With Me.aliments_liste .List(.ListIndex, 0) = aliment_nom .List(.ListIndex, 1) = aliment_quantite End With End Sub

---

ACTION DE L'UTILISATEUR

L'utilisateur sélection dans liste_aliments l'item 1 nom_aliment="curcuma" ce qui a pour effet immédiat de renseigner les 2 textbox aliment_nom="Curcuma" et aliment_quantite="1 morceau".

Pièce jointe 594913

L'utilisateur modifie la Texbox aliment quantité en renseignant aliment quantite = "1 morceau 123"

Pièce jointe 594914

Puis l'utilisateur clique sur le bouton bouton_plus (MODIFIER ALIMENT)

TABLEAU DE SUIVI DU CODE

Pièce jointe 594918


CONSTAT

Etape 1 : normale c'est la procédure associée au click sur le bouton. Il exécute le première instruction sur aliment_nom.

Etape 2 :
- il change de procédure ????? AVANT d'avoir exécuté la seconde instruction sur aliment_nom.
- il exécute le code sur le aliment_nom. Il dit VRAI car aliment_nom de la TEXTBOX est égal à le nom de l'idem sélectionné dans aliments_liste

Etape3 :
- il exécute le code de aliment_quantité. Il dit FAUX car aliment_quantite de la TextBox est différent de quantité de l'item sélectionné dans aliments_liste.
- il modifie donc aliment_quantite en remplaçant la valeur saisie par l'utilisateur (textbox) par celle qui exite dans la listbox.

Etape4:
- Il revient à la procédure appelante après avoir mis à jour les textbox.

CONCLUSION

Il y a 2 problèmes :

1° A l'étape 2 il change de procédure. Il passe de Sub bouton_plus_Click() à Sub aliments_liste_Click() après avoir execute le code .List(.ListIndex, 0) = aliment_nom
Il considère que cette instruction est équivalent à un click sur la listbox !!!

2° A l'étape 3
Il attribue la valeur existante dans aliments_liste à la TextBox aliment_quantite.


DETECTION DU PROBLEME

Donc après examen la question est:

Pourquoi Excel assimile l'instruction .List(.ListIndex, 0) = aliment_nom à l'instruction aliments_liste_Click()
Considère t il que l'actualisation d'une listbox par le programme est comme un click sur la listbox ???


J'espère pouvoir obtenir une explication.

Dans cette attente je vous souhaite de bonnes fêtes de Pâques.

Citation:

---

Envoyé par alain78

---

Le plus simple serait de mettre votre fichier en ligne au format zip.

Bonjour,

Voici un extrait du fichier. Tout y est pour reproduire le bug. Ne tenez pas compte svp de l'ergonomie ni du nettoyage du code ce n'est qu'un fichier de travail à l'état primaire. Par contre si vous trouvez des optimisations, je les accepte volontiers.

Merci encore pour votre aide.


Pièce jointe 594948


Merci encore pour votre aide.
Bon Lundi de Pâques à vous.

Citation:

---

Envoyé par alain78

---

Une solution partielle possible dans le fichier joint.

Bonjour à toutes et tous,

Merci Eric.
Votre proposition est excellente. Je vais prendre quelques temps pour l'analyser mais surtout pour essayer de tout comprendre car elle comporte des notions et syntaxes nouvelles pour moi.
Par exemple le M03 ou M04 devant une liste.

Pour ma part je continue à utiliser mon code qui interdit l'appel de Private Sub aliments_liste_Click() dès lors qu'on est mode mode modification via Private Sub bouton_plus_Click() . Je teste cet état avec une variable temporaire.

Merci encore pour votre aide.:merci:

Cependant je n'ai toujours pas la réponse à ma question

Pourquoi Excel assimile l'instruction .List(.ListIndex, 0) = aliment_nom à l'instruction aliments_liste_Click()

Considère t il que l'actualisation d'une listbox par le programme équivaut à un click sur la listbox ???

Bonne journée.

Salut

Citation:

---

Envoyé par alain78

[...]
Cependant je n'ai toujours pas la réponse à ma question

Pourquoi Excel assimile l'instruction .List(.ListIndex, 0) = aliment_nom à l'instruction aliments_liste_Click()

Considère t il que l'actualisation d'une listbox par le programme équivaut à un click sur la listbox ???[...]

---

Oui ;)


Reste à voir si sur le plan ergonomique, il est logique d'avoir ces évènements qui se télescopent, mais sans savoir ce que fait ton Listbox_click, difficile de répondre. Tu peux court-circuiter l'évènement avec une variable de module... Voici un exemple avec un sémaphore (un flag en anglais) qui désactive l'évènement ListBox_Click lorsqu'il n'est pas la conséquence d'un choix de l'utilisateur. La gestion d'erreur permet d'être certain de rétablir la gestion du click

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Option Explicit   Private ClickFlag As Boolean   Private Sub CommandButton1_Click() On Error GoTo Catch:   ClickFlag = True ListBox1.Value = "E 2"   Catch: ClickFlag = False End Sub     Private Sub ListBox1_Click() If Not ClickFlag Then MsgBox "Clic de l'utilisateur sur la liste" Else MsgBox "Modif par code" End If End Sub

---