Microsoft 365 Colonnes de listbox

Dranreb

XLDnaute Barbatruc

• 15 Novembre 2022

• #2

Bonjour.
C'est sa propriété ColumnWidths

 

Vote positif 0 Vote négatif

J

José77

XLDnaute Occasionnel

• 15 Novembre 2022

• #3

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 15 Novembre 2022

• #4

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Novembre 2022

• #5

Bonjour José77, Bernard,

Dranreb à dit:

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

Cliquez pour agrandir...

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

A+

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 15 Novembre 2022

• #6

Bonjour @José77 🙂, @Dranreb 😉

Dranreb à dit:

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

Cliquez pour agrandir...

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 😉

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 15 Novembre 2022

• #7

Bonjour,

VB:

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

 

Vote positif 0 Vote négatif

J

José77

XLDnaute Occasionnel

• 15 Novembre 2022

• #8

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

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 15 Novembre 2022

• #9

125 pt?

VB:

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

 

Dernière édition: 15 Novembre 2022

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 15 Novembre 2022

• #10

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)

VB:

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

 

Pièces jointes

• José77- listbox - largeur colonne- v1.xlsm

  22.7 KB · Affichages: 7

Dernière édition: 15 Novembre 2022

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Novembre 2022

• #11

mapomme à dit:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 15 Novembre 2022

• #12

job75 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

J

José77

XLDnaute Occasionnel

• 15 Novembre 2022

• #13

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é

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Novembre 2022

• #14

José77 à dit:

je vais garder précieusement le fichier joint.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

J

José77

XLDnaute Occasionnel

• 16 Novembre 2022

• #15

job75 à dit:

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

Cliquez pour agrandir...

Merci de la précision.

 

Vote positif 0 Vote négatif