Entêtes de Colonnes dans un ListBox

Bonsoir,

J'ai encore besoin de votre aide S.V.P.

Je n'arrive pas à mettre des Entêtes dans mon ListBox.

J'ai fait beaucoup d'essai de syntaxe que j'ai trouvé sur Internet, mais ça bug à tout les coups.

La seule syntaxe qui fonctionne presque est:

Sub IniListBox_Resultat() 'Pour Entêtes de Colonnes'
Dim Plg As String, Nbligne As Integer
Nbligne = Sheets("Base").Range("A65536").End(xlUp).Row
Plg = Sheets(2).Range("A2:N" & Nbligne).Address
With ListBox_Resultat
.ColumnCount = 15
.ColumnWidths = "75;75;75;75;75;75;75;75;75;75;75;75;75;75;0" 'Largeur des Colonnes'
.ColumnHeads = True
.RowSource = "Base!" & Plg
End With
End Sub

Et dans Private Sub userform_initialize() j'ai ajouté:

IniListBox_Resultat 'Pour Entêtes de Colonnes'

Ça bug quand je clic deux fois sur n'importe quel ligne pour ouvrir le UserForm Éditer dans le ListBox.

Je vous joint mon fichier.

Merci Beaucoup

Jean.

Bonjour

A tester

bonjour

je trouve un autre probleme

cdl

Private Sub TextBox_Recherche_Change()
ListBox_Resultat.Clear
Dim i&, fin&, Y&, a&, aa As Variant
ListBox_Resultat.Clear
Application.ScreenUpdating = 0
If TextBox_Recherche = "" Then ListBox_Resultat.Clear: Exit Sub
With Feuil2
Y = 1
fin = .Range("A" & Rows.Count).End(xlUp).Row
If fin <= 1 Then fin = 2
aa = .Range("A2:P" & fin)                 '2 Colonnes de plus que le Tableau'
End With
For i = 1 To UBound(aa)
aa(i, 15) = i + 1
Next i
For i = 1 To UBound(aa)
For a = 1 To UBound(aa, 2) - 2
If aa(i, a) Like "*" & TextBox_Recherche & "*" Then aa(i, 16) = "oui": Y = Y + 1: Exit For
Next a
Next i
If Y = 1 Then Exit Sub
ReDim bb(Y, UBound(aa, 2) - 1)        'On aura un Enregistrement de plus (le premier)'
Y = 2                                                'L'indice Commence à 2'
For i = 1 To UBound(aa)                    'On Parcourt tout le Tableau'
If aa(i, 16) = "oui" Then                     'Si Repéré "OUI"'
For a = 1 To UBound(aa, 2) - 1           'Toutes les Colonnes du Tableau aa'
bb(Y, a) = aa(i, a)                              'Dans le Tableau bb'
Next a                                               'Colonne Suivante'
Y = Y + 1                                            'Indice Suivant'
End If
Next i
With ListBox_Resultat
.List = bb
.RemoveItem 0                                   'On Enlève l'Enregistrement Rajouté'
End With
End Sub

TextBox_Recherche se bloque au ListBox_Resultat.Clear

Bonjour Banzai64,

Merci Beaucoup d'avoir répondu à ma demande.

Comme richi2casa a écris, quand je fait une recherche ds le TextBox_Recherche

ça bloque.

Auriez-vous une idée pour remédier à ce problème?

Encore une fois, MERCI.

Jean.

Bonjour

Compliqué

Ce que je sais (sauf indications contraires)

Les entêtes des colonnes ne fonctionnent qu'avec la propriété RowSource

La propriété RowSource n'accepte pas le Clear

Donc tu as le choix entre 2 solutions (aucunement testé )

• Utilisation de RowSource mais dans le cas d'une recherche il faut que tu fasse un second tableau (dans une autre feuille) avec le résultat de la recherche et de placer ce tableau dans la propriété RowSource
• Utilisation de labels au dessus de la ListBox et tu utilises la propriété List pour remplir ton tableau

Bonsoir Banzai64,

Merci encore une fois d'avoir répondu.

Je vais prendre la solution avec les Labels qui me semble plus simple.

Merci de votre aide.

Jean.