XL 2019 Probleme de code

Richard 58

XLDnaute Nouveau
Bonjour,
Mon formulaire ne se lance. J'ai identifié le problème. Dans le code suivant :
VB:
Private Sub UserForm_Initialize()
'
Dim x%, iNb%, sCol$
'
'Récupération des Données
ComboBox1.RowSource = "Menu!A2:A3"
ComboBox2.RowSource = "Menu!B2:B3"
'
With Worksheets("Enfant")
    For x = 3 To 42
        sCol = Split(.Columns(x + 20).Address(ColumnAbsolute:=False), ":")(1)
        iNb = WorksheetFunction.CountIf(.Range(sCol & "3:" & sCol & .Range(sCol & .Rows.Count).End(xlUp).Row), "X")
        Me.Controls("CheckBox" & x).Enabled = IIf(iNb >= .Range(sCol & 3).Value, False, True)
        Me.Controls("CheckBox" & x).Value = False
        Me.Controls("lNb" & x).Caption = CStr(.Range(sCol & 3).Value - iNb)
    Next
End With
'
End Sub

Avec ce code cela fonctionne, le problème est que si je met 43 à la place de 42 cela ne fonctionne plus.
Cela correspond a des CheckBox qui vont de 3 à 110
 

Discussions similaires