Discussion :

[toushusss]

Bonjour,
Comment puis je modifier ce code pour faire apparaitre la formule de la somme au lieu de renvoyer directement la valeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim cellule As Range
   Dim Somme As Single
   Somme = 0
   For Each cellule In Range("C9:C" & Tot.Row - 1)
    If cellule.Font.Color <> vbCyan Then
       Somme = Somme + cellule.Value
    End If
   Next
   Range("C" & Tot.Row).Value = Somme

Merci par avance