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.
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.
Slt,
Ritchie
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
Un ComboBox multiselect ? Tu es certain ? Ce n'est pas plutôt un ListBox ?
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
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
bonjour Zaza,
oui effectivement, c'est bien d'une listbox dont il s'agit. mes confuses.
Fred
@ 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
Bon, et bien maintenant qu'on a la réponse, j'ai un morceau de code qui pourrait t'inspirer :
Ritchie
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,
Merci beaucoup pour la derniere proposition, c'est effectivement la direction que je recherchai.
Fred.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager