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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre Archambault
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" a écrit dans le message de news: 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
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" <direction-ternoise@wanadoo.fr> a écrit dans le message de news:
OV$F%23xilKHA.4408@TK2MSFTNGP04.phx.gbl...
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
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" a écrit dans le message de news: 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
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" a écrit dans le message de groupe de discussion : 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
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" <direction-ternoise@wanadoo.fr> a écrit dans le message de groupe de discussion :
OV$F#xilKHA.4408@TK2MSFTNGP04.phx.gbl...
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
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" a écrit dans le message de groupe de discussion : 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
Merci beaucoup à tout les 2 pour vos explication/exemple.
Bonne journée
Cordialement
Merci beaucoup à tout les 2 pour vos explication/exemple.