Modifier une listbox dans un userform

Version imprimable

Bonjour,

Je permet de vous demander de l'aide, je vous expliques

J'ai récuperer un code vba pour plusieurs selections dans une listbox,

sur le userform j'ai mis une listbox avec un seul choix donc le code fonctionne mais n'ai pas très claire.

Est-ce possible de me dire se que je dois retirer qui est inutile?

Code:

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
28
29
30
31
32
33
34
35
36
37
 
Option Explicit
 
Private Sub CommandButton1_Click()
Dim i As Byte
Dim ValeurARetourner As String
 
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            ValeurARetourner = ValeurARetourner & ListBox1.List(i) & " & "
        End If
    Next i
 
Range("C2") = Left(ValeurARetourner, Len(ValeurARetourner) - 3)
Range("C3").Activate
UserForm1.Hide
Unload UserForm1
End Sub
 
Private Sub ListBox1_Click()
 
End Sub
 
Private Sub UserForm_Initialize()
Dim i As Integer, Derlig As Integer
ListBox1.Clear
 
Derlig = Sheets("Services").Cells(65536, 5).End(xlUp).Row
    For i = 2 To Derlig
        ListBox1.AddItem Sheets("Services").Cells(i, 5).Value
    Next i
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            ListBox1.Selected(i) = False
        End If
    Next i
End Sub

Cordialement,

vincent

Useless

Code:

1
2
3
4
5
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            ListBox1.Selected(i) = False
        End If
    Next i

16/08/2013, 13h28
vins86

Merci EngueEngue,

Mais il y a une erreur à la ligne :

Code:

Range("C2") = Left(ValeurARetourner, Len(ValeurARetourner) - 3)

Le message d'erreur est: erreur d'execution '5':
argument ou appel de procedure incorrect

Cordialement,

Vincent.

Il faut essayer de faire son code pas prendre un code tout fait qui ne marchera bien sûr pas.

Ne sachant pas ce que tu veux faire je ne peux pas t'aider.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub CommandButton1_Click() Dim i As Byte For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then Range("C2") =ListBox1.List(i) Range("C3").Activate exit for End If Next i UserForm1.Hide Unload UserForm1 End Sub

16/08/2013, 16h22
parmi
Tu peux réduire à ceci, plutôt que boucler et utiliser AddItem
Code:

1 2 Derlig = Sheets("Services").Cells(Rows.Count, 5).End(xlUp).Row ListBox1.List = Sheets("Services").Range("E2:E" & DerLig).Value
Et comme déjà dit, rien ne sert de vérifier si un item est sélectionné dans le Initialize. Comme tu viens juste de remplir la liste aucun élément ne peut être sélectionné...
16/08/2013, 16h25
vins86

Escuse moi.

J'explique, je veux dans une listbox une colonne d'une feuille

et quand je clique sur un nom dans la listbox et puis ok se nom se met dans la cellule C2

Désolé encore

cordialment,

vincent.

Code:

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
 
Range("C2") = Listbox1.value
 
UserForm1.Hide
 
End Sub

Avec la proposition pertinente de parmi:

Code:

1
2
3
4
5
6
Private Sub UserForm_Initialize()
Dim i As Integer, Derlig As Integer
ListBox1.Clear
 Derlig = Sheets("Services").Cells(Rows.Count, 5).End(xlUp).Row
ListBox1.List = Sheets("Services").Range("E2:E" & DerLig).Value
End Sub

16/08/2013, 16h32
vins86

Ah merci beaucoup.

Sa marche parfaitement,

Et le code est meiux. je vaisd l'étudier.

Merci beaucoup.

Cordialement,

Vincent