arrondir dans un textbox

Le
Dominique
bonjour,
comment fait t on pour arrondir à 2 chiffres aprés la virgule a
l'interieur d'un textbox?
voici mon code
merci

rivate Sub TE_ObjectifZA1_Change()
On Error Resume Next
Dim i As Variant
i = UF_Valentinus.TE_ObjectifZA1
ActiveSheet.Range("af3").Value = Val(i)
TE_ResteAttribZA = Val(i) - Val(TE_AttribActuelZA)
TE_pourcentActuelObjectZA = Val(i) / Val(TE_AttribActuelZA) * 100
end sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #19971071
Bonjour Dominique,

A ) Lorsque tu travailles avec des textbox, il est préférable
d'utiliser une variable locale (déclaration au niveau de la
procédure) pour effectuer les traitements. Ceci, afin d'éviter
de provoquer les procédures événementielles des textbox
le cas échéant.

Tu utilises la fonction Val(), tu dois savoir que cette fonction
n'utilise que le "POINT" comme séparateur décimale. Si l'usager
utilise la virgule par exemple, elle tronque la valeur avant la
virgule.

Pour arrondir après 2 chiffres après le point :
x = Application.Round(Val(TonTextbox),2)


Private Sub TE_ObjectifZA1_Change()
On Error Resume Next
Dim i As Variant
i = UF_Valentinus.TE_ObjectifZA1
ActiveSheet.Range("af3").Value = Val(i)
TE_ResteAttribZA = Val(i) - Val(TE_AttribActuelZA)
TE_pourcentActuelObjectZA = Val(i) / Val(TE_AttribActuelZA) * 100
end sub


"Dominique" #$
bonjour,
comment fait t on pour arrondir à 2 chiffres aprés la virgule a
l'interieur d'un textbox?
voici mon code
merci

rivate Sub TE_ObjectifZA1_Change()
On Error Resume Next
Dim i As Variant
i = UF_Valentinus.TE_ObjectifZA1
ActiveSheet.Range("af3").Value = Val(i)
TE_ResteAttribZA = Val(i) - Val(TE_AttribActuelZA)
TE_pourcentActuelObjectZA = Val(i) / Val(TE_AttribActuelZA) * 100
end sub
Dominique
Le #19973251
Le 22/08/2009 19:01, MichDenis a écrit :
Bonjour Dominique,

A ) Lorsque tu travailles avec des textbox, il est préférable
d'utiliser une variable locale (déclaration au niveau de la
procédure) pour effectuer les traitements. Ceci, afin d'éviter
de provoquer les procédures événementielles des textbox
le cas échéant.

Tu utilises la fonction Val(), tu dois savoir que cette fonction
n'utilise que le "POINT" comme séparateur décimale. Si l'usager
utilise la virgule par exemple, elle tronque la valeur avant la
virgule.

Pour arrondir après 2 chiffres après le point :
x = Application.Round(Val(TonTextbox),2)


Private Sub TE_ObjectifZA1_Change()
On Error Resume Next
Dim i As Variant
i = UF_Valentinus.TE_ObjectifZA1
ActiveSheet.Range("af3").Value = Val(i)
TE_ResteAttribZA = Val(i) - Val(TE_AttribActuelZA)
TE_pourcentActuelObjectZA = Val(i) / Val(TE_AttribActuelZA) * 100
end sub


"Dominique" #$
bonjour,
comment fait t on pour arrondir à 2 chiffres aprés la virgule a
l'interieur d'un textbox?
voici mon code
merci

rivate Sub TE_ObjectifZA1_Change()
On Error Resume Next
Dim i As Variant
i = UF_Valentinus.TE_ObjectifZA1
ActiveSheet.Range("af3").Value = Val(i)
TE_ResteAttribZA = Val(i) - Val(TE_AttribActuelZA)
TE_pourcentActuelObjectZA = Val(i) / Val(TE_AttribActuelZA) * 100
end sub



Merci pour tes precieux conseils
Publicité
Poster une réponse
Anonyme