Listindex reste à -1 malgré un ajout avec Additem

Bonjour

Je cherche à effacer la liste des choix d'une combox pour ensuite ajouter 1 seul item et l'afficher, ça ne fonctionne pas, listindex reste sans cesse à -1
Je voudrais que la combobox Me.CID_fiche affiche la valeur ajoutée dans la boucle, mais impossible.

Pouvez vous me dire ce qui ne va pas svp ?

Merci à vous,
Cordialement,

Code:

---

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

Me.CID_fiche.Clear     For i = 1 To UBound(Tableau_valeurs, 1)   Me.CID_fiche.AddItem Tableau_valeurs(i, 4)   End If     Next i 'prochaine ligne de la boucle       ' si CID_fiche à une seule valeur dans la liste surlignage en jaune   If CID_fiche.ListCount = 1 Then   Me.CID_fiche.BackColor = vbYellow   Me.CID_fiche.listindex = 1   End If

---

Bonjour,
La propriété ListIndex d'un contrôle ListBox et ComboBox indique l'élément de la liste qui est sélectionné et sa valeur est à -1 si rien n'est sélectionné.
Vous pouvez bien entendu forcer sa valeur en fin de boucle en lui donnant comme valeur 0 pour sélectionner la première ligne ou une toute autre valeur bien entendu.