Lone-wolf
XLDnaute Barbatruc
Bonjour à toutes et à tous
J'ai un souci avec ce module de classe
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.
J'ai un souci avec ce module de classe
VB:
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.
Dernière édition: