Demande de code complet

Bonsoir,

Merci pour ta réponse! Cependant, l'accès est protégé à priori... Mais si ça se trouve, c'est juste que je n'arrive pas à déchiffrer la partie du code correspondant aux calculs...

Par déduction, je me suis dit que ces derniers étaient réalisés dans cette partie du code:

Public Sub ControlClick(Index As Integer)
Select Case Index
Case Is < 10: AjouterSurText CStr(Index)
Case Is = 10: AjouterSurText ","
Case Is = 11 'Résultat
On Error GoTo ErreurCalcul
Label1.Caption = Evaluate(Replace(TextBox1.Text, ",", "."))
Case Is < 18
AjouterSurText ClGroup(CStr(Index)).Caption
Case 18: If TextBox1.SelLength > 0 Then AjouterSurText ""
Case 19: TextBox1 = "": Label1 = ""
End Select
Exit Sub
ErreurCalcul:
MsgBox "Votre calcul comporte une erreur", vbCritical, "Calculatrice"
End Sub

Sub AjouterSurText(T As String)
If Len(TextBox1.Text) = TextBox1.SelStart Then 'Ajoute
TextBox1 = TextBox1 & T
Else 'Insertion / remplacement
TextBox1 = Left(TextBox1, TextBox1.SelStart) & T _
& Mid(TextBox1, TextBox1.SelStart + 1 + TextBox1.SelLength)
End If
TextBox1.SetFocus
End Sub


Mais sans réellement comprendre la logique... Tu penses pouvoir m'éclairer un peu ?

Merci!

pour répondre à cette question:

Dans le cadre d'un projet d'étude, je me suis intéressé à la création dynamique de userform

Regarde cette discussion:

https://forums.commentcamarche.net/forum/affich-35774235-faire-apparaitre-n-fois-le-meme-userform-avec-un-titre-different#6

@+ Le Pivert