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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.