pb Extraction listbox

[TYPX]

bonsoir

Petit souci d'extraction de données avec listbox
j'arrive à extraire 8 colonnes mais je ne peux aller plus loin,ça bug et j'ai besoin d'extraire xx colonnes
jusque : ListBox9.List(N, 9) = C.Offset(0, 8)
tout va bien mais dès que j'ajoute
ListBox9.List(N, 10) = C.Offset(0, 9)
je pense que N me pose problème mais je sèche

merci par avance

Typx

 

[JC de Lorient]

salut

je sais qu'il y a une limite de colonne mais je peux pas te dire de combien
elle est peut etre de huit seulement


JC

 

[TYPX]

je rajoute un fichier démo;
J'appelle un nom de patient dans le textbox
On va chercher dans la liste et ensuite j'extrais les données pour modif,le hic c'est que passé 8 colonnes ça coince,j'ai juste mis le code d'alimentation de la listbox car si je peux alimenter sur xx colonnes ,derrière no soucis d'extraction,mais j'ai du m...quelque part
merci d'avance
typx

 

[TYPX]

 

[TYPX]

[file name=EXTRACTION.zip size=10500]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/EXTRACTION.zip[/file] [file name=EXTRACTION.zip size=10500]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/EXTRACTION.zip[/file]

 

[Hervé]

Bonsoir typx, JC 🙂

Comme JC le dit, il me semble que la méthode additem limite le nombre de colonne d'une listbox à 10 (pas sur de moi là)

ensuite il te faut soit utiliser les méthodes list ou column.

comme tu es en extraction il te faut donc trier tes données afin de ne renvoyer dans la listbox que les données qui t'interesse.

ce code devrait faire ce que tu demandes :

Option Explicit
Option Compare Text
Private Sub CommandButton1_Click()
Dim tablo As Variant
Dim tablores()
Dim i As Integer, x As Integer
Dim j As Byte

If TextBox1 = '' Then Exit Sub


tablo = Range('a1').CurrentRegion
With ListBox1
        .ColumnCount = UBound(tablo, 2)
        .Clear
End With
For i = 1 To UBound(tablo)
        If InStr(tablo(i, 3), TextBox1) > 0 Then
                x = x + 1
                ReDim Preserve tablores(1 To UBound(tablo, 2), 1 To x)
                For j = 1 To UBound(tablo, 2)
                        tablores(j, x) = tablo(i, j)
                Next j
        End If
Next i

ListBox1.Column = tablores
       
End Sub

salut

 

[TYPX]

cent mille merci Hervé
Je suis incapable de sortir un code comme ça
C'est nickel et j'extrais mes 34 colonnes.
Merci de ta disponibilité et très bonne soirée
typx