Format textbox

[apdf1]

Bonjour,

Voila j'ai USF avec plusieurs TextBox et dans le textbox3 j'aimerais que lorsque j'affiche la taille en numérique ex: 25 il me rajoute automatiquement "cm" a la fin "25cm".

Ci joint mon USF qui seras plus parlant
Je vous remercie d'avance te vous souhaite une bonne journée

Max

 

[fhoest]

Re : Format textbox

Bonjour
pourquoi ne pas intégré une textbox dans ta textbox ou il est inscrit cm en fixe?
beaucoup plus simple
A+

 

[phlaurent55]

Re : Format textbox

Bonjour à tous,

avec ceci:

Private Sub T3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
T3.Value = T3.Value + " cm"
End Sub

ou ceci:

Private Sub T3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
T3.Value = T3.Value + " cm"
End Sub

ou alors uniquement un format perso dans la colonne E ----> 0" cm";;;


à+
Philippe

 

[apdf1]

Re : Format textbox

Bonjour Philippe

Je méttais en beté a faire ce code, alors qui avait beaucoup plus simple

Dim InChange As Boolean

Private Sub T3_Change()
If Not InChange Then
InChange = True
' Ton Code...
InChange = False
End If
End Sub

Private Sub T3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not InChange Then
InChange = True
T3.Value = Format(T3.Value) & " cm"
InChange = False
End If
End Sub

Je te remercie et te souhaite une bonne journée

Max

 

[phlaurent55]

Re : Format textbox

re,

j'ai l'impression qu'il y a une erreur dans ton code ci-dessous:

Feuil2.Cells(fin + 1, i + 1) = Controls("T" & i): Controls("T" & i) = ""

je remplacerais 1 par 2

à+
Philippe

 

[apdf1]

Re : Format textbox

Re,

Tu as raison philippe je ne l'avais pas remarqué je te remercie

@+

Max

 

[fhoest]

Re : Format textbox

Re,
edit: bonjour Phlaurent
le problème avec le textbox3_change
c'est que si on tape deux fois dans la textbox ?? aie aie
cm cm cm etc...

 

[phlaurent55]

Re : Format textbox

Re,

Re,
edit:
le problème avec le textbox3_change
c'est que si on tape deux fois dans la textbox ?? aie aie
cm cm cm etc...

c'est pour cela qu'il vaudrait mieux utiliser ces deux procédures:

Private Sub T3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
T3.Value = T3.Value + " cm"
End Sub


Private Sub T3_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
T3.Value = ""
End Sub

mais je préfère de loin utiliser le format perso sur les cellules de la colonne "E" parce que si on est amené à faire des calculs à partir des données entrées on se plantera à coup sûr.

par exemple:
calculer la taille moyenne des males/femelles
calculer la longueur totale lorsqu'ils sont disposés bout à bout 😀😀😀

à+
Philippe

 

[fhoest]

Re : Format textbox

Bonsoir,
c'est juste ce que tu dis et c'est pour ça aussi que ma proposition de séparer le textbox en y mettant un autre dedans ou alors un frame (en plus beaucoup plus beau je trouve pour les userform)
mais si on réfléchi pas trop un bébé d'un metre ou en mm c'est rare lol
Bonne nuit.