Listbox vers cellules

Bonjour,

Donc
1/ chaque fois que tu appuies sur le bouton, la totalité de la listbox est copiée dans une seule cellule avec plusieurs lignes suivant le nombre de lignes dans la listbox ?
2/ si G52 et G53 sont des adresses de cellules pourquoi G53 est au dessus de G52 ?

Merci d'être précis et exhaustif dans tes explications: imagine un peu ce que cela te couterait si tu n'avais pas affaire avec des bénévoles....

Bonjour,

c'est difficile d'expliquer à distance sans support, je m'excuse de la perte de temps qui vous est occasionné.

1/ A chaque appuies sur le bouton, la totalité de la listbox est copiée dans différentes cellules
2/ le G52 et G53 ne sont pas des adresses de cellule, ce sont des valeurs exemple.

mon exemple était maladroit, je l'ai donc refait avec les adresses des cellules:

j'ouvre mon userform,

dans une combobox: REP01
dans ma listbox:

pomme 5 Gris
poire 8 Noir
banane 10 rouge

click sur le bouton -> insertion dans cellules:

A C D E F
1 REP01 pomme 5 Gris
2 REP01 poire 8 Noir
3 REP01 banane 10 rouge
4

j'ouvre à nouveau mon userform,

dans une combobox: REP02
dans ma listbox:

Ananas 8 vert
kiwi 2 bleu
orange 1 jaune
citron 5 orange

click sur le bouton-> insertion dans cellules:
A C D E F
1 REP02 Ananas 8 vert
2 REP02 kiwi 2 bleu
3 REP02 orange 1 jaune
4 REP02 citron 5 orange
5 REP01 pomme 5 Gris
6 REP01 poire 8 Noir
7 REP01 banane 10 rouge


en espérant qu'il soit plus explicite!
.

OK, c'est bon: restitution sur 4 colonnes (D,E,F)et N lignes suivant la listbox; compilation au dessus de la présente
ajout à chaque ligne de la valeur de la combo

c'est dans le principe que t'avais proposé F89...4 (bonjour) et moi:reste l'ajout combo et la compilation au dessus

Suis absent cet après midi...

pour te familiariser avec les userform et contrôles, un tuto complet (presque)
https://silkyroad.developpez.com/VBA/ControlesUserForm/
https://silkyroad.developpez.com/VBA/UserForm/

code pour insérer les valeurs Listbox:

Dim x As Integer, Nb_L_ListBox As Integer
With Worksheets("feuil1")
For x = 1 To Me.ListBox1.ListCount
.Cells(x + 1, 3) = Me.ListBox1.List(x - 1, 0)
.Cells(x + 1, 4) = Me.ListBox1.List(x - 1, 1)
.Cells(x + 1, 5) = Me.ListBox1.List(x - 1, 2)
Next x

il fonctionne correctement
----------------------------------------------------------------------------------------------------------------------------
code pour insérer le nombre de ligne:

Dim y As ...?
For y =Listbox1.ListCount
Rows("1:y")
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

--------------------------------------------------------------------------------------------------------------------------

Bonjour,

J'aimerais pouvoir activer une feuille excel selon la valeur rentrer dans une textbox.

J'ai tenter

Sheets("TextBox7.Text").Activate

mais cela ne fonctionne pas..

Merci d'avance pour votre aide

Re

Merci