Discussion :

[RastaBomboclat]

Bonjour la communauté.

J’utilise un code bien fait et qui fonctionne super bien dans mon application. J’ai reçu ce code (qui un petit fichier Excel) de Thautheme (encore un merci pour ce code).
Aujourd’hui il se pose un problème, non pas au niveau du code mais de la présentation des informations renvoyer par le code. En effet, les colonnes ont tous la même taille et je désir à présent agrandir la largeur d’une ou deux colonnes pour pouvoir bien lire les données qui s’y trouve.

Par exemple, dans une colonne de numéro de facture, il peut y avoir plusieurs factures du type :
FF-2016-2000123
FF-2016-2000124
FF-2016-2000125
Le problème est que la colonne n’affiche qu’une partie du numéro de facture (FF-2016-200), et le reste des 4 autres digit (0123ou 0124 ou encore 0125) ne se voient pas à cause de la largeur de cette colonne. Du coup je ne sais pas faire facilement le choix de la facture désirée.

C’est le premier message je ne peux pas encore ajouter le fichier pour vous montrer comment il fonctionne. Mais veuillez trouver ICI le lien du message quand on me l’avait donné.

Merci d’avance pour votre aide.

[pijaku]

Bonjour,

A lire : http://silkyroad.developpez.com/VBA/ControlesUserForm/

Un extrait de code, juste pour ta question :
[à placer dans la Private Sub UserForm_Initialize()]

Code :

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

1
2
3
4
5
6
7
8
    'Définit le nombre de colonnes dans la ListBox
    ListBox1.ColumnCount = 7
 
    '---
    'Définit la largeur des colonnes d'une ListBox:
    'Par défaut, la largeur des colonnes est de 72 points
    '(72 points = 1 pouce)
    ListBox1.ColumnWidths = "50;80;50;60;50;70;50"

[patricktoulon]

Bonjour j'avais donné a tautheme la bonne methode pour avoir les colonne d'une listbox ou combobox a la bonne dimension si la colonne était rempli avec une plage

comme ceci par exemple

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Activate()
Set plage = Range("A1:C9")
ComboBox1.ColumnCount = 3
ComboBox1.List = plage.Value
For i = 1 To plage.Columns.Count
thewidth = thewidth & Cells(1, i).ColumnWidth * 9 * 0.66 & "pt" & ";"
Next
ComboBox1.ColumnWidths = Mid(thewidth, 1, Len(thewidth) - 1)
End Sub

[pijaku]

Bonjour Patrick,

la bonne méthode pour avoir les colonnes d'une listbox ou combobox à la bonne dimension

Oui et non.
Cela sous-entends, tout de même, que la police soit la même (ou approximativement) dans la plage que dans la ListBox (police, taille, gras, italique, etc).

Pour faire ce que tu désires, de manière précise, il te faudrait passer par les fonctions trouvables ICI, à appliquer sur toutes les lignes de la colonne pour en estimer la largeur.
Toutes les lignes car :
mmmmmm
est "plus long" que :
aaaaaaaa
alors que Len("mmmmmm") est plus petit que Len("aaaaaaaa")...

[RastaBomboclat]

Bonjour à tout le monde,

Merci pour toutes vos réponses. Je vais toutes les essayer et celle qui me conviendra le mieux la garderais.
Désolé de réagir aussi tardivement.

Merci encore

[RastaBomboclat]

Encore Bonjour,

Je reviens content et joyeux d’avoir trouvé ce que je cherchais.
Merci encore à vous tous qui avez contribué. Je vais me caler sur la solution de Pijaku où je peux à volonté définir aisément la taille d’une colonne précise.

Code :

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

ListBox1.ColumnWidths = "0;50;70;160"

Ça marche très bien.

Bonne journée,