Affecter valeur à une case à cocher

Bonjour,

Je suis en train de crée une grille d'audit avec une notation de 1 à 4 (1 mauvais et 4 excellent) et je souhaiterai pour chaque ligne avoir une case à cocher qui prend la valeur souhaitée pour ensuite à la somme pour obtenir la note de mon audit.

Exemple, sur le premier élément qui est excellent je clique sur la case à cocher 4. La ligne du dessous je clique la case à cocher 3 et tout en bas j'ai la somme qui est affiché !

Merci d'avance pour votre potentiel aide :) :) :)

Bonjour,

Avec un exemple-joint via procédure événementielle déclenchée au double clic sur la zone de la notation

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B3:F27")) Is Nothing Then
    If ActiveCell.Value = "" And Application.WorksheetFunction.CountBlank(Range(ActiveSheet.Cells(Target.Row, 2), ActiveSheet.Cells(Target.Row, 6))) <= 4 Then
        MsgBox "Merci de décocher la note déjà sélectionné avant d'attribuer une nouvelle note"
        Exit Sub
    End If
    If ActiveCell.Value <> "" Then
        ActiveCell.Value = ""
        Else
        ActiveCell.Value = "X"
    End If
End If
End Sub

Cdlt,

Merci beaucoup, une alternative qui répond tout à fait à mes besoins !

Superbe communité !