Listbox colonne retour ligne

Bonjour à tous,

je m'interroge s'il est possible d'avoir un retour à la ligne si le texte dépasse la largeur de la colonne fixée

je m'explique :

j'ai la macro suivante qui me permet de lister un ensemble d'établissement.

Cependant, afin de pouvoir afficher correctement le nom des établissements, j'ai du fixer une largeur de 350

Aussi est il possible de fixer une largeur de disons 200 correspondant à la majeure partie des établissements et que pour ceux dont le titre serait plus long de faire un retour à la ligne lors de l'affichage?

dans mon cas c'est le colvisu array 2 qui correspond à la colonne en question.

une idée svp?

merci par avance

Public Sub Listing_Partners()
   ColVisu = Array(2, 3, 4, 5, 6)
    LargeurCol = Array(350, 35, 80, 39, 45)

  nomtableau = "Partners"
  TblBD = Range(nomtableau)
  List_Partners.ColumnCount = Range(nomtableau).Columns.Count - 1
  List_Partners.ColumnWidths = Join(LargeurCol, ";")

    Dim Tbl()
  For i = 1 To UBound(TblBD)
          n = n + 1: ReDim Preserve Tbl(1 To UBound(TblBD, 2), 1 To n)
         c = 0
         For Each K In ColVisu
           c = c + 1: Tbl(c, n) = TblBD(i, K)
         Next K

   Next i
   If n > 0 Then List_Partners.Column = Tbl Else List_Partners.Clear

End Sub

Bonjour,

"Renvoyer à la ligne automatiquement" dans la barre d'outil sans passer par VBA, ça ne fonctionne pas une fois que c'est actif ?

Pour le Array à 200, je pense que tu sais déjà comment faire

Sinon, en VBA :

With Columns("adresse de colonne")
        .WrapText = True
    End With

Je vais tenter merci à vous!

Apres examen cela ne fonctionnait pas sauf si je m'y prend mal

mais je pense que votre code ne s'adapte pas forcement à une listbox.

aussi j'ai tente une adaptation mais seulement aucune erreur mais cela ne fait rien

 For j = LBound(Me.List_Partners.List) To UBound(Me.List_Partners.List)
     Me.List_Partners.List(j, 1).WrapText = True
     Next j

une idée svp?

Arf... Pour moi, il était question d'une largeur de colonne sur le classeur et non pas dans une ListBox !

Ça n'est peut-être pas dans votre intérêt mais pourquoi ne pas la laisser à 350 et centrer ses valeurs plutôt qu'elles soient à gauche ou à droite ?

Simple question

merci pour votre retour,

j'ai d'autres données à afficher dans la meme listbox et le tout sera vraiment très large in fine d'où ma question.

Mais après plusieurs lectures il apparaît que cela ne semble pas possible!