Discussion :

[xoff60]

bonjour,

Je suis en train de retravailler un userform vba avec dedans deux listbox.
La première sert de filtre pour afficher dans la listbox 2 les données.
La listbox2 est composée de 13 colonnes.
Je retrouve mes valeurs jusqu'à l 8ème colonne, la 9ème me sort un chiffre au lieu du texte et après 10 - 11 - 12 - 13 plus rien du tout.
Pourriez vous m'aider sur ce ce point qui me "pourrit" la journée.

D'avance merci pour votre aide.

[Invité]

Bonjour,

Sauf erreur de ma part, on ne peut dépasser 10 colonnes dans une ListBox.

[xoff60]

Comment puis je contourner le problème.
Cette liste box me sert de moteur de recherche et lorsque je double click sur la ligne j'ouvre un userfom qui est censé me reprendre toutes les données de la ligne selectionner dans la listbox.

[Invité]

Regardez la solution de Goninph dans ce post : listbox1_click-selectionner-ligne-fichier-excel

Le principe est de concaténer plusieurs colonnes en une seule et d'appliquer une recherche sur ce champ.

[joe.levrai]

Bonjour,

il est parfaitement possible de dépasser les 10 colonnes quand on construit la liste via la propriété .List

sur une plage filtrée, l'astuce est de copier la plage dans une nouvelle feuille pour ensuite l'injecter

un exemple fonctionnel mais bien sûr à sécuriser au niveau du dimensionnement des colonnes car j'ai écrit en dur la dimension des 13 colonnes

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
Private Sub ListBox1_Click()
Dim i As Integer, Tabl
 
Me.ListBox2.Clear
 
Application.ScreenUpdating = False
    With Sheets("Database")
 
        Me.ListBox2.ColumnCount = .UsedRange.Columns.Count
        Me.ListBox2.ColumnWidths = "90;90;90;90;90;90;90;90;90;90;90;90;90"
 
        .Range("A2").AutoFilter
        .Range("A2").AutoFilter 1, Me.ListBox1.Value
 
        If pl.SpecialCells(xlCellTypeVisible).Rows.Count > 0 Then
            With Worksheets.Add
                pl.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy .Cells(1, 1)
                Me.ListBox2.List = .Cells(1, 1).CurrentRegion.Value
                Application.DisplayAlerts = False: .Delete: Application.DisplayAlerts = True
            End With
        End If
        .Range("A2").AutoFilter
    End With
Application.ScreenUpdating = True
End Sub

les 13 colonnes sont bien là

[Invité]

Salut Joe,

On ne peut donc jamais être sûr de rien.

[xoff60]

Effectivement j'ai explorer cette option le problème est que je n'arrive pas a pas reprendre les données concatainer pour les séparer dans différent label à l'ouverture de l'userform (double click dans ma listbox).

[patricktoulon]

Bonjour

@Eric depuis quand les listbox ne peuvent pas avoir plus de 10 colonnes ??

Code :

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

1
2
3
4
Private Sub UserForm_Activate()
ListBox1.List = Range("A1:Z30").Value
ListBox1.ColumnCount = 26
End Sub

[Invité]

Salut Patrick,

J'ai été confronté à ce problème sur une de mes appli et je n'ai pu dépasser cette limite. Maintenant, je suis très prudent dans mes affirmations, je mets maintenant "Sauf erreur de ma part", car comme répondu à Joe, je ne suis plus sûr de rien.