Discussion :

[strunksor]

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 :

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

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 :



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)

- Curseur à droite :


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.

[Invité]

Code :

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

Me.TextBox1.TextAlign = fmTextAlignCenter