Discussion :

[meumeu73.1]

Bonjour,

J'utilise une userform pour de la saisie, cette userform possède des listes en cascades. Lorsque je valides (avec le bouton ok), je récupère bien mes données sélectionnées dans ma feuille excel à un endroit bien défini.

Ce que je souhaite faire, c'est d'avoir un bouton Ajout, qui pourrai me permettre de ne pas sortir de la Userform, et qui m'ajouterai mes sélections les une en dessous de autres.

Par avance merci de votre aide.

[Daniel.C]

Bonjour,

Avec deux listboxes dont les données se coopient en colonnes A et B :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub cbAjout_Click()
    Dim Ligne As Long
    With Sheets("Feuil1")
        Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Cells(Ligne, 1) = Me.listbox1.Value
        .Cells(Ligne, 2) = Me.listbox2.Value
        'etc.
    End With
End Sub

[Daniel.C]

Erratum; mercatog vient de me le faire remarquer; il faut mettre :

Code :

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

Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row + 1

au lieu de :

Code :

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

Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row

[meumeu73.1]

Merci.

En fait, à la base, j'ai :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim I As Integer
    With Me.BU
    For I = 0 To .ListCount - 1
    If .Selected(I) = True Then
        If Range("A12") > 0 Then
            Range("A11").End(xlDown).Offset(1, 0).Value = .List(I)
            Else
            Range("A11").Offset(1, 0).Value = .List(I)
 
        End If
    End If
    Next I
    End With

Pour chacune de mes listebox

Je n'arrive pas à adapter le code que vous m'avez indiquer.

[Daniel.C]

Je ne suis pas sûr de bien comprendre... Tu veux la même chose que ton code, mais pour toutes tes listboxes ?

[meumeu73.1]

En fait, avec mon code, j'arrive à récupérer la sélection de ma listebox, tandis avec votre code, je n'y arrive pas ?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub cbAjout_Click()
    Dim Ligne As Long
    With Sheets("Feuil1") ' j'ai mis le nom de la feuille sur laquelle je veux mon résultat
        Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Cells(Ligne, 1) = Me.listbox1.Value  ' j'ai remplacé listbox1 par le nom de ma première listbox
        .Cells(Ligne, 2) = Me.listbox2.Value ' idem par le nom de ma deuxième listbox
        'etc.
    End With
End Sub

et le résultat est une feuille vide.