Private Sub UserForm_Initialize()
Dim texte As String
Dim MaxL As Integer
MaxL = 30 '--------------- valeur à adapter
With Me.CommandButton1
'*=*=*=*=*=*=*=*=
' on pourra supprimer cette partie de code si l'on fixe lors de la conception ces paramétres
.Font.Size = 8
.Font = "Courier new"
.Width = .Font.Size * MaxL
.WordWrap = False
'*=*=*=*=*=*=*=*=
texte = "Enregistrer une demande"
.Caption = Left(texte & String(MaxL - Len(texte) / 2, Chr(32)), MaxL)
End With
With Me.CommandButton2
'*=*=*=*=*=*=*=*=
' on pourra supprimer cette partie de code si l'on fixe lors de la conception ces paramétres
.Font.Size = 8
.Font = "Courier new"
.Width = .Font.Size * MaxL
.WordWrap = False
'*=*=*=*=*=*=*=*=
texte = "Ajouter une demande"
.Caption = Left(texte & String(MaxL - Len(texte) / 2, Chr(32)), MaxL)
End With
With Me.CommandButton3
'*=*=*=*=*=*=*=*=
' on pourra supprimer cette partie de code si l'on fixe lors de la conception ces paramétres
.Font.Size = 8
.Font = "Courier new"
.Width = .Font.Size * MaxL
.WordWrap = False
'*=*=*=*=*=*=*=*=
texte = "AbcdefGhijklMnopqrStuvwxy"
.Caption = Left(texte & String(MaxL - Len(texte) / 2, Chr(32)), MaxL)
End With
End Sub