selectionner une autre ligne dans listbox

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.

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

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

Code:

---

listbox1.listindex +1

---

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

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

Code:

---

ListBox1.ListIndex +1

---

à afterupdate du listbox.

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:

---

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:

---

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 ?

Bonjour LeForestier,
Par exemple comme ça

Code:

---

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.

Citation:

---

Envoyé par nicht

Bonjour LeForestier,
Par exemple comme ça

Code:

---

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+

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:

---

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

---

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+

Bonjour, Leforestier,

Je ne vois pas de quoi tu parles . Je n'ai pas ce que tu dis avoir. La demande est de sélectionner la ligne suivante (suivant celle que l'on a cliquée). Ce que fait mon code, que la ligne sur laquelle on clique était ou non déjà sélectionnée.

Je me suis peut-être mal expliqué.
Mis à part le clignotement assez génant, clic sur la ligne 8.. la sélection est ligne 9, ce qui est demandé. Mais ensuite je veux sélectionner la ligne 10 ce qui fait que je doit cliquer sur la ligne 9 (normal puisque ça va s'incrémenter). Mais le clic sur la ligne 9 n'a plus d'effet et si je clic sur la ligne 10 behhh.. je vais sur la 11 !!
A+

Je ne comprends toujours pas et laisse tomber ...