Discussion :

[Patrick-P]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[PMO2017]

Bonjour,

Essayez de remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Patrick-P]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[PMO2017]

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

Essayez le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[gFZT82]

Bonjour,

A tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Patrick-P]

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