Vba excel - zoom USF ne s'applique pas au ListView
Résolu
TonyLucky
-
TonyLucky -
TonyLucky -
2 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour,
Tu ne décris pas ce qui se passe avec les ListView, ni comment tu adaptes la taille de l'USF.
Je pense que tu dois adapter la taille des ListView indépendemment, et j'ignore comment faire cela.
Tu ne décris pas ce qui se passe avec les ListView, ni comment tu adaptes la taille de l'USF.
Je pense que tu dois adapter la taille des ListView indépendemment, et j'ignore comment faire cela.
J'ai fini par trouver une solution à mon problème, solution simple que je donne en exemple. Cela pourra peut-être servir à l'un ou à l'autre.
'Définit le nombre de colonnes et Entêtes des List View
With Me.LW_1.ColumnHeaders
'Supprime les anciens entêtes
.Clear
'Ajout colonnes
.Add , , "Code Agence", Int(60 * EcranZoom / 100)
.Add , , "Agence", Int(175 * EcranZoom / 100)
.Add , , "Code Postal", Int(60 * EcranZoom / 100)
.Add , , "Ville", Int(175 * EcranZoom / 100)
.Add , , "Statut", Int(60 * EcranZoom / 100)
End With
Me.LW_1.Font.Size = Int(10 * EcranZoom / 100)
EcranZoom est la valeur du zoom appliqué au formulaire. Je fais une simple règle de 3, en partant de la taille définie pour l'affichage initial.
J'applique également cette règle à la taille de la police et cela fonctionne parfaitement.
Si l'un d'entre vous a la possibilité de marquer ce problème comme résolu, merci par avance. En tant que non inscrit, je n'ai pas la possibilité de le faire. D'avance, merci
