Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

chris

XLDnaute Barbatruc
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
Bonjour à toi

On est en phase et tu illustres bien mon post #10 mais nous sommes tous transparents manifestement à part JHA...
 

Discussions similaires

Réponses
21
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…