Discussion :

[Devff]

Bonjour à toutes et tous,

J'utilise la méthode suivante pour sélectionner automatiquement un item choisi d'une listbox :

Code :

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

ListBox.Selected() = True

Au moment de récupérer les valeurs, certaines sont bien présentes alors que les autres listbox n'en renvoient aucune!
Ci-joint un exemple...

Je précise que la commande remplit bien son rôle en terme de sélection puisque les items de la liste sont bien en surbrillance. D'autre part, lorsque l'on sélectionne manuellement une valeur, là aussi aucun problème.
Cela ne se produit donc que lorsque l'on souhaite récupérer les valeurs sélectionnées par défaut.

Avez-vous une idée de la raison pour laquelle ça ne fonctionne pas ?

Merci à tous

[kiki29]

Salut, voir ici : Utiliser les contrôles dans un UserForm, en VBA Excel ainsi que la FAQ

[joe.levrai]

Bonjour,

le remplissage de tes listbox n'était pas optimisé, ça tient en moins de 10 lignes au vu de ton souhait
à contrario, la récupération des éléments sélectionnés était trop basique ... il fallait la complexifier un peu

voici

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
23
24
25
26
27
Private Sub UserForm_Initialize()
    With Me
        For i = 1 To 7
            With .Controls("ListBox" & i)
                .List = Range("TB_TEST[" & i & "]").Value
                .Selected(i) = True
            End With
        Next i
    End With
End Sub
 
Private Sub CommandButton1_Click()
With Me
    For i = 1 To 7
        With .Controls("ListBox" & i)
            For j = 1 To .ListCount
                If .Selected(j) = True Then
                    chaine = chaine & .List(j) & vbCrLf
                    Exit For
                End If
            Next j
        End With
    Next i
End With
 
MsgBox chaine
End Sub

si tu as du mal à comprendre la mécanique, même après avoir compris l'excellent tutoriel proposé par kiki, dis-moi ce que tu ne comprends pas


EDIT : du coup, j'en ai oublié la partie "comment faire pour que ma méthode fonctionne?", si tu souhaites rester sur ta méthode

Alors, tu vas aller dans l'aide pour la propriété BoundColumn et tu regardes à quoi ça correspond
ensuite tu mets cette propriété à 0 pour chaque listbox et tu lances ta procédure
tu remarqueras que le message n'indique plus des valeurs (en en oubliant certaines), mais qu'il renvoi la position de l'élément sélectionné, sans en oublier
et au final, tu ajustes un peu ta procédure :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
    MsgBox ListBox1.List(ListBox1.Value) & Chr(10) & _
           ListBox2.List(ListBox2.Value) & Chr(10) & _
           ListBox3.List(ListBox3.Value) & Chr(10) & _
           ListBox4.List(ListBox4.Value) & Chr(10) & _
           ListBox5.List(ListBox5.Value) & Chr(10) & _
           ListBox6.List(ListBox6.Value) & Chr(10) & _
           ListBox7.List(ListBox7.Value)
End Sub

Et là, tu auras sans doute compris que le code juste au dessus peut tout à fait remplacer celui que j'ai proposé plus haut
On aurait même pu faire une boucle dans ce dernier code ... sur la même méthode que le précédent.
Bref, fais tes courses, mais surtout n'oublie pas d'apprendre comment fonctionnent les recettes !!

[Devff]

Kiki, merci à toi pour le tuto.
Joe merci pour tes suggestions (il va sans dire que ton code est plus élégant !)
Pour la petite histoire je n'ai pas bien saisi pourquoi la propriété .value renvoit parfois un vide au lieu de la valeur sélectionnée.
Ça n'a pas l'air d'être une première: lien

Quoi qu'il en soit, le problème est résolu en utilisant la propriété .list ou .BoundColumn à zéro avec la ligne que tu suggères relative à ma "méthode" de départ.

Donc ... question résolue

Merci pour vos réponses