En-tête de colonne dans une ListBox

Bonjour à tous,

Je souhaite afficher une en-tête de colonne dans ma ListBox.

Pour cela, j'ai configuré dans les propriétés de la ListBox > RowSource : A1:AI1

Ligne qui correspond aux intitulés de colonne.

Il s'affiche bien dans la ListBox l'en-tête de colonne que je souhaite !

MAIS ... Au moment ou je veux charger la ListBox par le biais de la ComboBox ... J'ai le message d'erreur :

-21474672595(80004005)

"Erreur non répertoriée"

En me soulignant Me.ListBox1.Clear :

(...)

Private Sub ComboBox1_Click()

i = 0

Me.ListBox1.Clear

k = 0

For Each c In fBD.Range("A3:A" & fBD.[A65000].End(xlUp).Row)

If c = Me.ComboBox1 Then

For j = 0 To 36

ReDim Preserve a(37, k + 1)

a(j, k) = c.Offset(, j + 1)

Next j

a(36, k) = c.Row

k = k + 1

i = i + 1

End If

Next c

ListBox1.List = Application.Transpose(a)

End Sub

Private Sub ListBox1_Click()

For i = 1 To 37

Me("TextBox" & i) = Me.ListBox1.Column(i - 1)

Next i

End Sub

Pourriez-vous m'expliquer ce qui ne va pas ?

Je vous remercie et je vous souhaite une bonne journée

Mjulie.

Bonjour,

Bonjour

En passant par la propriété RowSource de la ListBox1, tu te pièges car la valeur que tu vas mettre ne peut plus être modifiée.

Je préfère passer par la macro ‘’Private Sub UserForm_Initialize() qui s’exécute juste avant l’affichage d’une boite de dialogue. Et tu peux alors modifier le nombre et le contenu des lignes par un autre contrôle.

Voir l’exemple ci-joint.

Cela te convient-il ?

Bye !

446classeur1-v1.xlsm (17.55 Ko)
123test-vba-test-v6.xlsm (111.02 Ko)

Bonsoir,

Je vais y arriver un moment mais après j'ai un message d'erreur d'exécution 9 en soulignant : ReDim Preserve a(37, k + 1)

de ma combox.

Ci-joint mon fichier s'il possible de le reproduire ?

Je te remercie ! Bonne soirée

Mjulie.

Nouvelle version dans laquelle la première ligne de la liste déroulante est la liste des titres du tableau.

Cela te convient-il ?

Bye !

298test-vba-test-v7.xlsm (111.66 Ko)

Bonsoir,

C'est parfait pour les intitulés de colonne.

Par contre, quand je vais sélectionner un nom il n'y a plus rien qui s'affiche

Merci beaucoup

Mjulie

Bonjour

Nouvel essai à tester. Cela convient-il ?

Bye !

585test-vba-test-v8.xlsm (112.50 Ko)

C'est parfait !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Merci !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Me reste plus qu'a résoudre mon poste "bilan / transfert entre 2 fichiers - rechv ou matricielle ou VBA ?".

Est-ce que tu as vu ce poste et aurais-tu une solution ? On a commencé à m'aider mais c'est en stand by depuis un moment ...

Je te remercie encore pour ce poste ! Fantastique !

Bonne journée

Mjulie.

mjulie a écrit :

Me reste plus qu'a résoudre mon poste "bilan / transfert entre 2 fichiers - rechv ou matricielle ou VBA ?".

C'est une autre affaire que je n'ai pas suivi et ne sais donc pas si c'est dans mes cordes...

Mais ce ne pourrait être que par VBA car les formules, et surtout matricielles, ce n'est pas ma tasse de thé !

Bye !

Bonjour,

Est-ce que tu vois mes MP ?

Bonne soirée

Mjulie.

Bonjour

mjulie a écrit :

Est-ce que tu vois mes MP ?

J'en vois ...

Mais j'ai vu aussi que Bouben est sorti de son stand-bye .

Et aussi que ThauThème s'est mis sur le coup.

Alors, moi, je m'efface devant ces cracks...

Bye !

Rechercher des sujets similaires à "tete colonne listbox"