Lier plusieurs CheckBox avec la même ligne pour chacune

Question

Bonsoir,

Ce code fonctionne bien pour créer une CheckBox devant chaque ligne de mon document Excel,
Svp comment je peux lier chaque CheckBox avec sa même ligne de telle sorte; si je clique sur la CheckBox de la colonne "C", sa cellule convenable de la meme ligne dans la colonne "B" prend la valeur 2 et si j'enlève le CheckMark elle prend la valeur 1

Genre par exemple:

If Range("C").CheckBox.Value = True Then
Range(cell, "B").Range("B").Value = 2
ElseIf Range("C").CheckBox.Value = False Then
Range(cell, "B").Range("B").Value = 1
End If

Mon code qui affiche juste les CheckBoxes devant chaque lignes:

Sub Addcheckboxes()
Dim cell, LRow As Single
Dim chkbx As CheckBox
Dim MyLeft, MyTop, MyHeight, MyWidth As Double

Application.ScreenUpdating = False
LRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

For cell = 2 To LRow
    If Cells(cell, "A").Value <> "" & IsEmpty(Cells(cell, "C")) = True Then
        MyLeft = Cells(cell, "C").Left
        MyTop = Cells(cell, "C").Top
        MyHeight = Cells(cell, "C").Height
        MyWidth = Cells(cell, "C").Width
        With ActiveSheet.CheckBoxes.Add(MyLeft, MyTop, MyWidth, MyHeight)
            .Caption = ""
            .Value = xlOff
            .LinkedCell = "B"
            .Display3DShading = False
        End With
    Else
    Cells(cell, "C") = ""
    End If

Next cell

Application.ScreenUpdating = True

End Sub

Invité · Answer

Une petite présentation ICI serait la bienvenue Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum &#91;A LIRE AVANT DE POSTER&#93; qui vous aidera dans vos demandes et réponses sur ce forum et notamment Joignez (si possible) un fichier pour augmenter vos chances d'obtenir de l'aide en cliquant sur le bouton Fichier de l'éditeur. Si votre fichier est trop lourd ou contient des données personnelles, créez une version allégée de votre fichier avec juste assez d'informations pour permettre de comprendre votre problème. Dans tous les cas, ne postez JAMAIS de fichiers avec des informations personnelles ou confidentielles ( cet utilitaire peut vous aider à les retirer). Merci de votre participation Cordialement...