XL 2019 Additionner des valeurs lorsque une case est cochée

Modeste

XLDnaute Barbatruc
Bonjour tout le monde,

Mais non JM27, tu n'es pas transparent ! ;)

Comme je n'aime pas les cases à cocher (ni les boutons d'option) quand il y en a beaucoup, une proposition où la "coche" s'inscrit dans la cellule où on double-clique
Activer les macros à l'ouverture du fichier
 

Pièces jointes

  • Grille évaluation-Charlène.xlsm
    59.2 KB · Affichages: 4

Phil69970

XLDnaute Barbatruc
Bonjour à tous

J'étais sur la même piste et pour les mêmes raisons que @Modeste qui la fait en bien mieux que moi.
Mais pourquoi pas sur "Worksheet_SelectionChange" au lieu de "Worksheet_BeforeDoubleClick"

VB:
Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [B39:E48]) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        temp = Target.Address
        Application.EnableEvents = False
        Cancel = True
        Cells(Target.Row, 2).Resize(1, 4) = vbNullString
        Range(temp) = "ü"
        Application.EnableEvents = True
    End If
End Sub

J'ai juste rajouté un "sierrreur" dans la colonne F

@Phil69970
 

Pièces jointes

  • Grille évaluation-Charlène V1.xlsm
    57.6 KB · Affichages: 6

Discussions similaires

Réponses
21
Affichages
1 K

Statistiques des forums

Discussions
311 721
Messages
2 081 929
Membres
101 843
dernier inscrit
Thaly