selection dans une listbox

Question

bonjour. j ai quelques problemes pour selectioner un element dans une list. je fais list1.selected (1)=true mais ca marche que quand ca veux bien. alors deja juste pour savoir le 1 represente l index ou l element qui est dans la list? et pourquoi ca ne marche que quand ca veux. faut il mettre quelque chose d autre?
merci

yohan49 · Answer

fais voir ton bout de code

cs_adrico · Answer

ben c est qu il est asser compliquer comme code. vu que je debute je l ai fais a ma mesure. c est pour un QCM.  en fait ca consiste a un checkbox qui quand on le coche il rentre le numeros de la question dans une liste. mais quand je rentre un nombre par la checkbox, comme 15 et que apres je vais sur la question 12 pour la rentrer dans la listbox il me souligne quand meme 15. alors que moi j aimerais qu il me souligne le 14

yohan49 · Answer

mets nous juste la partie ou tu selectione ta ligne ca sera plus facile parce que la , je vois pas

econs · Answer

Ceci devrit t'aider.



List1.ListIndex = 0 '    S&#233;lectionne le premier &#233;l&#233;ment de la lisbox

List1.ListIndex = List1.ListCount-1 '    S&#233;lectionne le dernier &#233;l&#233;ment de la listbox



List1.Selected(i) permet juste de savoir si l'&#233;l&#233;ment est s&#233;lectionn&#233;, en aucun cas il ne permet de le s&#233;lectionner.


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

jpleroisse · Answer

Bonjour,

Je ne comprends pas grand-chose &#224; ta question.

Essayes ceci



Private Sub Check1_Click()

If Check1.Value = 1 Then

List1.AddItem 14

List1.AddItem 15

List1.AddItem 16

End If

List1.ListIndex = List1.ListCount - 2

End Sub



jpleroisse

cs_adrico · Answer

voila mon code. dites moi si vous n y comprenez rien. moi aussi j ai du mal a cmprendre ce que j ai bien pu mettre. lol

Private Sub chksignet_Click()
Dim premier, first, firstindex, moi, aveco, etapres, mi


premier = List1.ListIndex
first = premier + 1


'j ai du rajouter une option car quand je me deplacait de questions en questions et que ma checkbox ce cochait, car on l avait cocher avant, le numeros de la question se rajoutais dans ma listbox.


If Option2.Value False And chksignet.Value 1 Then    If first "1" Or first "2" Or first = "3" Or first = "4" _  Or first "5" Or first "6" Or first = "7" Or first = "8" _
  Or first = "9" Then
  aveco = 0 & first
  lstsignet.AddItem aveco
  lstsignet.Selected(2) = True
    Else
  lstsignet.AddItem first
  mi = lstsignet.ListIndex
  lstsignet.Selected(mi) = True
      End If
          ElseIf chksignet.Value 0 And Option2.Value True Then If first "1" Or first "2" Or first = "3" Or first = "4" _  Or first "5" Or first "6" Or first = "7" Or first = "8" _
  Or first = "9" Then
  lstsignet.text = 0 & first
    firstindex = lstsignet.ListIndex
lstsignet.RemoveItem firstindex
  Else
  lstsignet.text = first
firstindex = lstsignet.ListIndex
lstsignet.RemoveItem firstindex
End If


End Sub

Selection dans une listbox

6 réponses

Discussions similaires