Format textbox

fhoest

XLDnaute Accro

• 21 Juin 2011

• #2

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+

 

Pièces jointes

• exemple textbox.jpg

  7.9 KB · Affichages: 56

Dernière édition: 21 Juin 2011

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 21 Juin 2011

• #3

Re : Format textbox

Bonjour à tous,

avec ceci:

Code:

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

ou ceci:

Code:

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

 

Dernière édition: 21 Juin 2011

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 21 Juin 2011

• #4

Re : Format textbox

Bonjour Philippe

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

Code:

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 21 Juin 2011

• #5

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

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 21 Juin 2011

• #6

Re : Format textbox

Re,

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

@+

Max

 

Vote positif 0 Vote négatif

fhoest

XLDnaute Accro

• 21 Juin 2011

• #7

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...

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 21 Juin 2011

• #8

Re : Format textbox

Re,

fhoest à dit:

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...

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

fhoest

XLDnaute Accro

• 21 Juin 2011

• #9

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.

 

Vote positif 0 Vote négatif