Pb Largeur colonne dans listbox

Version imprimable

1 pièce(s) jointe(s)

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.

Pièce jointe 598889

correspondant au code suivant :
Code:

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.

01/06/2021, 10h15
Invité

Citation:

Envoyé par merymad69

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.
01/06/2021, 10h49
merymad69

Bonjour Éric,
Auriez vous un exemple ?

Citation:

Envoyé par merymad69

Auriez vous un exemple ?

Pièce jointe 598908

Code:

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

01/06/2021, 13h56
merymad69

quand on clique sur la listbox en bas, l'affichage se fait sur les textbox du haut ?
01/06/2021, 14h13
Invité

Citation:

Envoyé par merymad69

Oui, comme indiqué dans le code.
01/06/2021, 14h15
merymad69

à quoi correspond aireproduit ?
01/06/2021, 16h43
Invité

Citation:

Envoyé par merymad69

à quoi correspond aireproduit ?

Aux données de la colonne Code dans le tableau.
01/06/2021, 18h14
merymad69

Comment déclarer ces données "aireproduit" ?
Dans mon cas les données à exploiter seraient toutes dans le listbox, comment l'adapter ? je n'arrive pas à saisir le truc pour cette variable.
Merci pour ta réponse.
01/06/2021, 18h44
Invité

Citation:

Envoyé par merymad69

C'est sans doute la première colonne de votre variable Plage. Le fichier que vous avez mis en ligne ne permet pas d'adapter cet exemple.
01/06/2021, 19h06
merymad69

Aïe ... d'autres idées ?

Citation:

Envoyé par merymad69

Après avoir créé le contrôle TextBoxObservations (multiligne), essayez

Code:

1
2
3
4
5
6
7
8
9
10
 
Private Sub ListBox1_Click()
 
    With ListBox1
        If .ListCount > 0 Then
           Me.TextBoxObservations = .List(.ListIndex, 4) ' 4 est à adapter à votre ListBox
         End If
     End With
 
End Sub

Pièce jointe 598975

2 pièce(s) jointe(s)

Bonjour,

En adaptant le code à ma fenêtre :

Pièce jointe 598984

et le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub ListBox1_Click()
 
    With ListBox1
        If .ListCount > 0 Then
           'Me.TextBoxObservations = .List(.ListIndex, 4) ' 4 est à adapter à votre ListBox
            Me.TextBox7 = .List(.ListIndex, 1) ' Corps d'état
            Me.TextBox8 = .List(.ListIndex, 2) ' Désignation trx
            Me.TextBox9 = .List(.ListIndex, 3) ' Date début
            Me.TextBox10 = .List(.ListIndex, 4) ' Date fin
            Me.TextBox11 = .List(.ListIndex, 5) ' Observations
            Me.TextBox12 = .List(.ListIndex, 6) ' Jours
         End If
     End With
 
End Sub

J'ai l'erreur :

Pièce jointe 598985

Pourquoi ?

Merci pour votre réponse.

Fichier : Pièce jointe 598986

02/06/2021, 09h06
Invité
Citation:

Envoyé par merymad69

Dans une ListBox, les index des lignes et des colonnes commencent à 0

Donc :
Code:

1 2 Me.TextBox7 = .List(.ListIndex, 0) ' Corps d'état 'etc...
02/06/2021, 09h10
merymad69

même en mettant les index de 0 à 5, j'ai toujours la même erreur de ressources insuffisantes ... !
Pourtant il me semble que le code est le même que celui qui semble fonctionner chez vous non ?
02/06/2021, 09h21
Invité

Citation:

Envoyé par merymad69

Je vous transmets le fichier qui m'a servi à vous répondre.

Nb : Le fonctionnement de ce fichier n'a rien à voir avec votre fichier d'origine.
02/06/2021, 09h32
merymad69

après essai de votre fichier celui-ci fonctionne car "prérempli" avec vos données, mais j'ai une erreur après avoir rempli le listbox avec un fichier externe, en cliquant sur le listbox pour afficher la cellule de la ligne choisie dans le texboxobservation j'ai l'erreur de ressources insuffisantes, comme avec mon fichier ...
02/06/2021, 09h42
Invité

Citation:

Envoyé par merymad69

Dans le fichier que je vous ai envoyé, le nombre de colonnes est fixé à 6, alors que dans votre fichier initial, il est de 1. Vous devriez fixer le nombre de colonnes comme je l'ai fait. Si vos fichiers sont homogènes, il n'y a pas de raison de recalculer le nombre à chaque fois que vous ouvrez un de vos fichiers.

Nb : Votre code dans le userform est trop complexe et pourrait sans doute être simplifié par des procédures paramétriques dans un module standard.

Ok j'ai trouvé en adaptant votre code, grand merci pour votre réponse !

Voici le code qui fonctionne pour une occurrence :

Code:

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
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:F" & Cells(Rows.Count, 1).End(xlUp).Row)
        With Me.ListBox1
            .List = plage.Value
        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

Merci !