Bonjour,

J'ai créé des checkbox avec tous un nom différent (chkTous, chkFacture...)
J'aimerais tous les activer ou désactiver (Enabled)
Tous les exemples que j'ai trouvé sont avec un nom "CheckBox"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Function ActiveChk(bActif As Boolean)
Dim c As Object
For Each c In ActiveSheet.OLEObjects
    If InStr(1, c.Name, "CheckBox") > 0 Then
        c.Object.Venable = bActif
    End If
Next
End Function
Merci de vos retour
FikoU