Activation ou désactivation de checkBox en fonction d'une cellule

Bonjour,

Je débute avec excel VBA et j'aurai souhaité pouvoir activer ou désactiver mes checkboxs si une cellule est = 0 ou vierge, disons A1 pour l'exemple.

Si mes checkboxs sont actives, alors j'aimerai qu'elles exécutent les macros associées.

Je joints un fichier avec les formules que j'utilise dans mon fichier de base.

Merci de votre aide !

13test-forum.xlsm (20.96 Ko)

Bonjour,

Si j'ai bien compris, dans le module de votre feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, [A1]) Is Nothing Then
    If [A1] = 0 Or [A1] = "" Then
        For Each OBJ In ActiveSheet.OLEObjects
            If TypeName(OBJ.Object) = "CheckBox" Then OBJ.Enabled = False
        Next OBJ
        Else
        For Each OBJ In ActiveSheet.OLEObjects
            If TypeName(OBJ.Object) = "CheckBox" Then OBJ.Enabled = True
        Next OBJ
    End If
End If
End Sub

Cdlt,

Bonjour,

Super merci beaucoup cela fonctionne pour mon cas, maintenant il faut que je réussisse à l'intégrer dans mon fichier. En changeant A1 par ma cellule, cela devrait fonctionner.

Merci beaucoup !

Rechercher des sujets similaires à "activation desactivation checkbox fonction"