Faire la somme lorsque la cellule change de couleur

Bonjour a tous

je voudrais faire un code vba tel que, en changeant la couleur d'une cellule , j'obtiens la somme de toutes les valeurs des cellules qui sont sur la même ligne que la cellule ayant change de couleur. Cette somme doit apparaitre dans la cellule ayant change de couleur.

Exemple:

je change la couleur de la cellule A4. Instantanément, j’obtiens la somme des valeurs des cellules allant de B4 à H4. Le résultat est obtenu dans A4.

J'ai essayé ce code mais ca passe pas:

Option Explicit

Dim l As Integer

Dim x As Integer

Dim Cell As String

Private Sub Worksheet_Activate()

x = ActiveCell.Interior.ColorIndex

Cell = ActiveCell.Address

l = ActiveCell.Row ' reccupère la valeur de la ligne de la cellule ayant changé de couleur

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

If Cell = "" Then

x = Target.Interior.ColorIndex

Cell = Target.Address

Exit Sub

End If

If Range(Cell).Interior.ColorIndex <> x Then _

ActiveCell.Value = Application.WorksheetFunction.Sum(Cells(l, 3), Cells(l, 6)) ' fait la somme des cellules allant de la colonne 3 a la colonne 6

x = Target.Interior.ColorIndex

Cell = Target.Address

End Sub

je pense que le pb provient de la formule ActiveCell.Value = Application.WorksheetFunction.Sum(Cells(l, 3), Cells(l, 6))

Merci d'avance

bonsoir,

je ne peux que te conseiller d'utilser

https://www.excel-pratique.com/fr/fonctions-complementaires.php

A+

bjr @bruno

j'y vois pas la formule qui correspond

cordialement