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 : 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
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