Discussion :

[Loudjé]

Bonjour à tous !
Dans un formulaire, je cherche à écrire un texte à la vertical pour le lire de bas en haut.

Cordialement.

[rjamin]

Bonjour,
Pour quelle genre de contrôle Etiquette (Label) ou Zone de texte (TextBox)?

[Loudjé]

C'est pour une zone de texte.

Merci pour votre aide.

[rjamin]

Bonjour,
Désolé pour le retard.
Si le texte dans la zonne de texte est de longeur à peu près constante il suffit de modifier le contour de la zone de texte en mettant une largeur equivalente à 1 caractère et une hauteur correspondant à la longeur du texte.
Mais attention choisir une police où tout les caractères occupent le même espace (le m et le i par exemple)
__
| |
| |
| |
| |

[tee_grandbois]

Bonsoir rjamin et Loudjé,
cela ne changera pas le problème : la propriété Vertical du texte le fait tout seul mais le sens n'est que de haut en bas et Loudjé le voulait de bas en haut.

[Loudjé]

Merci à vous 2 pour vos réponses (et ce n'est pas grave pour le retard, y a pas de soucis).
Je n'ai pas trop compris ce que Mr.rjamin me conseillé de faire, mais si j'en crois la réponse de Mr.tee_grandbois cela ne changera rien au sens de lecture du texte. J'aimerais qu'il se lise de bas en haut et par défaut quand on le met à la vertical il se lit de haut en bas.
J'ai donc toujours besoin de votre aide.
Désolé...

[rjamin]

Bonsoir,
Ne soyez pas désolé d'avoir besoin d'aide sinon plus de forum.
Le problème c'est que la demande n'est pas courante ni facile.
Je crois que passer par VBA en décomposant les mots caractère par caractère pourrait peut-être permettre cela, mais personnellement je ne vois pas encore comment faire et surtout comment faire faire. Mais quelqu'un à peut-être une autre idée, qui pourrait faire avancé.
Il faudrait nous dire le nombre de caractères maximum à formater de cette manière.

[francishop]

Bonsoir,

Il est possible d'aménager :

Ceci

En :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Command2_Click()
RevTxt = StrReverse([Text3])
    Label5.Caption = ""
    For x = 1 To Len(Text3)
        Label5.Caption = Label5.Caption & Mid(RevTxt, x, 1) & Chr(13) & Chr(10)
    Next x
    Label5.Height = Len(Text3) * 240
End Sub

Cordialement.

[Loudjé]

Bonjour,
J'ai essayé de rentrer votre code dans mon formulaire et dans les propriétés du texte à retourner (sous évenement sur Clic), mais rien ne se passe.

[francishop]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
Private Sub Text3_DblClick(Cancel As Integer)
        'Tahoma => 9 => Gras => Centré
    revTxt = StrReverse([Text3])       'Inverse le texte
    [Text3] = ""                       ' Fait le vide
    [Text3].Value = revTxt             'Colle le texte inversé
    [Text3].Height = Len(Text3) * 240  'Donne la hauteur à Txt3
    [Text3].Width = 150                ' Donne la largeur à Text3
End Sub

Cordialement.

[Loudjé]

Je vous fais suivre mon exemple.
Il faudrait retourner le texte de "Mr. MARTIN" qui se trouve dans le formulaire, pour qu'il puisse se lire de bas en haut.
Merci.

[francishop]

Bonjour,

Remplace partout Text3 par le nom de ta zone de texte. (Ici => Destinataire1)

Vertical => Non
Aligner texte => Standard (Chercher le meilleur compromis...)
Auto extensible => oui (Prévoir certains noms)
Largeur => 0,33

Joue sur la largeur. Exemple

Code :

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

[Destinataire1].Width = 160

Cordialement.

[Loudjé]

Merci beaucoup pour votre aide.