XL 2016 [Userform] Recalculer un score à chaque clic sur bouton option

F22Raptor · 14 Mars 2019

Bonjour à tous,
J'ai en tête l'idée d'un userform avec des boutons d'option (une trentaine) dont les captions sont des chiffres (un score de 0 à 5).
Et une zone de texte, dans laquelle apparaîtrait le résultat d'un calcul.

L'idée est que la zone affiche le total des scores.

Pour que le calcul s'effectue en temps réel, il faudrait donc que j'affecte à chaque bouton d'option un événement "OptionButton1_Click".
Et donc c'est lourdingue avec 30 boutons !

Il y aurait selon vous un événement générique "pour tout changement sur le userform" qui permette de lancer le calcul de la somme des scores, plutôt que 30 événements ?

(désolé, pas de fichier, car c'est pour l'instant uniquement une idée qui traîne dans un coin de ma tête)

job75 · 14 Mars 2019

Bonjour F22Raptor,

Voyez le fichier joint, il faut utiliser un module de classe, j'y ai mis ce code :

VB:

Public WithEvents OB As MSForms.OptionButton

Private Sub OB_Click()
MsgBox "OptionButton n° " & OB.Caption
End Sub

La classe est initialisée dans Module1 :

VB:

Public OB() As New Classe1

Sub USF()
Dim c As Control, n
With UserForm1
    For Each c In .Controls
        If TypeName(c) = "OptionButton" Then
            ReDim Preserve OB(n)
            Set OB(n).OB = c
            n = n + 1
        End If
    Next
    .Show
End With
End Sub

A+

F22Raptor · 14 Mars 2019

Merci Job !
Je ne connais pas du tout les modules de classe : visiblement c'est assez puissant.
Je vais creuser ça

XL 2016 [Userform] Recalculer un score à chaque clic sur bouton option

F22Raptor

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Pièces jointes

F22Raptor

XLDnaute Impliqué

Discussions similaires