XL 2010 VBA - Format texte userform

[robindr400]

Bonjour la communauté
J'ai bon chercher, je plante !
ci joint un fichier avec un userform et un print ecran.
Je souhaite :
Textbox139 : au format jj/mm/aaaa
Textbox101 : au format # ##0
Textbox103 : au format # ##0,00%

Et pour finir, j'ai désactivé la saisie dans la textbox103 et du coup la couleur n est plus noir mais gris lors de l'affichage du calcul, impossible de revenir au noir !

Merci du coup de main

 

[sousou]

Bonsoir
Voilà ce que tu peux faire.
(Mais fait attention au format dans le textbox et au format dans la cellule il non pas nécessairement de rapport)
Private Sub TextBox139_AfterUpdate()
If IsDate(TextBox139) = True Then
TextBox139 = Format(TextBox139, "dd/mm/yy")
Else
TextBox139 = ""
End If
End Sub

Private Sub TextBox101_AfterUpdate()
If IsNumeric(TextBox101) = True Then
TextBox101 = Format(TextBox101, "# ## 00")
Else
TextBox101 = ""
End If
End Sub

Private Sub TextBox103_AfterUpdate()
If IsNumeric(TextBox103) = True Then
TextBox103 = Format(TextBox103, "# ##0,00%")
Else
TextBox103 = ""
End If
End Sub

 

[robindr400]

Merci ca fonctionne j 'ai un peu bidouillé mais la gestion des formats n est vraiment pas simple !
Encore merci