Discussion :

[Nicolas JACQUIN]

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 :

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
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

[Philippe Tulliez]

Bonjour Nicolas,
Une solution sans doute Adaptation automatique de la propriété ColumnWidth d’un controle ListBox ou ComboBox

[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

[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

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

Procédure d’appel de cette fonction

Code :

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

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 :

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

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

ou encore

Code :

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

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

où shtTest est le CodeName de la feuille

[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.

[Philippe Tulliez]

Bonjour,

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

[Nicolas JACQUIN]

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 :

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

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

ou encore

Code :

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

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.

[Philippe Tulliez]

Bonjour Nicolas,

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

Parfait