Largeur de colonne dans listbox variable

Version imprimable

Bonjour les amis

J'ai un petit souci d'adaptation dans un listbox,
je rentre des données dans ma feuille, sur une ligne il peut y avoir de 4 à 20 cellule occupé (ceci est aléatoire)
j'ai réussi à remplir la listbox en fonction du nombre de ligne et colonne occupé mais n'arrive pas à trouver l'astuce pour adapter la largeur de colonne (.ColumnWidths)
en fonction de la largeur de mais écriture de feuille.
Car si je laisse tel quel, la largeur par défault (je ne sais pas si on peut la modifier sinon je m'en serai contenté) correspond pour certaine colonne mais coupe d'autres.
J'espère être clair dans ma demande, en vous remerciant.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub UserForm_Initialize() Dim Ws As Worksheet Dim L As Long Dim C As Integer Set Ws = Worksheets("FFF-45-FFF") L = Ws.Cells.SpecialCells(xlCellTypeLastCell).Row C = Ws.Cells.SpecialCells(xlCellTypeLastCell).Column With ListBox1 .ColumnCount = C .List() = Ws.Range(Ws.Cells(10, 1), Ws.Cells(L, C)).Value '.ColumnWidths = "50" 'mon problème est là End With Set Ws = Nothing End Sub

13/05/2017, 12h41
Philippe Tulliez

Bonjour Nicolas,
Une solution sans doute Adaptation automatique de la propriété ColumnWidth d’un controle ListBox ou ComboBox
13/05/2017, 13h18
Nicolas JACQUIN

Bonjour et merci pour la réponse,
j'essai d'adapter mais c'est dur, je continue

Comment faire appel à la fonction proposé dans votre lien ?
ou comment adapter, j'arrive pas à comprendre
en vous remerciant
13/05/2017, 13h38
Philippe Tulliez

Bonjour,
Non seulement il y a un fichier téléchargeable avec un exemple mais de plus la procédure est commentée et notamment pour ses arguments

Citation:

Private Function AutoColumnWidth(ctrlList As MSForms.Control, oRng As Range) As Boolean
' Arguments
' ctrlList (obj Ctrl) ' Nom du contrôl ListBox ou ComboBox
' oRng (obj Range)' Plage utilisée pour la liste

et l'exemple d'appel

Citation:

Procédure d’appel de cette fonction

Code:

AutoColumnWidth Me.cboBox, rngData

Dans cette ligne de code, cboBox est le nom du contrôle (ici un contrôle ComboBox) et rngData est la variable objet représentant la liste des données.

Ce n'est pas assez clair ?

rngData par exemple ThisWorkbook.Worksheets("Feuil1").Range ("A1:H100")
soit

Code:

Set rngData = ThisWorkbook.Worksheets("Feuil1").Range ("A1:H100")

ou encore

Code:

Set rngData = shtTest.Range("A1").CurrentRegion

où shtTest est le CodeName de la feuille
13/05/2017, 13h52
Nicolas JACQUIN

oui c'est clair et c'est bien votre classeur essai, mais c'est de ma faute je n'étais pas assez clair au départ, vu que je testais mon projet,
ce qu'il en ai c'est que mon choix de feuille (il y en a plusieurs) se fera à partir d'un combobox, vu que j'en suis à l'essai j'ai nommé la feuille mais elle sera nommé x au final.
Désolé, mais je ne veux pas aller sur cette feuille pour cliquer dessus et avoir le résultat.
13/05/2017, 14h01
Philippe Tulliez

Bonjour,

Citation:

Désolé, mais je ne veux pas aller sur cette feuille pour cliquer dessus et avoir le résultat.

Ce n'est pas parce-que dans mon classeur exemple le UserForm s'enclenche au double clic dans la liste de la feuille que pour autant la procédure que je propose est liée à cette action.
Elle est totalement indépendante
13/05/2017, 16h10
boisgontierjacques

1 pièce(s) jointe(s)

Bonjour,

Affiche des en-têtes de colonne pour une Listbox et adapte la largeur des colonnes.

Boisgontier
http://boisgontierjacques.free.fr

Merci à vous deux
@Philippe : Merci pour la fonction mais je n'y suis vraiment pas arrivé
@Jacques : Merci j'ai réussi à adapter à mon code, merci beaucoup

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub UserForm_Initialize()
Dim nom As String
Dim Ws As Worksheet
Dim L As Long
Dim C As Integer
 
nom = Vehicule.ComboBox1.Text
Set Ws = Worksheets(nom)
L = Ws.Cells.SpecialCells(xlCellTypeLastCell).Row
C = Ws.Cells.SpecialCells(xlCellTypeLastCell).Column
 
With ListBox1
  .ColumnCount = C
  .List() = Ws.Range(Ws.Cells(10, 1), Ws.Cells(L, C)).Value
  For i = 1 To C
  temp = temp & Ws.Columns(i).Width * 1.1 & ";"
  Next
  .ColumnWidths = temp
End With
Set Ws = Nothing
 
End Sub

A bientôt,
je clôture.

14/05/2017, 13h55
Nicolas JACQUIN

Citation:

Envoyé par Philippe Tulliez

Bonjour,
Non seulement il y a un fichier téléchargeable avec un exemple mais de plus la procédure est commentée et notamment pour ses arguments

et l'exemple d'appel

Ce n'est pas assez clair ?

rngData par exemple ThisWorkbook.Worksheets("Feuil1").Range ("A1:H100")
soit

Code:

Set rngData = ThisWorkbook.Worksheets("Feuil1").Range ("A1:H100")

ou encore

Code:

Set rngData = shtTest.Range("A1").CurrentRegion

où shtTest est le CodeName de la feuille

Bonjour Philippe,
J'ai quand même réussi à adapter, en m'acharnant un peu
Merci.
14/05/2017, 14h58
Philippe Tulliez

Bonjour Nicolas,

Citation:

J'ai quand même réussi à adapter, en m'acharnant un peu

Parfait :applo:
15/05/2017, 08h12
pijaku

Bonjour tout le monde,

Cette méthode n'est valable que si l'UserForm est utilisé qu'avec une taille de police "standard".
Il suffit, pour que cela ne pourrisse l'affichage, d'augmenter la taille de la police de la listbox...

Si le but est de faire un code "universel", il faut passer par tout un tas de fonctions de l'api windows.
Si cela est utile, je pourrais vous "bricoler" un exemple à partir de fonctions prêtes à l'emploi.
Cependant, pas sur que le jeu en vaille la chandelle.
15/05/2017, 08h45
Philippe Tulliez

Bonjour Franck,

Citation:

Cette méthode n'est valable que si l'UserForm est utilisé qu'avec une taille de police "standard".
Il suffit, pour que cela ne pourrisse l'affichage, d'augmenter la taille de la police de la listbox...

Tu as raison mais personnellement je conserve les paramètres standard pour les polices.
15/05/2017, 09h24
pijaku

Bonjour Philippe,

Après, selon cette méthode, il "suffit" d'appliquer un coefficient différent selon la taille de la police de la listbox.
A ce propos pourquoi appliquer 0.85 (ta méthode) ou 1.1 (celle de Jacques boisgontier)?
Mais, de toutes façons, se pose le problème également inverse selon la taille de police utilisée dans la feuille.

Une autre chose qui me gène, dans ta méthode, c'est le réglage du Width de la listbox.
Lorsque je créées un usf, en mode création, je place mes contrôles à des tailles et des endroits bien définis...
Mais ça, j'avoue que c'est secondaire, du pinaillage quoi, puisqu'il suffit de commenter une seule ligne de ton code ;)

De plus, tout système garantissant le correct affichage des colonnes dans une listbox serait une véritable usine à gaz...

2 pièce(s) jointe(s)

Bonjour Franck et Philippe
En faite j'ai plus ou moins réussi avec les deux solutions mais le problème c'est que mais colonnes ne feront jamais la même taille selon les entrées que je fait au préalable,
du coup avec la solution à Philippe, je me retrouve avec un userform qui prend 2 fois la tailles de l'écran ( dépandant du nombre de critères à intégré dans la listbox), sans doute que je me suis planter dans la programmation, et avec la solution à Jacques c'est mieux mais l'un comme l'autre il me rajoute des colonnes vides je pense mais sans du au faites de la boucle que j'ai faites pour intégrer mais données dans la feuille (il me mais la dernière cellule pleine, 3 ou 4 cellule plus loin alors que vide en vrai.

la c'est le code que j'utilise pour integrer les données dans ma feuille
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 Private Sub CommandButton1_Click() Dim x As String Dim i As Integer, j As Integer Dim k As Long, L As Long, m As Long, n As Long, o As Long x = Vehicule.ComboBox1.Value With Sheets(x) k = Sheets(x).Range("A" & Rows.Count).End(xlUp).Row L = k + 2 m = k + 3 n = 3 o = 15 j = 1 Sheets(x).Cells(L, 1) = Tex1 Sheets(x).Cells(L, 2) = Tex2 For i = 1 To 22 If Me.Controls("C" & i) = True Then Sheets(x).Cells(L, n) = Controls("C" & i).Caption Sheets(x).Cells(m, n) = Controls("D" & i).Value n = n + 1 End If Next i For j = 1 To 5 Sheets(x).Cells(L, n) = Controls("R" & j) If Sheets(x).Cells(L, n) > "" Then Sheets(x).Cells(m, n) = "ok" n = n + 1 Next j ''Range("A1:F8").HorizontalAlignment = xlLeft End With End Sub
et la le code pour sélection le choix à afficher
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 36 37 38 39 Dim x As String Dim i As Integer Dim Ws As Worksheet Dim L As Long Dim C As Integer Private Sub ComboBox1_Change() x = ComboBox1.Text With Sheets(x) T1 = .Cells(1, 2) 'les textbox T2 = .Cells(2, 2) T3 = .Cells(3, 2) T4 = .Cells(5, 2) T5 = .Cells(6, 2) T6 = .Cells(7, 2) T7 = .Cells(8, 2) T8 = .Cells(7, 6) T9 = .Cells(8, 6) T10 = .Cells(5, 4) T11 = .Cells(6, 4) T12 = .Cells(7, 4) T13 = .Cells(8, 4) End With 'Listbox Set Ws = Worksheets(x) L = Ws.Cells.SpecialCells(xlCellTypeLastCell).Row C = Ws.Cells.SpecialCells(xlCellTypeLastCell).Column With Me.ListBox1 .ColumnCount = C .List() = Ws.Range(Ws.Cells(10, 1), Ws.Cells(L, C)).Value For i = 1 To C '1 to nombre colonne temp = temp & Ws.Columns(i).Width * 1.1 & ";" Next .ColumnWidths = temp End With Set Ws = Nothing End Sub
Après je pense que c'est pas ce qui a de mieux mais j'ai fait avec mes connaissances :(
le classeur si vous souhaitez
Pièce jointe 275531
ou celui là avec le code à Philippe, mais faut lancer l'userform de la page developpeur
Pièce jointe 275544