Discussion :

[Invité]

Bonjour,

J'effectue des saisies dans des textboxs, je voudrais avec un bouton les transférer dans une listbox.

M'inspirant des certains fichiers et tutoriel, je suis parvenu à faire ceci sur l'userform2, à l'initialisation sa listbox est vide.

Par contre celui qui me concerne, à l'initialisation sa listbox n'est pas vide (propriété rowsource= bd qui est une plage dynamique nommée).

Je n'ai pas compris pourquoi, ça fonctionne pour l'un et pas pour l'autre. C'est surement en rapport avec la source de la listbox.

Si c'est ça, alors quelle serait la bonne solution pour y parvenir.

En fait, je voudrais rajouter des items à la listbox en utilisant un bouton. Puis avant de fermer l'userform, transférer toute la listbox sur la feuille.

en vous remerciant.

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
17
18
19
20
21
22
23
24
Private Sub CmdValider_Click()
    i = UserForm2.ListBox1.ListCount
 
    UserForm2.ListBox1.AddItem
    UserForm2.ListBox1.Column(0, i) = TextBox1
    UserForm2.ListBox1.Column(1, i) = TextBox2
    UserForm2.ListBox1.Column(2, i) = TextBox3
 
    'vider textboxs------------
    For i = 1 To 3
        UserForm2.Controls("textbox" & i) = ""
    Next
 
    UserForm2.TextBox1.SetFocus
 
End Sub
 
Private Sub UserForm_Initialize()
'UserForm2
    With ListBox1
        .ColumnCount = 3
        .ColumnWidths = "50;50;50"
    End With
End Sub

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub CmdExit_Click()
    Unload Me
End Sub
 
Private Sub CmdVersListBox_Click()
    i = UserForm1.ListBox1.ListCount
 
    UserForm1.ListBox1.AddItem
    ListBox1.Column(0, i) = TextBox1
    ListBox1.Column(1, i) = TextBox2
    ListBox1.Column(2, i) = TextBox3
    ListBox1.Column(3, i) = TextBox4
    ListBox1.Column(4, i) = TextBox5
    ListBox1.Column(5, i) = TextBox6
    ListBox1.Column(6, i) = TextBox7
    ListBox1.Column(7, i) = TextBox8
    ListBox1.Column(8, i) = TextBox9
    ListBox1.Column(9, i) = TextBox10
    ListBox1.Column(10, i) = TextBox11
    ListBox1.Column(11, i) = TextBox12
    ListBox1.Column(12, i) = TextBox13
 
    For i = 1 To 13
        Controls("textbox" & i) = ""
    Next
 
    'ListBox1.Selected(ListBox1.ListCount - 1) = True       'selectionner dernière item de la listbox
 
    TextBox3.SetFocus
 
End Sub

[Thautheme]

Bonjour Cathodique, bonjour le forum,

Chaque fois que dans ce forum j'ose dire que la propriété [RowSource] d'une ComboBox/ListBox c'est de la m... je me fais reprendre. Il n'empêche que si tu alimentes ta ListBox1 dynamiquement (en effaçant bien sûr sa propriété {RowSource]) avec :

Code :

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

1
2
3
Private Sub UserForm_Initialize()
Me.ListBox1.List = Range("BD").Value
End Sub

Tu n'auras plus de problème. Seul préjudice, la propriété [ColumnHeads] qui ne fonctionne plus mais tu peux facilement la remplacer par des labels...

[Invité]

Bonsoir Thautheme,

Je te suis très reconnaissant. En effet, pour la propriété ColumnHeads je peux m'en passer.

C'est vraiment super, ça fait 3 jours que je cherche une solution.

Pourrais-tu m'orienter pour transférer tous les items de la listbox vers la BD.

Encore merci, bon week-end.

[Thautheme]

Bonsoir Cathodique, bonsoir le forum,

Essaie comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CmdListToXl_Click()    'transfert listbox vers feuille xl
Dim BD As Object
Dim PLV As Integer
 
Set BD = Sheets("bd")
PLV = BD.Cells(Application.Rows.Count, 1).End(xlUp).Row + 1
For I = 1 To 13
    BD.Cells(PLV, I).Value = Me.Controls("TextBox" & I).Value
Next I
Unload Me
End Sub

