Microsoft 365 Colonnes de listbox

[José77]

Bonjour,

Quelqu’un connaîtrait il la manière de récupérer en VBA la valeur de la largeur des colonnes d’une listbox ?
Par avance merci beaucoup.
José

 

[Dranreb]

Bonjour.
C'est sa propriété ColumnWidths

 

[José77]

Merci pour la réponse, mais pourriez vous me donner un exemple de code pour récupérer les largeurs d’une listbox de 3 colonnes.

 

[Dranreb]

Vous pouvez utiliser Split(Replace(Me.ListBox1.ColumsWidths," pt",""), "; ") pour les avoir dans des éléments séparés. Remarque la propriété doit avoir été initialisée. Sinon je pense que c'est pour toutes les colonnes Me.ListBox1.Width / 3

 

[job75]

Bonjour José77, Bernard,

Sinon je pense que c'est pour toutes les colonnes Me.ListBox1.Width / 3

Non, il y a une largeur par défaut.

A+

 

[mapomme]

Bonjour @José77 , @Dranreb

Sinon je pense que c'est pour toutes les colonnes Me.ListBox1.Width / 3

La largeur minimale d'une colonne quand on n'a pas défini explicitement les largeurs est 72 pts.
En définissant les largeurs (propriété ColumnWidths), on peut descendre en dessous de 72 pts (jusqu'à zéro).

edit : bonjour @job75

 

[dysorthographie]

Bonjour,

Me.ListBox1.ColumnWidths = "2,5 cm;2 cm;1 cm"
 d = Split(Me.ListBox1.ColumnWidths, ";")

 

[José77]

Merci beaucoup à vous tous qui avez répondu mais je suis encore un peu perdu.
En fait je voudrais seulement connaître la valeur de la largeur de la colonne 3 d’une listbox.
Que vba me dise LARG =125

 

[dysorthographie]

125 pt?

Dim D,I as integer
D=Split(Me.ListBox1.ColumnWidths, ";")
For i= 0 to ubound(D)
    debug.print d(i)
next

 

[mapomme]

Re,

Un exemple dans le classeur joint avec une fonction dans le module de Userform1 qui renvoie la largeur de la nCol ième colonne de la listbox cListBox.
Exemple d'appel : largeur = LargeurColonneN(ListBox1,3)

Function LargeurColonneN(cListBox As Control, nCol As Long)
Dim Largeur As Double, S As String, t
   If TypeName(cListBox) <> "ListBox" Then LargeurColonneN = -1: Exit Function
   If nCol > cListBox.ColumnCount Then LargeurColonneN = -1: Exit Function
   S = cListBox.ColumnWidths
   If S = "" Then
      Largeur = cListBox.Width / cListBox.ColumnCount
      If Largeur < 72 Then Largeur = 72
   Else
   S = Replace(S, "pt", "")
      Largeur = CDbl("0" & Split(S, ";")(nCol - 1))
   End If
   LargeurColonneN = Largeur
End Function

 

[job75]

La largeur minimale d'une colonne quand on n'a pas défini explicitement les largeurs est 72 pts.

C'est ce que dit Microsoft mais ça ne semble pas vrai chez moi.

Comparez 2 ListBox, l'une sans définition des largeurs et l'autre avec des largeurs à 72.

En plus chez moi ce n'est pas la même chose dans une feuille de calcul et dans un UserForm.

 

[mapomme]

C'est ce que dit Microsoft mais ça ne semble pas vrai chez moi.

Effectivement! M'apprendra à écouter Krosoft! Si même eux ne savent plus ce qu'ils ont fait

 

[José77]

Et bien je ne pensais pas que ce problème me donnerait autant de mal.
Merci à tous, maintenant tout fonctionne comme je le souhaitais.

je vais garder précieusement le fichier joint.
Bonsoir
José

 

[job75]

je vais garder précieusement le fichier joint.

Sauf qu'il vous faudra remplacer 72 par la valeur que vous trouverez en tâtonnant.

 

[José77]

Sauf qu'il vous faudra remplacer 72 par la valeur que vous trouverez en tâtonnant.

Merci de la précision.