XL 2013 listbox1 vers listbox2 plus de 10 colonnes

CGU2022. · 3 Janvier 2022

Bonjour
J'ai ce code pour copier une ligne d'une listebox1 vers listebox2
mais ce code est limité a 10

quelqu'un à un autre code ?

Private Sub Cmd_ajoutarticlechantier_Click()
Dim ligne As Variant
Dim k As Integer
Dim i As Integer

i = ListBox1.ListIndex
ListBox2.AddItem ListBox1.List(i, 0)
For k = 1 To 9
ListBox2.List(ListBox2.ListCount - 1, k) = ListBox1.List(i, k)
Next

End Sub

Merci

patricktoulon · 4 Janvier 2022

Bonjour @job75
et oui comme je l'explique dans la ressource le clear vide tout mais ne supprime pas le dimensionnement meme au delà de 10 colonnes
parti de là tant que le userform est affiché tu peux faire ce que tu veux

a la place de

VB:

with listbox2
.columncount=20
'...etc..etc..
.ColumnWidths = Replace(Trim(Application.Rept("40 ", .ColumnCount + 1)), " ", ";")
 with

tu peux faire comme ça
'maintenant on pré dimensionne la listbox2 à 20 colonnes

Code:

'pour 20 colonnes 'on met une ligne avec un array de 1  a 20'
' dans cette exemple j'utilise l'astuce d'evaluate pour créer l'array
'ensuite on clear simplement la listbox '
'la dimension colonne restera tant que le userform est en show '
With ListBox2:
   .ColumnCount = 20...

job75 · 3 Janvier 2022

Bonsoir,

Effectivement avec la méthode AddItem on ne peut pas dépasser 10 colonnes.

Il faut utiliser la méthode .List :

VB:

Private Sub Cmd_ajoutarticlechantier_Click()
Dim a(), nlig&, ncol%, b(), i&, j%
a = ListBox2.List
nlig = UBound(a)
ncol = UBound(a, 2)
ReDim b(nlig + 1, ncol)
'---transfert des données de a dans b---
For i = 0 To nlig
    For j = 0 To ncol
        b(i, j) = a(i, j)
Next j, i
'---ajout de la ligne sélectionnée--
i = ListBox1.ListIndex
For j = 0 To ncol
    b(nlig + 1, j) = ListBox1.List(i, j)
Next
'---transfert dans ListBox2---
ListBox2.List = b
End Sub

A+

patricktoulon · 3 Janvier 2022

bonsoir
@job75

plus de 10 colonnes dans une listebox sans utiliser la propriété rowsource

bonjour a tous je l'ai donné sur le forum excel mais je met cette astuce ici aussi l'avantage de la propriété rowsource d'une listbox c'est que l'on peut avoir plus de 10 colonnes le désavantage c'est que la liste est immodifiable et elle nous ajoute les entete je vous propose les avantages...

www.excel-downloads.com

job75 · 3 Janvier 2022

Re, bonsoir patricktoulon,

Pour que la macro du post #2 fonctionne il faut qu'au départ ListBox2 ne soit pas vide.

Et qu'une ligne soit sélectionnée dans ListBox1.

Cette macro fonctionne dans tous les cas :

VB:

Private Sub Cmd_ajoutarticlechantier_Click()
Dim a(), nlig&, ncol%, b(), i&, j%
If ListBox2.ListCount Then
    a = ListBox2.List
    nlig = UBound(a)
Else
    nlig = -1
End If
ncol = ListBox2.ColumnCount - 1
ReDim b(nlig + 1, ncol)
'---transfert des données de a dans b---
For i = 0 To nlig
    For j = 0 To ncol
        b(i, j) = a(i, j)
Next j, i
'---ajout de la ligne sélectionnée--
i = ListBox1.ListIndex
If i = -1 Then Exit Sub 'si aucune sélection
For j = 0 To ncol
    b(nlig + 1, j) = ListBox1.List(i, j)
Next
'---transfert dans ListBox2---
ListBox2.List = b
End Sub

A+

patricktoulon · 3 Janvier 2022

re
oui avec un tableau de toute façon on fait ce que l'on veut en terme de colonne
ce que j'ai voulu te montrer c'est que l'on peut avoir plus de 10 colonne avec additem
tout simplement par ce que le clear ne supprime pas le dimensionnement qui a été fait avant avec un range ou une variable tableau

job75 · 3 Janvier 2022

