Microsoft 365 Encadrement de valeur de textbox par deux nombres decimal

[Claudiuss]

Bonjour,
Sil vous plait je travail sur un projet.
Jai 4 textbox
Teb 1: nombre total
Teb 2: nombre total presents
Teb 3: en pourcentage, 2 chiffres apres la virgule
Teb 4: la mention ( null, mediocre, passable ...)

Teb 3.value= val (Application. Round (val (teb 2.value*100)/teb 1.value, 2)&"%")

Si teb 3.value est compri entre(10% et 19.99%) , ca passe bien et donne comme mention null

Mais si teb 3.value est compri entre (00% et 09.99%) ca donne mention passable au lieu de mention null.

Sil vous plait aider moi a resoudre ce probleme. Merci beaucoup

 

[Gégé-45550]

Bonjour,
Sil vous plait je travail sur un projet.
Jai 4 textbox
Teb 1: nombre total
Teb 2: nombre total presents
Teb 3: en pourcentage, 2 chiffres apres la virgule
Teb 4: la mention ( null, mediocre, passable ...)

Teb 3.value= val (Application. Round (val (teb 2.value*100)/teb 1.value, 2)&"%")

Si teb 3.value est compri entre(10% et 19.99%) , ca passe bien et donne comme mention null

Mais si teb 3.value est compri entre (00% et 09.99%) ca donne mention passable au lieu de mention null.

Sil vous plait aider moi a resoudre ce probleme. Merci beaucoup

Bonjour,
Je n'ai pas trouvé le fichier de test.
Cdlt

 

[patricktoulon]

bonjour
c'est vrai que faire l'effort de donner un fichier representatif serait mieux
inscrit depuis 2020 tu devrais le savoir

cela dit pour e fun vite fait comme ça

Private Sub TextBox1_Change()
    If TextBox1 <> "" And TextBox2 <> "" Then
        v1 = Evaluate(Replace(TextBox2, ",", ".") & "/" & Replace(TextBox1, ",", ".")) * 100
        TextBox3 = v1 & " %"
        Else: TextBox3 = ""
    End If
End Sub

Private Sub TextBox2_Change()
    If TextBox1 <> "" And TextBox2 <> "" Then
        v1 = Evaluate(Replace(TextBox2, ",", ".") & "/" & Replace(TextBox1, ",", ".")) * 100
        TextBox3 = Round(v1, 2) & " %"
        Else: TextBox3 = ""
    End If
End Sub

Private Sub TextBox3_Change()
    With TextBox3
        If .Value <> "" Then
            v = Round(CDbl(Replace(Replace(.Text, ".", ","), " %", "")), 2)
            v = Format(v, "#0.00")
            Select Case True
                Case CDbl(v) < 19.999: TextBox4 = "Null,"
                Case CDbl(v) > 19.999 And CDbl(v) < 30: TextBox4 = "mediocre"
                Case CDbl(v) > 30 And CDbl(v) < 45: TextBox4 = "passable"
                Case CDbl(v) > 45 And CDbl(v) < 55: TextBox4 = "moyen"
                Case CDbl(v) > 55 And CDbl(v) < 75: TextBox4 = "assez bien"
                Case CDbl(v) > 75 And CDbl(v) < 90: TextBox4 = "bien"
                Case CDbl(v) > 90: TextBox4 = "très bien"
            End Select
            Else: TextBox4 = ""
        End If
    End With
End Sub

 

[Claudiuss]

Bonjour,
Je n'ai pas trouvé le fichier de test.
Cdlt

Bonjour.
Ah, ok desole

 

[Claudiuss]

bonjour
c'est vrai que faire l'effort de donner un fichier representatif serait mieux
inscrit depuis 2020 tu devrais le savoir

cela dit pour e fun vite fait comme ça

Private Sub TextBox1_Change()
    If TextBox1 <> "" And TextBox2 <> "" Then
        v1 = Evaluate(Replace(TextBox2, ",", ".") & "/" & Replace(TextBox1, ",", ".")) * 100
        TextBox3 = v1 & " %"
        Else: TextBox3 = ""
    End If
End Sub

Private Sub TextBox2_Change()
    If TextBox1 <> "" And TextBox2 <> "" Then
        v1 = Evaluate(Replace(TextBox2, ",", ".") & "/" & Replace(TextBox1, ",", ".")) * 100
        TextBox3 = Round(v1, 2) & " %"
        Else: TextBox3 = ""
    End If
End Sub

Private Sub TextBox3_Change()
    With TextBox3
        If .Value <> "" Then
            v = Round(CDbl(Replace(Replace(.Text, ".", ","), " %", "")), 2)
            v = Format(v, "#0.00")
            Select Case True
                Case CDbl(v) < 19.999: TextBox4 = "Null,"
                Case CDbl(v) > 19.999 And CDbl(v) < 30: TextBox4 = "mediocre"
                Case CDbl(v) > 30 And CDbl(v) < 45: TextBox4 = "passable"
                Case CDbl(v) > 45 And CDbl(v) < 55: TextBox4 = "moyen"
                Case CDbl(v) > 55 And CDbl(v) < 75: TextBox4 = "assez bien"
                Case CDbl(v) > 75 And CDbl(v) < 90: TextBox4 = "bien"
                Case CDbl(v) > 90: TextBox4 = "très bien"
            End Select
            Else: TextBox4 = ""
        End If
    End With
End Sub

Bonjour
Merci beaucoup.
Desole.

 

[Claudiuss]

Bonjour
Merci beaucoup.
Desole.

Bonjour
Merci beaucoup.
Desole.

Je vais appliquer voir. Merci beaucoup