Autres cliquer = additionner

sousou

XLDnaute Barbatruc

• 25 Novembre 2020

• #2

Bonsoir
en utilisant le doubleclick par exemple (voir fivhier)

 

Pièces jointes

• ClasseurRV.xlsm

  21.4 KB · Affichages: 8

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 25 Novembre 2020

• #3

Hervoul, Sousou, le forum

Il y a une petite erreur il me semble pour pouvoir additionner la col G

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Column > 1 And Target.Column < 8 And Target.Row > 1 And Target.Row < 41 Then
Target.Parent.Cells(Target.Row, 8) = Target.Parent.Cells(Target.Row, 8) + Target
End If
If Target.Column = 8 Then Target = ""
End Sub

@Phil69970

 

Dernière édition: 26 Novembre 2020

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 25 Novembre 2020

• #4

Bonsoir, une solution qui ne marche que s'il n'y a pas de cellules fusionnées :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("H3:H40").ClearContents
    Select Case True
        Case Target.Rows.Count > 1
        Case Not Intersect(Target,Range("B3:G40")) Is Nothing
            Range("H" & Target.Row) = WorksheetFunction.Sum(Selection)
    End Select
End Sub

Les cellules seront donc à sélectionner avec Ctrl+Clic

 

Vote positif 0 Vote négatif

H

hervoul

XLDnaute Occasionnel

• 26 Novembre 2020

• #5

Je vous remercie beaucoup et vous souhaite une bonne continuation !
RV

 

Vote positif 0 Vote négatif

H

hervoul

XLDnaute Occasionnel

• 26 Novembre 2020

• #6

Super! ça fonctionne du tonnerre !
re...merci !

 

Vote positif 0 Vote négatif