Discussion :

[nicht]

Bonjour le forum,
Voilà mon problème, très simple en fait.
J'ai une listbox et je veux que quand je clique sur une ligne il m'en selectionne une autre.
Par exemple quand je clique sur la ligne il faudrait qu'il me selectionne la ligne 2 et non pas la un.

[laetitia]

bonjour nicht le forum sans plus d infos!!!
regarde du cote de listbox1.listindex

[nicht]

Bonjour laetitia,
J'ai déja essayé plein de méthodes par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

listbox1.listindex +1

mais ceci me change seulement le numéro de l'index sans sélectionner la ligne suivante.
Merci quand même.

[nicht]

C'est bon j'ai trouvé il faut mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ListBox1.ListIndex +1

à afterupdate du listbox.

[LeForestier]

Bonjour Nicht, Laetitia,
Ce n'est pas si simple que ça, j'ai dù employer une astuce, dans l'événement clik ou change ça ne fonctionne pas.
Dans un module général...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
'Si c'est dans un UF, sinon, mettre le nom de la feuille.
Public Sub Timer()
    With UserForm1
    If .ListBox1.ListIndex < .ListBox1.ListCount - 1 Then
        .ListBox1.ListIndex = .ListBox1.ListIndex + 1
    End If
    End With
End Sub

dans le module de l'UF...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim VV As Long
        VV = TimeSerial(Hour(Time), Minute(Time), Second(Time) + 1)
        Application.OnTime VV, "Timer", False
End Sub

A+
EDIT: je n'avais pas encore vu ton dernier poste, et tant mieux si tu a trouver beaucoup plus simple.
EDIT2 : J'ai essayé avec AfterUpdate mais ça ne fonctionne pas, le curseur se bloque sur la dernière lignes de la listBox ?? Comment a-tu fait ?

[nicht]

Bonjour LeForestier,
Par exemple comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If ListBox1.ListIndex = 0 Then
ListBox1.ListIndex = ListBox1.ListIndex + 1
end if

Si tu cliques sur ta première ligne, il sélectionne la seconde.

[LeForestier]

Bonjour LeForestier,
Par exemple comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If ListBox1.ListIndex = 0 Then
ListBox1.ListIndex = ListBox1.ListIndex + 1
end if

Si tu cliques sur ta première ligne, il sélectionne la seconde.

Beh oui, et pour les autres lignes ? tu va être obligé de mettre toute une série de If, bon ammusement pour une liste qui aurait des nombres de lignes aléatoire.!!
Mais si tu ne doit passer que du 1 au 2 alors pas de problème.
A+

[ucfoutu]

Bonjour,

Voilà qui sera toujours vrai (quelque soit la ligne sélectionnée) et qui reviendra à la première si on clique la dernière :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub ListBox1_Click()
  Static toto As Boolean, titi As String
  If ListbOX1.ListIndex < ListbOX1.ListCount - 1 Then titi = "{DOWN}" Else titi = "{PGUP}"
  If Not toto Then SendKeys titi
  toto = Not toto
End Sub

[LeForestier]

Bonjour UcFoutu
Ta solution a quand même quelque inconvéniants...
La ligne clignote sur deux lignes tant que l'ont n'a pas relacher la souris.
Supposons que l'ont sélectionne ligne 8.. ça va sur ligne 9 ça c'est OK, mais maintenant la ligne 10 n'est plus accessible !! sinon en recliquant ailleur et revenir sur la ligne 9, !!
Ma solution est certe moins élégante mais plus efficace.
A+