Discussion :

[Croustidinho]

Bonjour à tous,
Tout d'abord je suis novice sur VBA et sur ce forum. Je ne sais même pas si je suis au bon endroit pour poser ma question

J'ai écrit du code qui, pour chaque mot d'une liste de mot classés dans une colonne d'une feuille d'un classeur excel (qui regroupe les mots d'un document), vérifie la présence du mot dans une autre feuille du même classeur (il s'agit d'une sorte de dictionnaire, ou des cellules sont marquées d'une étoile "*" en fonction des champs d'application du mot). Si le mot est inconnu, un UserForm s'ouvre afin de demander à l'utilisateur que faire du mot (un UserForm s'ouvre donc pour chaque mot inconnu) et en particulier choisir quels sont les champs d'application du mot (afin d'intégrer le mot et ses champs d'application dans le dictionnaire). Mon maître de stage m'a demandé de faire basculer les champs sélectionnés d'une ListBox vers une autre (il tient au fait que ce soient des ListBox et non des CheckBox ou autres). J'ai donc implémenté une sub ListBox_Change, qui a donc pour but de transférer le champ sélectionné d'une ListBox à une autre dès l'instant qu'il est sélectionné (cette manœuvre est aussi implémentée dans le sens inverse au cas ou on se serait trompé). Mon problème réside dans le fait que, de manière aléatoire, cette sub s'exécute deux fois et transfert donc un mot et son suivant d'une ListBox à l'autre. Cependant ce phénomène suit tout de même quelques "règles" :

-Pour une liste de mot à rechercher dans le dictionnaire, le problème apparaît pour toute la liste ou n'apparaît pas
-Le problème apparaît jusqu'ici soit sur le transfert de la ListBox1 vers la ListBox2, soit sur le transfert inverse, mais pas les deux
-Le problème n'apparaît que lors du premier click dans la ListBox concernée (mais quand même à chaque ouverture du UserForm)

Cela fait un moment que je cherche dans mon code et sur internet et je ne trouve pas d'où vient l'erreur. J'ai quand même remarqué plusieurs choses. La première étant que si le ListIntex est paramétré à 2 ou plus, alors l'erreur est systématique (je ne vois aucune logique la dedans). Ensuite, si la ListBox est paramétrée en sélection unique, le premier click transfert non pas deux, mais tous les éléments de la ListBox. Enfin, en déboguant pas à pas, je me suis rendu compte que la sub de transfert s'exécutait deux fois (elle transfert un élément de la ListBox par exécution)

Je vous joint ci dessous mon code (je sais pas comment le mettre dans les petites cases ou c'est tout joli) qui selon moi ne pose pas problème :

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
16
Private Sub ListBox1_Change()
    Dim i As Integer
    i = 0
    Do While i < taille1
        If ListBox1.Selected(i) = True Then
            ListBox2.AddItem ListBox1.List(i)
            ListBox1.RemoveItem i
            i = i - 1
            Exit Sub
        End If
        i = i + 1
        taille1 = ListBox1.ListCount
    Loop
    taille2 = ListBox2.ListCount
    ok.SetFocus
End Sub

Je tiens à préciser que les variables qui ne sont ni initialisées ni déclarées sont des variables globales définies dans un module.
Je ne sais plus quoi penser de cette erreur, HELP!!!

[Theze]

Bonjour,

Le fait d'utiliser RemoveItem génère la procédure événementielle Change() donc elle sera exécutée deux fois, une première fois à la sélection de l'élément et une seconde fois à la suppression de ce dernier.
Il te faut utiliser une autre procédure événementielle comme par exemple 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
16
17
18
19
20
21
22
 
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
    If ListBox1.ListIndex > -1 Then
 
        ListBox2.AddItem ListBox1.List(ListBox1.ListIndex)
        ListBox1.RemoveItem (ListBox1.ListIndex)
 
    End If
 
End Sub
 
Private Sub ListBox2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
    If ListBox2.ListIndex > -1 Then
 
        ListBox1.AddItem ListBox2.List(ListBox2.ListIndex)
        ListBox2.RemoveItem (ListBox2.ListIndex)
 
    End If
 
End Sub

[patricktoulon]

re
bonjour theze

ou tout simplement l'evenement click
il y a moulte exemples de transfert de list a list
autant pour moi l'evenement click est bloquant

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
16
17
Private Sub UserForm_Activate()
    ListBox1.List = Array(10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
End Sub
'Private Sub ListBox1_Click(): transfert ListBox1, ListBox2: End Sub
'Private Sub ListBox2_Click(): transfert ListBox2, ListBox1: End Sub
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    transfert ListBox1, ListBox2
End Sub
Private Sub ListBox2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    transfert ListBox2, ListBox1
End Sub
 
Sub transfert(ByRef list1 As Object, ByRef list2 As Object)
    With list1
        If .ListIndex <> -1 Then list2.AddItem .List(.ListIndex): .RemoveItem (.ListIndex)
    End With
End Sub

@theze

[Theze]

Bonjour Patrick,

Click est aussi appelé deux fois et génère une erreur au second appel, j'ai testé avant de répondre

[patricktoulon]

re
comment tu a testé le 2d declanchement chez moi j'ai une erreur a remove car la liste a le focus ??
il faut que je revoie ca ca me titille

edit:
Ok j'ai vu!!: j'ai gérer l'erreur et effectivement le click est generé une 2d fois

[Theze]

En mettant un point d'arrêt !