Autres cliquer = additionner

[hervoul]

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

 

[sousou]

Bonsoir
en utilisant le doubleclick par exemple (voir fivhier)

 

[Phil69970]

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

 

[fanch55]

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

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

 

[hervoul]

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

 

[hervoul]

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