Discussion :

[lcoulon]

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

[Philippe Tulliez]

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.