J'aurais voulu juste voir d'autres solutions (donc d'autres manière d'écrire le code VBA) afin d'augmenter mes connaissances en VBA.
Par exemple qui aurait une autre solution pour: ?
(une solution qui n'utiliserait pas de Label pour la somme)
Private Sub OptionButton1_Click()
ValeursOBF1
End Sub
Private Sub ValeursOBF1()
For Each c In Frame1.Controls
If c.Value Then Label2.Caption = Val(c.Tag)
Next
Somme_Options
End Sub
Sub Somme_Options()
TextBox1 = Val(Label2.Caption) + _
Val(Label3.Caption) + _
Val(Label4.Caption)
End Sub
(Le code est trop long pour le coller dans un post
d'ou le lien vers le fichier zip)