Discussion :

[froggyaz]

Bonjour,

J'ai une combobox qui possede une soixantaine d'entrees, et offre la possibilite de selection multiple. Comment faire pour exporter les differents choix vers une feuille excel?

En vous remerciant.
Fred.

[ritchie23]

Slt,

Code :

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

1
2
3
4
 
pour i allant de 0 à ComboBox.Count - 1
Range("A" & i) = ComboBox.list(i) ' on stocke les résultats dans la 1° colonne
next i

Ritchie

[zazaraignée]

Un ComboBox multiselect ? Tu es certain ? Ce n'est pas plutôt un ListBox ?

[ritchie23]

Eh oui, On peut récupérer toutes les données d'une combobox dans Excel ou récupérer la donnée sélectionnée, mais pour moi, on ne peut pas sélectionner plusieurs données en même temps pour une combobox. Ou alors, c'est une listbox.
Ritchie

[ritchie23]

Un ptt exemple pour récupérer tous les éléments d'une combobox

(mettre une combobox et un commandbutton sur une userform)

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
 
 
Private Sub CommandButton1_Click()
For i = 0 To ComboBox1.ListCount - 1
    Range("A" & i + 1).Value = ComboBox1.List(i)
Next i
End Sub
 
Private Sub UserForm_Activate()
    ComboBox1.AddItem
    ComboBox1.List(0) = "A"
    ComboBox1.AddItem
    ComboBox1.List(1) = "B"
    ComboBox1.AddItem
    ComboBox1.List(2) = "C"
End Sub

[froggyaz]

bonjour Zaza,

oui effectivement, c'est bien d'une listbox dont il s'agit. mes confuses.

Fred

[zazaraignée]

@ ritchie23
Avant de te lancer dans du code et des exemples... attends la réponse de notre ami... D'autant plus que la source d'un ComboBox est déterminé par sa propriété RowSource, ce qui rend la méthode AddItem inutile...

Le problème a été traité souvent ici, mais surtout dans le forum VB6. C'est la même procédure en VBA.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            ActiveCell = ListBox1.List(i)
            ActiveCell.Offset(1, 0).Select
        End If
    Next
End Sub

[ritchie23]

Bon, et bien maintenant qu'on a la réponse, j'ai un morceau de code qui pourrait t'inspirer :

Code :

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

1
2
3
4
5
6
7
 
 
        For i = 0 To ListBoxServsup.ListCount - 1
            If ListBoxServsup.Selected(i) Then
                Range("A"& i +1).value = ListBoxServsup.list(i)
            End If
        Next i

Ritchie

[froggyaz]

Ritchie,

Merci beaucoup pour la derniere proposition, c'est effectivement la direction que je recherchai.
Fred.