[Philippe Tulliez]

Bonjour Thautheme,

Chaque fois que dans ce forum j'ose dire que la propriété [RowSource] d'une ComboBox/ListBox c'est de la m... je me fais reprendre.

Je trouve très excessif ce qualificatif pour cette propriété qui est d'une simplicité quant à son utilisation.
En effet mis à part le chargement d'une liste avec condition, il me semble que cette propriété offre de nombreux avantages et j'aimerais connaître la raison qui te pousse à décrier son utilisation.

[Invité]

Rebonsoir Tautheme,

Je te remercie beaucoup mais ce n'est pas les textboxs que je voulais transférer. Je voudrais transférer tout le contenu de la ListBox.

Je sais mettre une plage de la feuille excel dans un tableau mais pas une listbox. Enfin, j'ai pensé aux tableaux car le transfert est très rapide.

Encore merci.

je me suis inspiré d'un code pour transférer toutes les lignes de la listbox avec 2 boucles.

par contre je n'ai pas réussi en utilisant un tableau. voici le code ça pourrait servir

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CmdListToXl_Click()    'transfert listbox vers feuille xl
Dim i As Long, j As Long
i = UserForm1.ListBox1.ListCount
 
For i = 0 To ListBox1.ListCount - 1
For j = 1 To 13
    Cells(i + 2, j) = ListBox1.List(i)
    Cells(i + 2, j) = ListBox1.Column(j - 1, i)
    Next j
Next i
End Sub

Un coup de pousse pour le transfert avec tableau si c'est faisable. Merci.

Bonne soirée à tous!

une autre méthode mais avec les tableaux que je ne maitrise pas beaucoup, niet je n'ai rien pu faire.

Code :

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

1
2
3
Sub ListBoxToSheet()
Worksheets(1).Range("A2").Resize(ListBox1.ListCount, 13).Value = ListBox1.List()
End Sub

J'ai trouvé ce code mais je n'arrive pas à l'adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub CopyFromArray()
Dim TheArray As Variant
Dim TheRange As Range
 
TheArray = Me.ListBox1.List
 
Set TheRange = Range(Cells(2, 1), Cells(UBound(TheArray) + 1, 1))
 
TheRange = TheArray
End Sub

j'ai executé pas à pas et utilisé la fenêtre des variables locales, ayant 3 lignes dans la listbox (en haut du module option base 1)

on a TheArray(1) ------> variant(0 to 12)
TheArray(2) ------> variant(0 to 12)
TheArray(3) ------> variant(0 to 12)
Alors je n'ai pas compris grand chose, je pense que c'est au niveau de la ligne set TheRange que ça cloche.

Merci de me donner un coup de pouce.

Bonne soirée

[Thautheme]

Bonjour le fil, bonjour le forum,

@ Philippe

Tu as raison Philippe j'ai sans doute été excessif. Pourtant au départ je voulais écrire grosse m... Mais je me suis dit que là, ça serait "excessif"... Je plaisante mais je considère que la propriété [RowSource] ne peut-être utilisée qu'avec des données fixes (les jours de la semaines, les mois, etc). Dès qu'il s'agit de données dynamique je la bannis... Tu me demandes quelle raison me pousse a décrier cette méthode et je te réponds : ce fil par exemple !

@ Cathodique
Ton code modifié :

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
17
18
19
20
21
22
23
24
Private Sub UserForm_Initialize()
Me.ListBox1.List = Range("bd").Value
End Sub
 
Private Sub CmdVersListBox_Click()
Dim I As Integer
 
UserForm1.ListBox1.AddItem
For I = 0 To 12
    ListBox1.Column(I, Me.ListBox1.ListCount - 1) = Me.Controls("TextBox" & I + 1).Value
    Controls("textbox" & I + 1).Value = ""
Next
End Sub
 
Private Sub CmdListToXl_Click()    'transfert listbox vers feuille xl
Dim tc As Variant
 
tc = Me.ListBox1.List
Sheets("bd").Range("A2").Resize(UBound(tc, 1) + 1, UBound(tc, 2) + 1) = tc
End Sub
 
Private Sub CmdExit_Click()
    Unload Me
End Sub

Toutefois il me semble que tu prends le problème à l'envers...