Discussion :

[merymad69]

Bonjour,

Je rencontre un problème de largeur de colonne dans un listbox.
J'ai un fichier qui interroge un autre fichier excel et qui copie les données dans un listbox, le pb étant que la cellule contient un texte qui ne s'affiche pas intégralement dans le listbox.



correspondant au code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub ComboBox1_Change()
Dim plage As Range, i As Long, large
Application.DisplayAlerts = False
On Error GoTo errorHandler
If ComboBox1.Value = Sheets("Paramètres").Range("A7").Value Then
    Workbooks.Open Sheets("Paramètres").Range("C7").Value
    With Sheets("Travaux")
        Set plage = .Range("A8").CurrentRegion.Offset(6, 0)
        For i = 1 To plage.Columns.Count: large = large & ";" & Round(plage.Columns(i).Width): Next    ' on capture la largeur des colonnes
        large = Mid(large, 2, 200)
        With Me.ListBox1
            .RowSource = plage.Address
            .ColumnHeads = True
            .ColumnWidths = large
            .ColumnCount = plage.Columns.Count
            .ListStyle = 1
            .MultiSelect = 1
        End With
    End With
    With Sheets("BAES")
        Me.TextBox1.Value = .Range("I5").Value
        Me.TextBox5.Value = .Range("H45").Value
    End With
    With Sheets("Extincteurs")
        Me.TextBox2.Value = .Range("J5").Value
        Me.TextBox6.Value = .Range("I24").Value
    End With
    With Sheets("PorteCF")
        Me.TextBox3.Value = .Range("I5").Value
        Me.TextBox4.Value = .Range("H24").Value
    End With
 
ActiveWorkbook.Close savechanges:=False
End If
End Sub

le pb est flagrant dans la colonne 5 ou il me manque beaucoup de caractères ...

Ce code correspond à la première sélection dans le combobox, comment faire pour que le contenu d'une cellule s'affiche intégralement dans la ligne du listbox ?
Malgré mes recherhes sur les forum je n'arrive pas à trouver de solution.

Voici mon fichier : Pièce jointe 598888

J'ai essayé la propriété IntégralHeight mais sans résultat !

Merci pour votre aide.