Discussion :

[Kalite]

Bonjours,
Je souhaiterai savoir comme faire pour centrer le texte dans une liste

[loufab]

Bonjour,

C'est nativement impossible.

Cordialement,

[Invité]

Bonjour

Dans les propriétés de ta liste, dans l'onglet format : Aligner Texte

Starec

[Kalite]

je précise un peut j'ai access 2003 sp2 en anglais et c'est sur une list box que je souhaite effectuer cette opération. Je ne trouve pas la propriété Align Text comme dans les champs texte.

[Invité]

Re

Exact loufab, il y'a bien une propriété, mais cela ne fonctionne pas (Access 2000), je viens de tester.

Starec

[loufab]

Bonjour,

Elle n'aligne pas le contenu de la liste mais juste le résultat du choix.

Cordialement,

[Kalite]

oki donc j'en conclue que c'est pas possible de faire ce que je veut faire c'est à dire centrer l'entête des colonnes et le reste de la liste box??

[loufab]

Très bonne conclusion !

[Kalite]

au moin c'est clair merci loufab

[Domi2]

Bonjour,

Si je peux me permettre, il y'a peut-être un début de solution ici

Domi2

[kir4000]

Je vous fait profiter de mon humeur du matin, après avoir passé un bon we, je retrouve mon access, qui m'a fait péter un cable vendredi en raison de l'impossibilité d'aligner une ***** de texte . Tout marche nickel, sauf le centrage et ça gache tout.

J'ai pensé à l'alternative de créer un controle et lui faire recevoir les propriété d'un contrôle modèle http://www.developpez.net/forums/d77...nere-acdesign/, mais cela ne marche pas avec les messages d'erreur 2115 (problème de lecture) ou 2135.

Donc je vais tester le code du lien de Domi2, et vous proposerai une solution, en espérant que je ne rencontre pas encore une limite de la version 2000 d'access. Je vous en dirai des nouvelles.

Au pire il reste une solution : calculer la taille du texte, d'où adapter le width du controle, et recalculer son placement (left), calcul qui n'est pas évident à première vue.

Evidemment si quelqu'un a une solution adaptée du code de Domi2 ça m'intéresse

[kir4000]

Apparamment ça marche avec seulement TextAlign, donc je pense que c'est bon pour moi.
exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
With ctl
        .Name = "c" & i & "_surface"
        .Width = Forms.RA_Comparaison_Generale.Controls("c1_surface").Width
        .Left = Forms.RA_Comparaison_Generale.Controls("c" & i - 1 & "_surface").Left + Forms.RA_Comparaison_Generale.Controls("c" & i - 1 & "_surface").Width
        .Top = Forms.RA_Comparaison_Generale.Controls("c1_surface").Top
        .Height = Forms.RA_Comparaison_Generale.Controls("c1_surface").Height
        .FontBold = Forms.RA_Comparaison_Generale.Controls("c1_surface").FontBold   'gras
        .FontSize = Forms.RA_Comparaison_Generale.Controls("c1_surface").FontSize   'taille
        .ForeColor = Forms.RA_Comparaison_Generale.Controls("c1_surface").ForeColor
        .FontName = Forms.RA_Comparaison_Generale.Controls("c1_surface").FontName   'police
        .TextAlign = Forms.RA_Comparaison_Generale.Controls("c1_surface").TextAlign
         End With