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

[pgz]

Bonjour.

Tu peux essayer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim cellule As Range
Dim Somme As String
'Dim Tot As Excel.Range
 
'Set Tot = Range("C14")
 
For Each cellule In Range("C9:C" & Tot.Row - 1)
    If cellule.Font.Color <> vbCyan Then
        Somme = Somme & "+" & cellule.Address
    End If
Next
 
Somme = "=" & Mid$(Somme, 2)
Range("C" & Tot.Row).Formula = Somme

Cordialement,

PGZ

[toushusss]

merci pgz je vais m'ateler à la tache et essayer de faire tourner ça.