Listbox vers cellules Résolu/Fermé

Question

Bonjour, 

Je souhaiterais insérer toutes les valeurs d'une listbox dans des cellules.

j'ai essayé d'insérer le nombre de ligne de la listbox dans ma feuille puis d'y copier mes données mais je suis bloqué a la première étape.

merci de m'aider

Configuration: Windows XP / Firefox 10.0.2

f894009 · Answer

Bonjour,
Les dites valeurs de listbox sortent d'ou????

math · Answer

Dans une userform, j'ai une listbox  3 colonnes remplie de valeurs et lorsque je clique sur le bouton "valider" les valeurs sont écrites dans des cellules distinctes.

voila mon objectif.

f894009 · Answer

Re,
Juste un detail:

j'ai une listbox 3 colonnes remplie de valeurs et lorsque je clique sur le bouton "valider" les valeurs sont écrites dans des cellules distinctes.


Vous voulez copiez toutes les valeurs de la listbox ou seulement celles qui sont selectionnees????

math · Answer

toutes les valeurs.

f894009 · Answer

Re,


Exemple:
Feuil1 pour l'onglet
E-F-G pour les colonnes

Private Sub CommandButton1_Click()
 Dim x As Integer, Nb_L_ListBox As Integer
 With Worksheets("feuil1")
  For x = 1 To Me.ListBox1.ListCount
    .Cells(x, 5) = Me.ListBox1.List(x - 1, 0)
    .Cells(x, 6) = Me.ListBox1.List(x - 1, 1)
    .Cells(x, 7) = Me.ListBox1.List(x - 1, 2)
  Next x
  End With
End Sub

Vous modifierez pour vous

Bonne suite

michel_m · Answer

bonjour 

démo de principe 
 remplissage de la listbox multicolonne à partir d'un modèle sur la feuille (H5:J9") et restitution de la list1 dans la feuille 

'Remplissage 
Private Sub UserForm_Initialize()
tablo = Sheets(1).Range("H5:J9").Value
ListBox1.Column() = Application.Transpose(tablo)
End Sub 

'restitution 
Private Sub CommandButton1_Click()
    With ListBox1
        Sheets(1).Range(Cells(1, 1), Cells(.ListCount, 3)) = .List
    End With
End Sub

la maquette 

https://www.cjoint.com/?3BBqV6Cz239

edit: inversé la transposition !!!!


 Michel

math · Answer

Merci pour vos réponses, j'essaye ça tout de suite.

math · Answer

la formule de restitution fonctionnement parfaitement. Merci à vous 2!

je souhaite insérer le nombre de ligne correspondant au Listcount de ma listbox.

Toutes mes données restituées seront les unes sous les autres

math · Answer

merci beaucoup de votre aide, je vais essayer de trouver la suite par moi même.

f894009 · Answer

Re,

empilage:

colonne E1 a Ex

listbox;
E1,colonne1 1ere ligne
E2,colonne2
E3,colonne3
E4,colonne1 2eme ligne
E5,colonne2

Private Sub CommandButton1_Click()
Dim x As Integer, y As Integer
With Worksheets("feuil1")
For x = 1 To Me.ListBox1.ListCount
y = (x * 3) - 2
.Cells(y, 5) = Me.ListBox1.List(x - 1, 0)
.Cells(y + 1, 5) = Me.ListBox1.List(x - 1, 1)
.Cells(y + 2, 5) = Me.ListBox1.List(x - 1, 2)
Next x
End With
End Sub

pour la version de michel_m, je vais chercher pour voir

Bonne suite

math · Answer

voici un exemple de l'outil:

j'ouvre mon userform,

dans une combobox:  G52
dans ma listbox:

J04    5    Gris
J09    8    Noir
J02   10   rouge

click sur le bouton -> insertion dans cellules:

G52    J04    5    Gris
G52    J09    8    Noir
G52    J02   10   rouge

j'ouvre à nouveau mon userform,

dans une combobox:  G53
dans ma listbox:

J03    8    vert
J09    2    bleu
J02    1   jaune
J09    5    orange

click sur le bouton-> insertion dans cellules:

G53    J03    8    vert
G53    J09    2    bleu
G53    J02    1   jaune
G53    J09    5    orange
G52    J04    5    Gris
G52    J09    8    Noir
G52    J02   10   rouge
.

j'ai la formule pour insérer les valeurs correctement mais il me manque celle pour insérer le nombre de lignes suffisante exemple: pour le G52:insérer 3 lignes, pour le G53 4 lignes.

je suis pas très compétent en Visual basic. Comment ajouter la variable Liscount à celle d'insertion?

merci

michel_m · Answer

Avant de partir 

sans boucles inutiles (mais ca marche aussi) 
Private Sub CommandButton1_Click()
     Dim lig as byte
     lig = ListBox1.ListCount 
     Rows("1:" & lig).Insert 
     With Sheets(1) 
        .Range(.Cells(1, "C"), .Cells(lig, "E")) = ListBox1.List 
        .Range(.Cells(1, "A"), .Cells(lig, "A")) = ComboBox1 
    End With 
End Sub

 Michel

math · Answer

Génialllll!!!
merci beaucoup!

Listbox vers cellules

13 réponses

Discussions similaires