R
refo
Guest
Bonjour,
J'ai trouvé ici comment créer un module pour réussir à faire une somme de plusieurs cellules sans additionné les cellules barrée cela fonctionne parfaitement.
Si je rajoute des valeurs dans une cellule ma somme ce met à jour automatiquement.
Le problème c'est que si je barre une cellule ma somme ne ce met pas à jour.
Y a t'il une fonctionne pour cela... ou faut il que je modifie le code de mon module.
Voilà le code:
Function SOMMESIBARRE#(ParamArray r())
Application.Volatile
Dim i&, oCel As Range
For i = 0 To UBound(r)
For Each oCel In r(i).Cells
If oCel.Font.Strikethrough = False Then
If IsNumeric(oCel.Value) Then
SOMMESIBARRE = SOMMESIBARRE + oCel.Value
End If
End If
Next oCel
Next i
End Function
Je précise que je n'y connait absolument rien, d’où mon incapacité à résoudre mon problème.
Merci d'avance à ceux qui pourront m'aider.
J'ai trouvé ici comment créer un module pour réussir à faire une somme de plusieurs cellules sans additionné les cellules barrée cela fonctionne parfaitement.
Si je rajoute des valeurs dans une cellule ma somme ce met à jour automatiquement.
Le problème c'est que si je barre une cellule ma somme ne ce met pas à jour.
Y a t'il une fonctionne pour cela... ou faut il que je modifie le code de mon module.
Voilà le code:
Function SOMMESIBARRE#(ParamArray r())
Application.Volatile
Dim i&, oCel As Range
For i = 0 To UBound(r)
For Each oCel In r(i).Cells
If oCel.Font.Strikethrough = False Then
If IsNumeric(oCel.Value) Then
SOMMESIBARRE = SOMMESIBARRE + oCel.Value
End If
End If
Next oCel
Next i
End Function
Je précise que je n'y connait absolument rien, d’où mon incapacité à résoudre mon problème.
Merci d'avance à ceux qui pourront m'aider.