Bonjour Willy, le Forum
Voici une méthode, en supposant que tu lances le calcul depuis un CommandButton, j'ai aussi mis un test de valeur numérique dans les TextBox pour éviter un méchant bug si on tape autre chose que des chiffres ou si elles sont vides :
Private Sub CommandButton1_Click()
Dim Pourcent As Double
If Not IsNumeric(TextBox1) Or Not IsNumeric(TextBox2) Then Exit Sub
Pourcent = ((TextBox2.Value / TextBox1.Value) * 100) / 100
TextBox3.Value = Format(Pourcent, "0.00%")
With Range("A1")
.NumberFormat = "0.00%"
.Value = Pourcent
End With
With Range("A2")
.NumberFormat = "0.00%"
.Value = TextBox3
End With
End Sub
A Toutes fins utiles on notera que la cellule "A1" reporte une valeur numérique, alors que la Cellule "A2" reporte du texte, d'où l'intérêt de la variable de type Double "Pourcent"si on a besoin de récupérer cette valeur pour d'autres caculs en chaines...
Bon Samedi
@+Thierry