OVH Cloud OVH Cloud

Format Textbox

4 réponses
Avatar
Denys
Bonjour a tous,

J'ai formate un textbox de la facon suivante:

Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox10) = True Then
Me.TextBox10 = Format(Me.TextBox10, "percent")
End If
End Sub

Cependant, si j'ecris 33, le resultat devient 3300%

Sauriez-vous pourquoi?

Merci

Denys
P.S. Scusez le manque d'accent..... Nouveau laptop pas encore configure
comme du monde......

4 réponses

Avatar
isabelle
bonjour Denys,

il faudra diviser par 100 car
c'est 0.33 qui est égal à 33%
Me.TextBox10 = Format(Me.TextBox10/100, "percent")

isabelle


Bonjour a tous,

J'ai formate un textbox de la facon suivante:

Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox10) = True Then
Me.TextBox10 = Format(Me.TextBox10, "percent")
End If
End Sub

Cependant, si j'ecris 33, le resultat devient 3300%

Sauriez-vous pourquoi?

Merci

Denys
P.S. Scusez le manque d'accent..... Nouveau laptop pas encore configure
comme du monde......




Avatar
Denys
Bonjour Isabelle,

Merci beaucoup et bonne fin de semaine

Denys


bonjour Denys,

il faudra diviser par 100 car
c'est 0.33 qui est égal à 33%
Me.TextBox10 = Format(Me.TextBox10/100, "percent")

isabelle


Bonjour a tous,

J'ai formate un textbox de la facon suivante:

Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox10) = True Then
Me.TextBox10 = Format(Me.TextBox10, "percent")
End If
End Sub

Cependant, si j'ecris 33, le resultat devient 3300%

Sauriez-vous pourquoi?

Merci

Denys
P.S. Scusez le manque d'accent..... Nouveau laptop pas encore configure
comme du monde......







Avatar
ClémentMarcotte
Bonjour,

En VB-VBA, le format n'agit que sur la présentation des nombres et non sur
la valeur.

Mais, tu peux toujours t'amuser avec cette "prodigieuse" adaptation de ta
macro:

Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox10) = True Then
If TextBox10.Value > 1 Then
TextBox10.Value = TextBox10.Value / 100
End If

Me.TextBox10 = Format(Me.TextBox10, "percent")
End If
End Sub

Cela va faire que tu mettre indifféremment 33 ou 0,33 et voir 33 %.
(Évidemment, cela ne tient pas vraiment compte des contraintes subséquentes.
Si ton patron veut que tu comptes avec 33 et que tu comptes avec .33, il va
y avoir une légère différence à la fin. ;-) )

"Denys" a écrit dans le message de
news:
Bonjour a tous,

J'ai formate un textbox de la facon suivante:

Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox10) = True Then
Me.TextBox10 = Format(Me.TextBox10, "percent")
End If
End Sub

Cependant, si j'ecris 33, le resultat devient 3300%

Sauriez-vous pourquoi?

Merci

Denys
P.S. Scusez le manque d'accent..... Nouveau laptop pas encore configure
comme du monde......




Avatar
Denys
Bonjour Clement,

En VB-VBA, le format n'agit que sur la présentation des nombres et non sur
la valeur.

Merci beaucoup...... cette phrase, je vais la retenir car elle est
importante....

Bonne fin de semaine

Denys


Bonjour,

En VB-VBA, le format n'agit que sur la présentation des nombres et non sur
la valeur.

Mais, tu peux toujours t'amuser avec cette "prodigieuse" adaptation de ta
macro:

Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox10) = True Then
If TextBox10.Value > 1 Then
TextBox10.Value = TextBox10.Value / 100
End If

Me.TextBox10 = Format(Me.TextBox10, "percent")
End If
End Sub

Cela va faire que tu mettre indifféremment 33 ou 0,33 et voir 33 %.
(Évidemment, cela ne tient pas vraiment compte des contraintes subséquentes.
Si ton patron veut que tu comptes avec 33 et que tu comptes avec .33, il va
y avoir une légère différence à la fin. ;-) )

"Denys" a écrit dans le message de
news:
Bonjour a tous,

J'ai formate un textbox de la facon suivante:

Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox10) = True Then
Me.TextBox10 = Format(Me.TextBox10, "percent")
End If
End Sub

Cependant, si j'ecris 33, le resultat devient 3300%

Sauriez-vous pourquoi?

Merci

Denys
P.S. Scusez le manque d'accent..... Nouveau laptop pas encore configure
comme du monde......