Bonjour la commu!

Je n'arrive décidément pas à trouver la solution à mon problème malgré beaucoup de recherches sur les forums ou de prompts à ChatGPT!!

J'ai un tableau d'une 100aine de lignes
Sur chaque ligne, j'ai une case à cocher ActiveX en colonne E.
Chaque case à cocher est nommée par défaut (Checkbox1, Checkbox2, ..., Checkbox100)
Je veux que lorsqu'on active une checkbox, la case d'à coté en colonne F, ressort un 1.

(contexte: les utilisateurs se constituent ainsi une liste de projets)

Voici le code que j'ai, qui n'est meme pas appelé, et que je ne comprends meme pas (c'est celui de ChatGPT ^^):

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim checkBox As OLEObject
    Dim cell As Range
 
    If Not Intersect(Target, Me.Range("E:E")) Is Nothing Then
        For Each checkBox In Me.OLEObjects
            If TypeName(checkBox.Object) = "CheckBox" Then
                If checkBox.TopLeftCell.Row = Target.Row Then
                    Set cell = Me.Cells(Target.Row, "F")
                    If checkBox.Object.Value = True Then
                        cell.Value = 1
                    Else
                        cell.Value = ""
                    End If
                    Exit For
                End If
            End If
        Next checkBox
    End If
End Sub

HELP ME PLZZZZ...