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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
12
Affichages
933
Réponses
5
Affichages
4 K
Retour