XL 2013 [Résolu] Problème d'affichage valeur

[Lone-wolf]

Bonjour à toutes et à tous

J'ai un souci avec ce module de classe

Option Explicit

Public WithEvents TbBox As MSForms.TextBox

Private Sub TbBox_Change()
Dim i&, Total#


    Total = 0
  
    For i = 1 To 12
        Set TbBox = UsfMoyennes.Controls("TextBox" & i)
    Next i
        If TbBox <> "" Then Total = Total + TbBox

    With UsfMoyennes
        .TxtNote = WorksheetFunction.Average(CDbl(Total))
        .TxtNote = Replace(.TxtNote.Value, ",", ".")

        If .TxtNote > 4 Then
            .TxtTest = "Réussi"
        Else
            .TxtTest = "Echoué"
        End If
    End With
End Sub

Dans l'userform en entête : Dim TbBox(1 To 12) As New NotesClasses, et dans Initialize

For k = 1 To 12
Set TbBox(k).TbBox = Me.Controls("TextBox" & k)
Next k

En insérant les données, rien ne s'afiche dans la textbox TxtNote.

 

[job75]

Bonjour Lone-wolf,

Ah le petit loup est de retour, mais il perd ses fichiers en cours de route...

A+

 

[Lone-wolf]

Bonjour Gerard

Voici le fichier en question. J'ai fait en attendant d'autres modifications, mais toujours rien.

Notes: les 12 textbox ne sont pas obligatoirement toutes remplies, puisqu'il y s'agit de tests éffectués de façon irrègulière.

 

[job75]

Re,

Le code du module de classe :

Public WithEvents TbBox As MSForms.TextBox

Private Sub TbBox_Change() 'AfterUpdate() ne fonctionne pas
Dim i%, x$, s#, n%
TbBox = Replace(TbBox, ".", Application.DecimalSeparator)
With TbBox.Parent
    For i = 1 To 12
        x = .Controls("TextBox" & i)
        If IsNumeric(x) Then s = s + CDbl(x): n = n + 1
    Next
    If n = 0 Then .TxtNote = "": .TxtTest = "": Exit Sub
    .TxtNote = s / n
    .TxtTest = IIf(s / n > 4, "Réussi", "Echoué")
End With
End Sub

A+

 

[Lone-wolf]

Re,

Merci beaucoup Gerard, nickel comme d'habitude.

 

[ChTi160]

Bonsoir Lone-wolf
Bonsoir le fil ,le Forum
Oupsssssssssssssssss
jean marie

 

[Lone-wolf]

Bonjour jean marie

@ChTi160

Oui je sais, mais j'avais utilisé aussi Change, sans résultat.

Au faite, comme il y a des notes (3.5 - 4.5 - 5.5) qui donnent comme résultat 4.333333 ou autre, comment faire pour arrondir à 3.5, 4.5 etc.?

 

[ChTi160]

Re
oupsssss
Jean marie

 

[job75]

Bonjour ChTi160,

Sur AfterUdate j'ai bien écrit au post #4 :

Private Sub TbBox_Change() 'AfterUpdate() ne fonctionne pas

Et plutôt que d'utiliser Round on peut formater le résultat :

.TxtNote = Format(s / n, "0.00")

A+

 

[ChTi160]

Excuse ! je ne cours pas
et le temps que j envoie ma reponse tu etais passe par la.
Excuse encore! je ne remets rien en cause..
Je supprime donc cela!!
Jean marie

 

[Lone-wolf]

Re Gerard

Ok. Merci encore.

 

[job75]

Jean-Marie il n'y a pas de mal, ce n'est pas nécessaire de t'excuser et n'aie pas honte de ce que tu écris !