exportation sélection listbox

aeryne · 4 Juin 2015

Bonjour
J'ai un petit souci pour un userform que je suis en train de monter.
je veux sélectionner des choix dans une listbox qui ensuite m'envoie ces choix dans certaines cellules.
J'ai essayé de mon coté. la solution n'est pas idéale et il y a un bug qui n’empêche pas l'action.
Merci de vos conseils et de votre aide

camarchepas · 4 Juin 2015

Re : exportation sélection listbox

Bonjour ,

A modifier comme ceci

Code:

Private Sub CommandButton1_Click()


 Dim i As Integer
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            ListBox2.AddItem ListBox1.List(i)
        End If
    Next i
    
Dim x As Integer, Nb_L_ListBox As Integer
With Worksheets("Feuil2")
For x = 1 To Me.ListBox2.ListCount
.Cells(2, 1 + x) = ListBox2.List(x - 1, 0)
Next x
End With
    
UserForm15.Hide
Unload UserForm15
    
End Sub

aeryne · 4 Juin 2015

Re : exportation sélection listbox

super merci
j'ai passé tellment de temps que je ne voyais plus l'erreur 🙂

exportation sélection listbox

aeryne

Guest

Pièces jointes

camarchepas

XLDnaute Barbatruc

aeryne

Guest

Discussions similaires

exportation sélection listbox

aeryne

Guest

Pièces jointes

camarchepas

XLDnaute Barbatruc

aeryne

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency