redimension de colonne vba

Question

bonour,
j'aurais voulu savoir comment on peut redimensionner automatiquement une colonne d'une liste en fonction de la taille du texte qui se trouve a l'interieur de celle ci

cs_Jack · Answer

Salut mamamamat 
J'ai résolu ce problème comme ça :
- Tu insères toutes tes valeurs dans ta colonne, normalement
- Tu fais une boucle pour déterminer la largeur optimale :

Dim LargeurMax As Long, r As Long, t As Long
LargeurMax = 0
For r = 0 To List.ListCount - 1
t = Me.TextWidth(List(r))
If t > LargeurMax Then LargeurMax = t
Next r
List.ColumnHeader(1).Width = t + 50
Le 50 est là pour palier au problème de la barre de défilement verticale qui peut empiéter sur la colonne
Ce code est de mémoire : Adapte le

Vala
Jack

mamamamat · Answer

arrffff il me met une erreur a textwidth ca na pas l'air detre une methode qu'il connait !!!

cs_Jack · Answer

re
Par pitié, ne m'envoie pas de message perso, stp.
C'est que tu ne dois pas être dans une forme ...
Si tu es dans un module, remplace Me par le nom d'une forme

Vala
Jack

mamamamat · Answer

si je suis dans un form mais quand je tape ME il ne me propose pas textwidth

mamamamat · Answer

il me met un message d'erreur :
la procedure proprety let n'est pas definie et la procedure proprety get na pas renvoyé d'objet

voici mon code :

For Each p In Forms!F_Clients_hospitaliers.Ong_cltHospi.Pages
        If p.HelpContextId = 1 Then
            Call EnvoiCaractPag(Forms!F_Clients_hospitaliers, Forms!F_Clients_hospitaliers.Controls("liste" & p.PageIndex), Forms!F_Clients_hospitaliers.Controls("defliste" & p.PageIndex))
            Dim LargeurMax As Long, r As Long, t As Long
            LargeurMax = 0
            For r = 0 To Controls("liste" & p.PageIndex).ListCount - 1
                t = Controls("liste" & p.PageIndex).TextWidth(Controls("liste" & p.PageIndex)(r))
                If t > LargeurMax Then LargeurMax = t
            Next r
            Controls("liste" & p.PageIndex).ColumnHeader(1).Width = t + 50
        End If
    Next

Redimension de colonne vba

5 réponses

Discussions similaires