XL 2013 listbox1 vers listbox2 plus de 10 colonnes

[CGU2022.]

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

 

[job75]

Bonsoir,

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

Il faut utiliser la méthode .List :

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]

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]

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 :

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]

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]

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]

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]

Bonjour patricktoulon, le forum,

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

A+

 

[patricktoulon]

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

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

'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.]

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 :

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 ....

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.]

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]

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