Format TextBox

Le
DAVID
Bonsoir

Je comprend plus rien malgrés toutes les exemples trouvés.

J'ai dans un UserForm 3 TextBox.

Dans le premier TxtMontant, je rentre un montant
Dans le deuxième TxtLitre, un nombre de litre
Dans le troisième TxtPrixLitre, Valeur de TxtMontant / TxtLitre

Quel format je dois appliquer à chaque TextBox ?

Les colonnes ou je récupère les Montants, Litres, PrixLitre doivent être mis
dans un format spécifique ?

Merci de me faire voir la route !!!!

Cordialement

David



Private Sub TxtPrixLitre_Change()
TxtPrixLitre.Value = Format(TxtPrixLitre.Value, "# ### 0.000")
End Sub

Private Sub TxtMontant_Change()
If TxtLitre <> "" Then
If TxtMontant = "" Then
TxtPrixLitre.Value = ""
Else
TxtPrixLitre.Value = Val(TxtMontant.Value) / Val(TxtLitre.Value)
End If
End If
End Sub

Private Sub TxtLitre_Change()
If TxtMontant <> "" Then
If TxtLitre = "" Then
TxtPrixLitre.Value = ""
Else
TxtPrixLitre.Value = Val(TxtMontant.Value) / Val(TxtLitre.Value)
End If
End If
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
Pierre Archambault
Le #20983511
Salut David

Il faudrait d'abord essayer avec le bon format...

TxtPrixLitre.Value = Format(TxtPrixLitre.Value, "#,## 0.000")
La virgule est un séparateur de milliers et donc il ne doit y avoir que
trois positions entre la virgule et le point.
Le système remplacera la virgule par l'espace si c'est la configuration
système actuelle.

Bonne chance

Pierre

"DAVID" OV$F%
Bonsoir

Je comprend plus rien malgrés toutes les exemples trouvés.

J'ai dans un UserForm 3 TextBox.

Dans le premier TxtMontant, je rentre un montant
Dans le deuxième TxtLitre, un nombre de litre
Dans le troisième TxtPrixLitre, Valeur de TxtMontant / TxtLitre

Quel format je dois appliquer à chaque TextBox ?

Les colonnes ou je récupère les Montants, Litres, PrixLitre doivent être
mis dans un format spécifique ?

Merci de me faire voir la route !!!!

Cordialement

David



Private Sub TxtPrixLitre_Change()
TxtPrixLitre.Value = Format(TxtPrixLitre.Value, "# ### 0.000")
End Sub

Private Sub TxtMontant_Change()
If TxtLitre <> "" Then
If TxtMontant = "" Then
TxtPrixLitre.Value = ""
Else
TxtPrixLitre.Value = Val(TxtMontant.Value) / Val(TxtLitre.Value)
End If
End If
End Sub

Private Sub TxtLitre_Change()
If TxtMontant <> "" Then
If TxtLitre = "" Then
TxtPrixLitre.Value = ""
Else
TxtPrixLitre.Value = Val(TxtMontant.Value) / Val(TxtLitre.Value)
End If
End If
End Sub



michdenis
Le #20983621
Bonjour,

Les textbox sont des espaces texte. Si tu saisis un format
à une donnée numérique, contrairement à une cellule de la
feuille de calcul, le format va faire partie intégrante de la
donnée du textbox au même titre que son contenu numérique.

Visuellement, cela peut être intéressant, mais si tu dois effectuer
des opérations mathématiques à partir des données contenues
dans ces textbox, tu vas devoir créer une procédure pour enlever
tous les symboles appartenant à ton format (isoler la donner
numériques) En conséquence, je te suggère d'utiliser un petit
textbox ou label que tu places juste à côté et tu saisis dans ces
dernières le symbole pour indiquer de quoi il s'agit dans tes
textbox contenant tes données.

L'autre problématique des textbox, c'est le séparateur décimale
que tu utilises lors de la saisie.

Un fichier exemple : http://cjoint.com/?bqbJNOoOc4






"DAVID" OV$F#
Bonsoir

Je comprend plus rien malgrés toutes les exemples trouvés.

J'ai dans un UserForm 3 TextBox.

Dans le premier TxtMontant, je rentre un montant
Dans le deuxième TxtLitre, un nombre de litre
Dans le troisième TxtPrixLitre, Valeur de TxtMontant / TxtLitre

Quel format je dois appliquer à chaque TextBox ?

Les colonnes ou je récupère les Montants, Litres, PrixLitre doivent être mis
dans un format spécifique ?

Merci de me faire voir la route !!!!

Cordialement

David



Private Sub TxtPrixLitre_Change()
TxtPrixLitre.Value = Format(TxtPrixLitre.Value, "# ### 0.000")
End Sub

Private Sub TxtMontant_Change()
If TxtLitre <> "" Then
If TxtMontant = "" Then
TxtPrixLitre.Value = ""
Else
TxtPrixLitre.Value = Val(TxtMontant.Value) / Val(TxtLitre.Value)
End If
End If
End Sub

Private Sub TxtLitre_Change()
If TxtMontant <> "" Then
If TxtLitre = "" Then
TxtPrixLitre.Value = ""
Else
TxtPrixLitre.Value = Val(TxtMontant.Value) / Val(TxtLitre.Value)
End If
End If
End Sub
DAVID
Le #20984291
Merci beaucoup à tout les 2 pour vos explication/exemple.

Bonne journée

Cordialement
Publicité
Poster une réponse
Anonyme