Discussion :

[prisme7]

bonsoir je cherche un code pour faire une somme avec ="sum sur une plage de cellule que j'aurais sélectionné auparavant.

mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
sub valcouleur()
Dim couleuro As Variant
 
For Each couleuro In Selection
 
If couleuro.Interior.ColorIndex = 3 Then
Range("D10").Value = "=sum ???? "
End If
 
Next
End Function

merci d'avance si vous avez qq chose

[fring]

Bonjour,

Je verrais bien un truc de ce style là :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub valcouleur()
Dim couleuro As Range
 
Range("D10").Value = 0 '<-- reset de la cellule D10
For Each couleuro In Selection
 
If couleuro.Interior.ColorIndex = 3 Then
Range("D10").Value = Range("D10").Value + couleuro.Value
End If
 
Next
End Sub

[prisme7]

oui j'avais pensé a cette soluce , mais je me demandais si n pouvais le faire avec la fonction sum en tout les cas merci pour cette réponse .

et bonne prog !