3 pièce(s) jointe(s)
Alignement texte dans une textbox
Bonjour et merci de votre attention,
J'ai un userform ou la date doit être introduite,
J'ai ajouté une fonctionnalité consistant à introduire la date au moment ou l'userform est ouvert :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
|
Private Sub UserForm_Initialize()
TextBox_minutes.Value = Minute(Now)
TextBox_minutes.TextAlign = fmTextAlignLeft
TextBox_heures.Value = Hour(Now)
TextBox_heures.TextAlign = fmTextAlignLeft
TextBox_jours.Value = Day(Now)
TextBox_jours.TextAlign = fmTextAlignLeft
TextBox_mois.Value = Month(Now)
TextBox_mois.TextAlign = fmTextAlignLeft
TextBox_années.Value = Year(Now)
TextBox_années.TextAlign = fmTextAlignLeft
End Sub |
Le problème est que le texte n'est pas vraiment bien centrer :
Pièce jointe 143139
Voila a quoi ça ressemble quand j'ouvre l'userform, j'ai pu me rendre compte que selon la position du curseur dans la zone de texte avant que je quitte la zone de texte, fait varier la position du contenu, par exemple :
-Curseur à gauche : (vous pouvez voir le curseur dans les minutes)
Pièce jointe 143136
- Curseur à droite :
Pièce jointe 143137
L'idée serait que dès que l'userform s'ouvre cela ressemble au cas "Curseur à droite", comme vous pouvez le voir dans le code j'ai tenté un alignement à gauche, mais cela n'a eu aucun effet.
Je m'en remet donc à vous en espérant que vous pourrez m'aider.
En vous remerciant.
