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