Problème pour calculer un % dans une TextBox

Bonjour à tous,

Etant débutant sur VBA, et ne métissant aucun autre langage informatique, je suis conforté à un problème. Je m’explique,

Dans un UserForme, j’ai trois TextBox dont deux reçoivent une valeur décimale, que j’entre via le pavé numérique. La troisième TextBox devait afficher le résultat en pourcentage, mais je n’arrive pas à trouver .
J’ai écrit le code comme ci-dessous.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub B_Valid_Click() TB_MonPourcent = TB_MonAc.Value / TB_MonDevis.Value End Sub     Private Sub UserForm_Initialize() Me.TB_NoFac = Sheets("NoFacture").[A65000].End(xlUp) + 1 TB_MonDevis.Value = Format(TB_MonDevis.Value, "#,00") TB_MonAc.Value = Format(TB_MonAc.Value, "#,00") TB_MonPourcent = Format(TB_MonPourcent, "0,00%") End Sub

---

Je vous remercie de prendre un peu de votre temps pour quelques explications.

Bien à vous,

Patrick

Bonjour,

Essayez de remplacer

Code:

---

1 2 3

Private Sub B_Valid_Click() TB_MonPourcent = TB_MonAc.Value / TB_MonDevis.Value End Sub

---

par

Code:

---

1 2 3 4

Private Sub B_Valid_Click() TB_MonPourcent = TB_MonAc.Value / TB_MonDevis.Value TB_MonPourcent = Format(TB_MonPourcent, "#.00%") End Sub

---

Bonjour PMO2017,

Merci d'avoir pris un peu de votre temps pour me venir en aide.

J'ai une erreur "Type incompatible (erreur 13)"
à cette ligne,

Code:

---

TB_MonPourcent = TB_MonAc.Value / TB_MonDevis.Value

---

C'est une erreur récurrente, qui me revient toute les fois que je récrit un bout de code. J'ai même fait un essai comme celui-ci,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub B_Valid_Click() Dim x As Single Dim y As Single Dim z As Single   x = TB_MonAc.Value y = TB_MonDevis.Value z = TB_MonPourcent.Value z = (x / y) * 100 & "%"   TB_MonPourcent.Value = TB_MonAc.Value / TB_MonDevis.Value End Sub

---

Je vais continuer de chercher une solution.

Encore merci à vous.

Patrick

Il faut convertir les valeurs des TextBoxes qui sont de type String en type Numeric

Essayez le code suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub B_Valid_Click() Dim x As Double Dim y As Double Dim z As Double   x = CDbl(TB_MonAc.Value) y = CDbl(TB_MonDevis.Value) z = x / y   TB_MonPourcent.Value = Format(z, "#.00%") End Sub

---

C'est quelque chose comme cela. Est-ce mieux ?

Bonjour,

A tester

Code:

---

1 2 3 4 5 6 7 8

Private Sub B_Valid_Click() TB_MonDevis.Value = Format(Replace(TB_MonDevis.Value, ".", ","), "#.00") TB_MonAc.Value = Format(Replace(TB_MonAc.Value, ".", ","), "#.00") TB_MonPourcent = Format(TB_MonAc.Value / TB_MonDevis.Value, "0.00%") End Sub Private Sub UserForm_Initialize() Me.TB_NoFac = Sheets("NoFacture").[A65000].End(xlUp) + 1 End Sub

---

Cordialement.

Bonjour gFZT82,
Re bonjour PMO2017,

PMO2017, votre code génère la même erreur de "Type 13",
par contre la votre gFZT82 fonctionne très bien.

Je pensais qu'en formatant les textbox à l'ouverture ça pouvait marcher, et sans chercher plus loin je m’enfonçais dans des raisonnements compliqués.

Je vous remercie pour tout.

Bon weekend à vous,

Patrick