modifier un code

[nrdz83]

Bonjour j'ai ce code qui me permettait de faire la somme des textbox 3 à 16 et de ne pas depasser un nombre de référence qui était dans la textbox deux, et le total se faisait dans ma textbox 17.

Je voudrais en fait que dans les textbox 3 à 16 on ne peut depasser le nombre de la textbox 2.

Comment modifier ce code ?

Par avance merci , mes amitiés à tous

'-------------------------------------------------------------------------------------
' Module    : UserForm1/total
' Utilisation     :faire la somme des textbox de 3 à 16
'-------------------------------------------------------------------------------------
Private Sub total(nbvoix As Integer)
Dim £Ctrl As Control
Dim £coln As Long
nbvoix = 0
For Each £Ctrl In Me.Controls

    If TypeName(£Ctrl) = "TextBox" Then

            £coln = Val(Replace(£Ctrl.Name, TypeName(£Ctrl), ""))

            Select Case £coln
                Case 3 To 16
                    nbvoix = nbvoix + Val(£Ctrl)
                    
            End Select
    End If
   
Next £Ctrl
If nbvoix > Val(TextBox2.Value) Then
    Call MsgBox("Vous avez depassé le nombre alloué!!!", vbCritical, Application.Name)
End If
End Sub

 

[jp14]

Re : modifier un code

Bonjour

Si dans chaque textbox on ne peut dépasser la valeur du textbox2 il suffit de faire un test

                Case 3 To 16
                    if Val(£Ctrl)> val(me.textbox2.value) then £Ctrl.value=  me.textbox2.value
                    nbvoix = nbvoix + Val(£Ctrl)

JP

 

[nrdz83]

Re : modifier un code

Bonjour jp14 super c'est tout à fait ce qu'il me fallait toutes mes amitiés et te souhaite un bon week end.🙄