Petit code pour ajout dans Listbox

Re bonjour à toutes et tous.

C'est la première fois que je veux ajouter le contenu d'une variable dans une listbox existante (recette_active).
Lors du premier ajout, tout fonctionne bien et la liste affiche bien la valeur ajoutée (sélectionnée dans liste_aliments).

Mais une seconde tentative d'ajout produit un plantage "Impossible de définir la propriété List. Index de table de propriétés non valide".
Lors du debogage la valeur à ajouter est bien renseignée.

Code:

---

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

Private Sub bouton_droit_un_Click() Dim temp_aliment_nom As String   If IsNull(liste_aliments.Value) Then MsgBox ("Selectionner un aliment") Else   m = recette_active.ListCount   If m = 0 Then m = 0 Else m = m + 1 End If   Me.recette_active.AddItem Me.recette_active.List(m, 0) = liste_aliments.Value   End If   End Sub

---

Tout se passe comme si la listbox recette_active était vidée à chaque fois que la sub est actionnée. Est ce bien cela ? Si oui comment conserver le contenu d'une listbox quand on change de sub ?
J'ai essayé de déclarer Public mais Excel n'accepte pas car "Le membre existe déjà dans un module objet dont le présent module est dérivé."

Alors ?

Merci pour votre aide.

Il ne faut pas que j'incrémente m de 1 puisque m est le nombre d'enregistrement de la listbox appelée. En incrémentant je mets m au delà de la table d'indexation. Et je n'ai même pas besoin d'essayer de "géreré l'index m car Excel le fait très bien tout seul.

Voici le code rectifié. Il fonctionne bien.

Code:

---

1 2 3 4 5 6

m = recette_active.ListCount   Me.recette_active.AddItem Me.recette_active.List(m, 0) = liste_aliments.Value   End If

---

Puisse cela servir un jour.

Bonne fin de journée à toutes et tous.

bonjour,

Je pense que cela vient d'une confusion dans le variables de ton objet :
- le .count commence bien à 1 si tu as un élément.
- cependant cet élément commence à l'index 0

Donc ton ajout simplement :

Code:

---

Me.recette_active.AddItem liste_aliments.Value

---

En fait ce que tu as trouvé c'est ce que je te disais : ton .count est à zéro, tu fais additem, il passe à un mais toi tu documentes l'index zéro et tu n'as pas besoin de ton calcul, vba le fait avec la ligne ci_dessus.:D

Merci Anasecu.
En effet c'est plus propre et plus court.