Clics successifs dans une listbox

Bonsoir

Ma listbox dans mon userform créés dynamiquement fonctionnent correctement sauf qu'un des choix consiste en un

Code:

---

ActiveWindow.LargeScroll Down:=1

---

Si je clique une premère fois, j'obtiens bien ce que je veux. Si je re-clique sur la même ligne : plus rien ne bouge ; si je clique sur une autre ligne et que je reviens sur la premère, c'est OK toujours une seule fois.

est-ce normal ? que faut-il faire pour parcourir les pages de sa feuille par simples clicks successifs?

Merci d'avance

Incrémente ton largeScroll
Teste en utilisant un compteur déclaré en tête du module de l'userform et mets

Code:

---

1 2	Compteur = Compteur + 1 ActiveWindow.LargeScroll down:=Compteur

---

Compteur que tu décrémentes quand tu utilises le paramètre Up.
Comme j'ai toujours utilisé une "ScrollBar", je n'ai jamais testé ça... Tu peux le faire pour nous ?
Bonne journée

Cela ne fonctionne pas : le compteur s'incrémente bien mais tout se passe comme si je ne pouvais pas activer ma ligne 2 fois de suite. Et quand je reviens sur ma ligne, l'incrément du compteur fait que je remonte (ou redescends) de plusieurs pages.
Donc pour l'instant, je dédouble ma ligne dans ma listbox

A plus

merci quand même

Pas besoin de compteur.
Deux boutons sur ton userform, un bouton Monter et un Descendre + ce code permettent de parcourir une feuille de calculs sans problème.

Code:

---

1 2 3 4 5 6 7

Private Sub descendre_Click() ActiveWindow.LargeScroll down:=1 End Sub   Private Sub Monter_Click() ActiveWindow.LargeScroll Up:=1 End Sub

---

Testé ce coup-ci ;)
Bonne journée

Ce n’est pas le problème de savoir comme on avance ou recule dans un onglet, mais de le faire deux fois de suite en cliquant sur la ligne de ma LISTBOX ; si j’ai deux lignes qui font PAGEDOWN, j’arrive à descendre en cliquant alternativement sur les 2 lignes ; mais si j’ai une seule ligne, je ne peux descendre qu’une seule fois : je suis obligé d'alterner avec une autre ligne !

Bonne journée

