Discussion :

[jojo86]

Bonsoir,
Je voudrais annuler la sélection d'un item d'une listbox dans l'évènement Change.

Lorsque l'utilisateur change de valeur, il y a un filtre qui est effectué, et si l'item n'est pas sélectionnable, un message apparait et c'est à se moment là que je veux remettre à 0 la sélection, sauf que ça ne fonctionne pas.

Voici un exemple tout bête :

Code :

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

1
2
3
4
5
6
7
8
Private Sub ListBox1_Change()
If ListBox1.ListIndex = 1 Then
    'ListBox1.Enabled = False 'en commentaire car ça change rien
    MsgBox "Coucou la liste = 1"
    ListBox1.ListIndex = -1
    'ListBox1.Enabled = True
End If
End Sub

La macro passe même deux fois sur l'évènement...
Avez vous une idée?

Merci beaucoup de votre aide.

[jojo86]

Solution de contournement trouvée.
Je déclare une variable boolean dans mon module, si la condition de selection n'est pas autorisée, je gère le truc dans l'evenement MouseUp :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public annulation As Boolean
 
Private Sub ListBox1_Change()
If ListBox1.ListIndex = 1 Then
    annulation = True
End If
End Sub
 
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If annulation Then
    ListBox1.ListIndex = -1
    annulation = False
    MsgBox "Coucou, il est interdit de faire ce choix !!!"
End If
End Sub

J'ai trouvé que ça en attendant.
Cordialement,

[jojo86]

Bonsoir, je suis de nouveau bloqué.
La methode que je livre ci-dessus fonctionne si je fais :

Code :

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

ListBox1.ListIndex = -1

Mais si je veux repositionner la sélection sur une autre ligne, le code est inopérant. Exemple :

Code :

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

ListBox1.ListIndex = 0 'cette ligne la n'est pas selectionnée...

Je suis dans l'impasse. Si vous avez quelque chose, merci a vous!

Bonne nuit! :-)

[Gorzyne]

Salut Jojo triste que personne ait répondu à ton message à l'époque

j'ai le même problème j'ai essayé de m'en sortir avec enableevents = False mais il execute quand même la macro évenementielle malgré le enableevents = False

[Philippe Tulliez]

Bonjour,
L'instruction Application.EnableEvents n'a pas d'effet sur les contrôles du UserForm
Pour éviter de passer par des instructions présentes dans un Event, il faut utiliser une variable booléenne
Lorsque l'on modifie la propriété ListIndex du contrôle ListBox on déclenche inévitablement un événement de changement (Change)
J'utilise l'événement Click pour gérer la sélection d'un ou plusieurs éléments de la liste.

[unparia]

Coucou

Bonjour,
.....
J'utilise l'événement Click pour gérer la sélection d'un ou plusieurs éléments de la liste.

Et c'est le seul évènement à considérer lorsque l'on veut déterminer de manière orthodoxe la sélection faite. L'évènement Change n'étant, quant à lui, que la conséquence et non la cause.

Ce distinguo est d'autant plus important à faire, que la "conséquence" (le Change) peut avoir une toute autre cause que celle d'une sélection (le clic).