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.

[Invité]

Bonjour,

Une autre solution consisterait à mettre le contenu de la colonne en question dans un TextBox sur plusieurs lignes lorsque vous sélectionnez la ligne.

[merymad69]

Bonjour Éric,
Auriez vous un exemple ?

[Invité]

Auriez vous un exemple ?

Pièce jointe 598908

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
 
Private Sub List_Produits_Click()
 
Dim I As Long, J As Long
 
    If List_Produits.ListCount > 0 Then
        For I = 0 To List_Produits.ListCount - 1
            If List_Produits.Selected(I) = True Then
 
                 For J = 1 To AireProduits.Count
                     If AireProduits(J) = List_Produits.List(I) Then
                        With AireProduits(J)
                             TextBoxLibelle = .Offset(0, 1)
                             TextBoxDisplay = .Offset(0, 2)
                             TextBoxBarres = .Offset(0, 3)
                             TextBoxShipper = .Offset(0, 4)
                        End With
                     End If
                 Next J
            End If
        Next I
     End If
 
End Sub

[merymad69]

quand on clique sur la listbox en bas, l'affichage se fait sur les textbox du haut ?

[Invité]

Oui, comme indiqué dans le code.