Bonjour toutes et tous
coucou Loureed -;)
@Omar, un truc sympa également cela affiche directement sur la StatusBar d'Excel (voir image), le code ci-dessous à mettre sur la feuille
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Dim r As Range
Dim result, t As Double
On Error Resume Next
For Each r In Selection
result = result + r.Value
Next r
On Error GoTo 0
t = result
Application.StatusBar = "Somme: " & t
End Sub
Note: il suffit de sélectionner les cellules et cela, affiche automatiquement la somme des valeurs des cellules, cool ci-joint
Attention: toutefois, de ne pas additionner des dates ce qui fausserait tout !
EDIT: coucou Eriic exact complétement oublié ^^ -;)
crdlt,
André