Discussion :

[meumeu73.1]

Bonjour,

J'ai créé une Userform dans laquelle j'ai mis une list box qui est alimentée par la validation d'un bouton radio :

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 PopTotaleSte_Click()
 
    Dim i As Integer
    i = 2
 
    Dim colPopTotaleSte As New Collection
 
 
    Do While ThisWorkbook.Worksheets("Table_de_Droit").Range("K" & i).Value <> ""
        On Error Resume Next
 
        colPopTotaleSte.Add ThisWorkbook.Worksheets("Table_de_Droit").Range("K" & i).Value, CStr(ThisWorkbook.Worksheets("Table_de_Droit").Range("K" & i).Value)
 
        i = i + 1
    Loop
 
    For Each Item In colPopTotaleSte
        CSPEL.AddItem Item
    Next
 
 
End Sub

Ensuite dans ma userform, je valide ma sélection unique avec le code d'insertion dans ma feuille excel suivant :

Code :

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

1
2
3
4
5
6
        Dim n As Integer
        For n = 0 To CSPEL.ListCount - 1
            If (CSPEL.Selected(n) = True) Then
                Sheets("Nouveau").Cells(ligneFree, 3).Value = CSPEL.List(n)
            End If
        Next

cela fonctionne correctement, la seule chose, c'est que je voudrai que la donnée qui est écrite sur le fichier excel soit la colonne 2 de la list box (qui n'a pas été chargé lors du script de l'initialisation de la userform)

En sachant que j'ai un tableau avec le libellé (visible pour les utilisateur et qui est chargé dans la listbox) et le code (qui sera saisi sur la feuille excel après avoir sélectionné le libellé).

Comment je peux adapter mon code ? par avance merci.

[EngueEngue]

Code :

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

CSPEL.List(n,2)

[meumeu73.1]

j'ai modifié :

Code :

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

Sheets("Nouveau").Cells(ligneFree, 3).Value = CSPEL.List(n)

par

Code :

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

Sheets("Nouveau").Cells(ligneFree, 3).Value = CSPEL.List(n, 2)

cela ne fonctionne pas, faut il que je change ma sélection (premier script du Post) ? si oui comment, merci.

[meumeu73.1]

j'ai corrigé le code de chargement de la list par

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub PopTotaleSte_Click()
 
    CSPEL.Clear
 
 
With Sheets("Table_de_Droit")
    CSPEL.List = .Range("K2:L" & .Range("A65536").End(xlUp).Row).Value
End With
 
 
 
End Sub

c'est ok maintenant