Bonjour a tous et bonne année,

Ci dessous un petit problème que vous saurez je pense résoudre :

Voila : Dans un formulaire j'ai :
- 10 Checkbox numérotés de 1 à 10
- 10 Combobox numérotés de 1 à 10
- 10 Listbox numérotés de 1 à 10

L'objectif est le suivant :

En cochant la checkbox X, l'utilisateur choisi une valeur dans la combobox X

La code doit supprimer dans la listbox X la valeur renseigné dans la combobox X
A noter que la combobox et la listbox ont la meme contenu alimenté par la fonction Additem à l'initialisation du formulaire.

voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
    For i = 1 To 10
    If B_AJOUT_FP.Controls("Checkbox" & i).Value = True Then     
        For j = B_AJOUT_FP.Controls("ListBox_MC_" & i).ListCount - 1 To 0 Step -1
            If B_AJOUT_FP.Controls("ListBox_MC_" & i).List(j) = B_AJOUT_FP.Controls("ComboBox" & i).Value Then
                'on Supprime l'élément selectionné dans la ListBox.
                B_AJOUT_FP.Controls("ListBox_MC_" & i).RemoveItem (j)
            End If
        Next j
    End If
    Next i
Quoi que je fasse j'ai toujours la même erreur sur la ligne

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
B_AJOUT_FP.Controls("ListBox_MC_" & i).RemoveItem (j)
Erreur d’exécution '-2147467259 (80004005)' : Erreur non répertoriée.

J’avoue que le message d'erreur n'aide pas beaucoup.
Vous auriez une idée ?

D'avance merci
Agd