Erreur lancement Macro

Bonjour à tous,

Je n'arrive pas à trouver l'erreur de la macro qui me permet de lancer mon formulaire.

Cela fonctionnait, mais plus maintenant.

Si quelqu'un veut bien regarder, merci

Bonjour,

il faut revoir le code de ton Userform initialize()

As-tu supprimé des onglets nécessaires ? par exemple un onglet "Menu" pour tes combobox ?

En attendant j'ai suspendu les actions du initialisze() et il s'ouvre.

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 112
     '   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

Enlever l'apostrophe devant pour réactiver.

Merci Xmenpl

Ce que je ne comprend pas, c'est qu'il s'agit d'un fichier que j'ai modifié à partir d'un fichier existant qui fonctionnait très bien.

Il est en fichier joint.

Bonjour

il manque la CheckBox86 & CheckBox87 a voir

A+

Maurice

Bonjour,

Je relance le sujet car je bloque.

Actuellement, le formulaire se lance mais si, dans le code suvant, je change le 42 en 43, cela ne fonctionne plus

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

Je met le fichier également