patricktoulon à dit:
ce que j'ai voulu te montrer c'est que l'on peut avoir plus de 10 colonne avec additem

Pas compris, donne ton code avec AddItem sur ListBox2.

patricktoulon · 4 Janvier 2022

re
@job75 ci joint un fichier
un userform avec 2 listboxs et deux boutons
1 copier
2 transférer
les deux procèdent sans variable tableau avec additem
dans l'ordre pour copier et a reculons pour le transfert car on remove l'item transféré de la lisrbox1 après l'avoir transféré
pour info j'ai 20 colonnes
aucun problème de colonne au delà de 10 avec Additem

job75 · 4 Janvier 2022

Bonjour patricktoulon, le forum,

Merci, je ne savais pas qu'on pouvait prédimensionner le nombre de colonnes d'une ListBox.

A+

patricktoulon · 4 Janvier 2022

Bonjour @job75
et oui comme je l'explique dans la ressource le clear vide tout mais ne supprime pas le dimensionnement meme au delà de 10 colonnes
parti de là tant que le userform est affiché tu peux faire ce que tu veux

a la place de

VB:

with listbox2
.columncount=20
'...etc..etc..
.ColumnWidths = Replace(Trim(Application.Rept("40 ", .ColumnCount + 1)), " ", ";")
 with

tu peux faire comme ça
'maintenant on pré dimensionne la listbox2 à 20 colonnes

Code:

'pour 20 colonnes 'on met une ligne avec un array de 1  a 20'
' dans cette exemple j'utilise l'astuce d'evaluate pour créer l'array
'ensuite on clear simplement la listbox '
'la dimension colonne restera tant que le userform est en show '
With ListBox2:
   .ColumnCount = 20
   .Column = Evaluate("COLUMN(" & Cells(1).Resize(, 20).EntireColumn.Address(0, 0) & ")"): .Clear
   .ColumnWidths = Replace(Trim(Application.Rept("40 ", .ColumnCount + 1)), " ", ";")
 End With

CGU2022. · 4 Janvier 2022

job75 à dit:
Re, bonsoir patricktoulon,

Pour que la macro du post #2 fonctionne il faut qu'au départ ListBox2 ne soit pas vide.

Et qu'une ligne soit sélectionnée dans ListBox1.

Cette macro fonctionne dans tous les cas :

VB:

Private Sub Cmd_ajoutarticlechantier_Click() Dim a(), nlig&, ncol%, b(), i&, j% If ListBox2.ListCount Then a = ListBox2.List nlig = UBound(a) Else nlig = -1 End If ncol = ListBox2.ColumnCount - 1 ReDim b(nlig + 1, ncol) '---transfert des données de a dans b--- For i = 0 To nlig For j = 0 To ncol b(i, j) = a(i, j) Next j, i '---ajout de la ligne sélectionnée-- i = ListBox1.ListIndex If i = -1 Then Exit Sub 'si aucune sélection For j = 0 To ncol b(nlig + 1, j) = ListBox1.List(i, j) Next '---transfert dans ListBox2--- ListBox2.List = b End Sub

A+

oui merci mais j'essaye d'avoir les autres colonnes ....

patricktoulon à dit:
re
@job75 ci joint un fichier
un userform avec 2 listboxs et deux boutons
1 copier
2 transférer
les deux procèdent sans variable tableau avec additem
dans l'ordre pour copier et a reculons pour le transfert car on remove l'item transféré de la lisrbox1 après l'avoir transféré
pour info j'ai 20 colonnes
aucun problème de colonne au delà de 10 avec Additem

Merci je vais exploiter ton fichier , bonne journée

CGU2022. · 8 Janvier 2022

christophe.garrigou@gmail à dit:
oui merci mais j'essaye d'avoir les autres colonnes ....

Merci je vais exploiter ton fichier , bonne journée

merci c 'est super sympathique ....

patricktoulon · 8 Janvier 2022

re
encore un qui s'attribue le mérite de la solution !!!!!
no comment!!

ça tu le met a celui qui t'a apporté la solution pas à toi

XL 2013 listbox1 vers listbox2 plus de 10 colonnes

CGU2022.

XLDnaute Junior

patricktoulon

job75

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

plus de 10 colonnes dans une listebox sans utiliser la propriété rowsource

job75

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

CGU2022.

XLDnaute Junior

CGU2022.

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

Discussions similaires