Richard 58
XLDnaute Nouveau
Bonjour,
Mon formulaire ne se lance. J'ai identifié le problème. Dans le code suivant :
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
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