Solved using vba idea with the following code :
Sub checkbox_unique_on_row()
col_number_start = 6
col_number_stop = 8
Dim shp As Shape
Set shp = ActiveSheet.Shapes(Application.Caller)
'MsgBox shp.Name 'Name
'MsgBox shp.TopLeftCell.Address ' checkbox row
'ActiveSheet.Range(shp.ControlFormat.LinkedCell).Select ' Select linked cell.
cell_row = shp.TopLeftCell.Row
For cell_col = col_number_start To col_number_stop
val_cell_found = Cells(cell_row, cell_col).Value
adress_cell_found = Cells(cell_row, cell_col).Address(RowAbsolute:=False, ColumnAbsolute:=False)
cell_link = shp.ControlFormat.LinkedCell
cell_link = Replace(cell_link, "$", "")
If val_cell_found <> "False" And cell_link <> adress_cell_found Then
Cells(cell_row, cell_col).Value = "False"
End If
Next cell_col
Set shp = Nothing
End Sub
+ Added the sample with it
Bookmarks