[XL-2003] Mise en page de ListViews [Résolu]

[Cocotte278]

Bonjour

J'ai un Userform avec plusieurs ListViews. Plusieurs imbriquées dans un Multipage (une par onglet) et l'autre à côté (simplement).

Pendant la création, j'ai bien aligné la ListView simple avec les autres. Mais à l'exécution, elles se décalent et rien ne s'aligne plus.

Quelqu'un aurat-il une astuce à me proposer ?

Cordialement

[Daniel.C]

Bonjour,

Est-ce que tu as codé les propriétés Top et Left des ListViews en dur ? Quelles sont les ListViews qui se décalent ? Suite à quoi, précisément ?

[Cocotte278]

Bonjour Daniel,

Non je n'ai pas codé le top et le left en dur.

Disons que les ListViews qui sont dans le Multipage soient elles ne bougent pas soient elles se décalent toutes de la même façon (c'est peut-être le multipage qui bouge).
Sinon, peut-être que c'est seulement la ListView simple qui bouge.

En fait, j'exécute simplement le programme et dès que l'Userform s'affiche, c'est décalé !

[Daniel.C]

Essaie de fixer les propriétés Top et Left pour chaque ListView.

[Cocotte278]

J'ai fixé le To et le Left comme tu m'as dit.

J'ai découvert qu'en fait c'est le redimensionnement de l'Userform (à la taille de l'écran) qui pose problème.
Disons qu'en agrandissant mon Userform à la souris, j'arrive à aligner les ListViews à tatons. Mais qd on met précisément la taille de l'écran, on arrive à des ListViews décalées...

N'existe-il pas une astuce pour lier les contrôles ?

[Daniel.C]

J'ai découvert qu'en fait c'est le redimensionnement de l'Userform (à la taille de l'écran) qui pose problème.

Une fois redimensionné, tu récupères les propriétés Top et Left d'un ListView du Multipage et ces mêmes propriétés du multipage et tu en déduis les valeurs pour la ListView isolée.

[Cocotte278]

Merci pour ta réponse Daniel mais ça ne fonctionne pas...



Le MultiPage a des onglet et c'est de là que commence ses dimensions. Du coup, il me met ma ListView à la hauteur de ces onglets... Je ne vois pas comment récupérer la hauteur des onglets...

Les ListViews à l'intérieur du MultiPage sont à 0 et 0 en Top et Left !

[Cocotte278]

Finalement j'ai réussi. Merci beaucoup tu m'as mise sur la bonne voie !!!!

Les écart restent les mêmes après dimensionnement (il n'y a pas de proportionnalité à faire).
Donc j'ai simplement la différence de hauteur avec l'onglet :

Code :

ListView27.Top = MultiPage1.Top + 18

Merci