Bonjour,
(et si j'ai bien compris) :
- à chaque click, met l'indice cliqué dans une variable toto si la valeur de cette variable n'est pas égale à celle de l'indice cliqué
- si pas égale ===>> tu exécutes et modifies toto
- si égale : tu ne fais rien.

Mets ta variable toto :
- soit Static dans l'évènement click
- soit globale

Le problème c'est que je ne rentre pas dans la macro click la deuxième fois!
J'ai essayé avec une macro double click et cela fonctionne.
En résumé, deux clics successifs ne fonctionnent pas, alors qu'il n'y a pas de problème avec deux doubles clics successifs !

Comprenne qui pourra !

Ah !
C'est quoi, une "macro Click" ?
Et c'est quoi, une "macro double click" ?
Montre ton code .... (on essaiera de comprendre...)

Bonsoir,

Citation:

---

Envoyé par ucfoutu

Ah !
C'est quoi, une "macro Click" ?
Et c'est quoi, une "macro double click" ?
Montre ton code .... (on essaiera de comprendre...)

---

Je crois que l'ami phildouja fait référence aux évènements Click() ou DblClick() du contrôle ListBox.

L'évènement Click() d'une ListBox ne se déclenche effectivement pas si tu cherches à REsélectionner un élément qui l'est déjà.

Donc phildouja, si je comprends bien ton problème, essaie de mettre ton code dans l'évènement MouseUp() ou MouseDown() de ta ListBox au lieu de Click().

Cordialement,
Didier_mDF

A vrai dire, une fois que j'aurai compris le "Il lui suffit de dire qu'il n'a rien sélectionné", sans doute serais-je à même de répondre à la question "Tu vois comment ?"... :mrgreen:

Ah ?

Citation:

---

Envoyé par myDearFriend!

L'évènement Click() d'une ListBox ne se déclenche effectivement pas si tu cherches à REsélectionner un élément qui l'est déjà.

---

Si (et seulement si) ce que tu dis est vrai (je n'ai pas vérifié et ne le crois pas ...)

Listbox1.Listindex = -1 suffit pour annuler toute sélection antérieure (et on n'en parle donc plus ) ;)

Ok, merci d'avoir précisé, je comprends mieux maintenant ce que tu voulais dire ;)
Oui, c'est certainement aussi une solution envisageable pour l'ami phildouja qui devrait sans sortir maintenant.

A mon avis, l'essentiel était aussi de lui expliquer pourquoi le 2ème évènement Click() ne se déclenchait pas comme il semblait l'attendre...

Cordialement,
Didier_mDF

Citation:

---

Envoyé par ucfoutu

....
Listbox1.Listindex = -1 suffit pour annuler toute sélection antérieure (et on n'en parle donc plus ) ;)

---

Je suis pas sur de cela ... a tester !!

Bonsoir JackOuYA,

Cette instruction proposée par ucfoutu est certainement une piste intéressante je pense. Reste juste à savoir dans quel évènement insérer l'instruction pour pouvoir laisser le champ libre au Click() suivant...

Cordialement,

Chez moi, le listindex = -1 supprime bien toute sélection antérieure ...


Ceci étant dit, lorsque cette gymnastique sera finie, on pourra penser à s'y prendre de manière plus astucieuse.
Il ne me parait en effet pas très adroit de forcer l'utilisateur à parcourir (dans un sens ou dans l'autre) page par page (une seule à la fois). Il préfèrera sans aucun doute choisir le N° de la page à laquelle il veut aller et un exercice simple le lui permet :

Dans l'évènement Initialiize de l' UserForm, calculer le nombre nbpages du document, puis :

Code:

---

1 2 3 4

ListBox1.List(0) = "Aller à la page" For i = 1 To nbpages ListBox1.AddItem i Next

---

et dans l'évènement click de la listbox :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

If ListBox1.ListIndex = 0 Then ListBox1.Selected(Val(ListBox1.Tag)) = True Exit Sub End If depl = ListBox1.ListIndex - Val(ListBox1.Tag) Select Case depl Case Is > 0 MsgBox "on descend de " & Abs(depl) & " pages" Case Is < 0 MsgBox "on monte de " & Abs(depl) & " pages" Case Else End Select ListBox1.Tag = ListBox1.ListIndex

---

Et voilà tout !
Il ne reste qu'à transformer les msgbox par les codes de montée ou de descente donnés par Ousk en réponse 4 ;)

Citation:

---

Envoyé par ucfoutu

Chez moi, le listindex = -1 supprime bien toute sélection antérieure ...
..

---

Chez-moi aussi mais c'est pas le probléme : le probléme c'est de pouvoir faire de clics successif sur un même élément de la listbox..! tu le met où ton listIndex..:aie:

Citation:

---

Envoyé par JackOuYA

Chez-moi aussi mais c'est pas le probléme : le probléme c'est de pouvoir faire de clics successif sur un même élément de la listbox..! tu le met où ton listIndex..:aie:

---

tout simplement juste avant le End Sub de l'évènement Click de la ListBox ..!

Citation:

---

Envoyé par ucfoutu

tout simplement juste avant le End Sub de l'évènement Click de la ListBox ..!

---

cela ne fonctionne pas sous excel 2002..!

Citation:

---

Envoyé par JackOuYA

cela ne fonctionne pas sous excel 2002..!

---

Bizarre ...
Quels sont donc les 2 messages successifs normalement reçus par ce code dans l'évènement click de ta listbox ListBox1 ? :

Code:

---

1 2	MsgBox "sélectionné : " & ListBox1.List(ListBox1.ListIndex) ListBox1.ListIndex = -1

---

EDIT : je viens d'essayer avec Excel 2000
Listbox1.Listindex = - 1 désélectionne bien
Mais également :
Listbox1 = Null ===>> déselectionne aussi

Merci à tous et plus particulièrement à Mydearfriend

D'abord pour la confirmation que le deuxième simple click ne fonctionne pas, alors que le deuxième double-clic fonctionne : que ceux qui ne lecroient pas essayent ! (effectivement, je ne comprends pas bien le listbox.index =-1).

Ensuite pour la proposition du mousedown/mouseup : c'est une solution qui fonctionne et qui a l'avantage de pouvoir utiliser la même ligne de la listbox pour pagedown et pageup.
Il me reste 2 petits problèmes :
1) il faut que la ligne de la listbox soit sélectionnée pour que le premier click fonctionne : j'ai un peu de mal avec le "selected" dans la listbox pour que la listbox s'affiche avec la ligne désirée sélectionnée.

2)quand les clics sont un peu rapides, certains sont inefficaces.

Mais on avance !! Merci encore

Pour mon point 1) c'est résolu : ListIndex = 0