Listbox couper texte trop long

Le 15/04/2021 à 17:07

Bonjour à tous,

j'ai au sein de mon userform une listbox multicolone.

j'affiche le contenu via cette macro

ma question est la suivante:

comment procéder afin que concernant la dernière colonne (la 4) si le texte est trop long de couper le texte à l'affichage et le remplacer par trois petits points ....

en effet si je clique sur la ligne de la listbox j'ai le détail qui va s'afficher donc je peux ne pas l'afficher en entier ici

merci pour votre aide

Public Sub Deliverables()

With Worksheets("Deliverables").ListObjects(1)
    Tbl = .ListColumns("Id_Project").Range

        Set d = .ListColumns("Id_Project").Range.Find(what:=Id_Project, LookIn:=xlValues, LookAt:=xlWhole)
        If Not d Is Nothing Then
            nbr = Application.Count(Application.Match(Tbl, Array(Id_Project), 0))
            Set rng = d.Resize(nbr, 9)

        End If
End With

If (nbr > 0) Then
  ColVisu = Array(2, 3, 5, 4)
  LargeurCol = Array(1, 25, 70, 400)
 Me.List_Deliverables.ColumnCount = UBound(ColVisu) + 1
 Me.List_Deliverables.ColumnWidths = Join(LargeurCol, ";")
 Me.List_Deliverables.List = Application.Index(rng, Evaluate("Row(1:" & rng.Rows.Count & ")"), ColVisu)
End If

End Sub

merci par avance

@+

Le 15/04/2021 à 18:07

Bonjour, serait-il possible d'avoir le fichier ?

Rechercher des sujets similaires à "listbox couper texte trop long"