Ajustement d'une colonne d'une ListBox

[IFFIC]

Bonsoir à tous qui passeront par là

Je cherche à ajuster la largeur de la colonne 1 de ma List Box pour plus de lisibilité.

L’utilisation du "Select Case" va bien, mais fastidieux!

Voir ci-après:

Sub AJUSTEMENT_COLONNE()

Select Case Len(Worksheets("LISTE").Cells(2, 1).Value)

Case 1 To 20
UserForm1.ListBox1.ColumnWidths = "100;40;30"
'(100 = le nombre de caractères x 5 … En réalité; 4,58 suffit)

Case 21 To 30
UserForm1.ListBox1.ColumnWidths = "150;40;30"

Case 31 To 40
UserForm1.ListBox1.ColumnWidths = "200;40;30"

'Je passe la foultitude de paliers !!!

Case 41 To 200
UserForm1.ListBox1.ColumnWidths = "800;40;30"
End Select
End Sub

Est-il possible de remplacer la première "Width" par une variable
(Par exemple "X") pour donner ceci:?

UserForm1.ListBox1.ColumnWidths = "X;40;30"

Mes essais ont fait Plouf, si vous avez un truc, je suis preneur.

Et merci d'avance. Et bonne soirée à vous.

IFFIC

 

[Brigitte]

Re : Ajustement d'une colonne d'une ListBox

Et bien moi je fais juste coucou, car j'étais un peu inquiète.

Ouf te revoilà, j'espère que tu vas bien.

A bientôt par mail ou autre. Bises en prime.

 

[IFFIC]

Re : Ajustement d'une colonne d'une ListBox

Coucou "P'ite Soeur" Pardon pour mon silence...
Je vais (Enfin, je l'espère pouvoir à nouveau communiquer)
Bises Itou.
Yves

 

[Brigitte]

Re : Ajustement d'une colonne d'une ListBox

Petits conseils pour la nouvelle mouture :

- TAB BORD
- Modifier mes options
- Messagerie : cocher recevoir une alerte quand je recois un message privé (pas mail)

puis plus bas :

- Options diverses
- Interface d'édition
- Choisir dans la petite liste : éditeur WYSIWYG

Ca veut dire : What you see is what you get

Et ainsi tu peux mettre en forme avec plein de possibilités et voir ce que tu fais (couleur, italiques, code, image, lien...)

Voilou.

Bisous

 

[myDearFriend!]

Re : Ajustement d'une colonne d'une ListBox

Bonsoir Brigitte, IFFIC,

IFFIC, tu devrais pouvoir essayer comme ça :

[SIZE=2]Sub AJUSTEMENT_COLONNE()
      [COLOR=navy]With[/COLOR] Application
            UserForm1.ListBox1.ColumnWidths = .Max(.RoundUp(Len(Worksheets("LISTE").Cells(2, 1).Value) _
                        / 10, 0) * 50, 100) & ";40;30"
      [COLOR=navy]End With
End[/COLOR] Sub[/SIZE]

Cordialement,

 

[IFFIC]

Re : Ajustement d'une colonne d'une ListBox

Brigitte, Mdf; Bonsoir.

Didier (My Dear Friend) au pseudo non usurpé! Merci.

Je n'ai pas tout pigé de l'arrondi sup. de divisé par 10
et multiplié par 50..Mais peut-être est-ce là la raison de mon
plantage de x as integer.
M'en fiche J'analyserai plus tard, cela marche comme j'en rêvais
et je t'en remercie beaucoup.

Je te souhaite bonne soirée, sinon bonne journée pour demain.

Quant à toi Brigitte, je vais éplucher ton mode d'emploi.
Pas doué pour cocher les "Options" suis-je, mais je vais faire un effort.

Promis à plus, et bises..

Que de super gens ici!!!

IFFIC (P'tit nom du à Brigitte)