Autres cliquer = additionner

hervoul

XLDnaute Occasionnel
Bonjour,
J'ai mis un petit mot dans le fichier.
Je souhaiterai cliquer sur 2 valeurs dans une ligne (d'un tableau) et qu'elle s'additionnent au bout de la ligne dans une autre cellule.
Merci.
RV
 

Pièces jointes

  • ClasseurRV.xlsx
    17 KB · Affichages: 6

Phil69970

XLDnaute Impliqué
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:

fanch55

XLDnaute Impliqué
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
 
Haut Bas