复选框旁边的单元格位置

Question

我想将复选框旁边的单元格的值添加到总和中，如下所示：

首先，我尝试返回复选框旁边的单元格的值，但发现在复选框旁边写入此单元格位置的麻烦之处。

我使用“ left”和“ top”如下：

Sub Caseàcocher_Cliquer()

    Dim ligne As Integer
    Dim colonne As Integer

    ligne = 4
    colonne = 3 

    If [Case à cocher 1].Value = 1 Then

    ThisWorkbook.Worksheets(1).Cells(ligne, colonne).Value = ThisWorkbook.Worksheets(1).Cells(ligne, colonne).Value + ThisWorkbook.Worksheets(1).Cells([Case à cocher 1].Left, [Case à cocher 1].Top + 2).Value

    Else: [ThisWorkbook.Worksheets(1).Cells(ligne, colonne).Value] = [ThisWorkbook.Worksheets(1).Cells(ligne, colonne).Value]

我昨天开始VBA，但找不到正确的写作。

这部分是错误的，但我不知道为什么以及如何替换它：

'ThisWorkbook.Worksheets(1).Cells([Case à cocher 1].Left, [Case à cocher 1].Top + 2).Value'