Discussion :

[vins86]

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 :

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
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

[EngueEngue]

Useless

Code :

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

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

[vins86]

Merci EngueEngue,

Mais il y a une erreur à la ligne :

Code :

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

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

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

Cordialement,

Vincent.

[EngueEngue]

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 :

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 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

[parmi]

Tu peux réduire à ceci, plutôt que boucler et utiliser AddItem

Code :

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

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é...

[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.

[EngueEngue]

Code :

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

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 :

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

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

[vins86]

Ah merci beaucoup.

Sa marche parfaitement,

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

Merci beaucoup.

Cordialement,

Vincent