Discussion :

[Crapitouille]

Bonjour à tous,

C'est la première fois que je poste sur ce forum je vais en profiter pour féliciter l'ensemble
des participants non dans le but que l'on réponde plus facilement à ma question mais
réellement pour la qualité du site.
En effet je fait quelques macro sous excel en VBA et régulièrement je me sert des FAQ, du forum... de developpez.net car c'est sur ce site que je trouve le plus d'info pertinante.



J'en viens à ma question,
Dans un formulaire j'ai deux listbox. Lorsqu'on clique sur un choix de la deuxième liste
mon code ce déroule sans problème mais arrivé à la fin je souhaite que le choix fait par
l'utilisateur soit désélectionné.
Dans la FAQ Excel j'ai trouvez le code suivante: UserForm1.ListBox2.ListIndex = -1
Cela fonctionne parfaitement pour la première liste (celle qui ne déroule pas le code)
mais impossible d'obtenir le même résultat pour la liste dont le code est en fin d'exécution.
Ce morceau de code réactive l'ensemble du code (comme si l'utilisateur avez fait un choix dans la liste).
En poussant plus mes recherches j'ai tentez la chose suivante:
UserForm1.ListBox2.Selected(2) = False
(en supposant que l'utlisateur a choisit l'item 3)
UserForm1.ListBox2.ListIndex = -1
mais sans bon résultat => Le code repart du début
La seule différence que je constate entre la liste 1 & 2 c'est que la deux en plus d'avoir
le choix de l'utilisateur "grisé" il est aussi encadré en pointillé (fait que ce soit le choix "actif").
J'ai tenté d'être le plus clair possible mais c'est pas évident.

Une réponse à ma question? une demi réponse? un tiers de réponse? Merci d'avance

Crapitouille.

[laetitia]

bonjour Crapitouille le forum peut etre un truc comme cela !!!

Code :

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

1
2
3
Private Sub ListBox1_Click()
If ListBox1.ListIndex = ListBox1.ListCount - 1 Then Exit Sub
End Sub

[Qwazerty]

Salut et bienvenu
Pas facile sans code, mais tu doit avoir un code qui s'execute quand tu selectionne une ligne de ta listBox2, donc quand tu fais listindex = -1, le code s'execute.
Si c'est le cas il te suffit de mettre au debut de ton code

Code :

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

If ListBox2.listindex = -1 then Exit Sub

Ainsi ton code ne s'executera que si une ligne est selectionné.
En esperant t'avoir apporté une reponse, une demi reponse ou un quart de reponse
A++
Qwaz

[Crapitouille]

Merci à vous !

Effectivement Qwazerty j'ai un code qui s'exécute quand je sélectionne une ligne de la listBox2.
Vos réponses me permettent effectivement de stopper la reprise du code
mais cela ne désélectionne pas le choix fait par l'utilisateur dans la liste2 malgré l'utilisation du code
UserForm1.ListBox2.ListIndex = -1
ou
UserForm1.ListBox2.Selected(2) = False (en supposant que l'utilisateur a choisit l'item 3)
UserForm1.ListBox2.ListIndex = -1
en fin de procédure.

Je n'ai pas posté mon code car il fonctionne bien excepté ce problème.

[Qwazerty]

Re
Ben la comme ca je vois pas, tu dois avoir un paramètre différent entre tes 2 listboxs ou quelque chose dans ton code qui reselectionne une entré de ta listbox2.
++
Qwaz

[laetitia]

rebonjour le fil le forum en recuperant le dernier nom de la liste dans l exemple "titi" autrement recuperer le dernier nom dans une variable

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub ListBox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim x As Long
For x = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(x) = True Then
If ListBox2.List(x) = "titi" Then
If x < ListBox2.ListCount - 1 Then
ListBox2.Selected(x + 1) = True
 Else
ListBox2.Selected(x - 1) = True
End If: Exit Sub
Else
Exit For: End If: End If
Next x
End Sub

[Qwazerty]

Re
Essai de nous mettre un fichier exemple
++
Qwaz