zebanx
XLDnaute Accro
Bonjour à tous,
Je cherche à compléter une fonction fournie par JB () permettant de :
- faire une somme sur un range en fonction des couleurs (ici la couleur de la cellule sur même colonne et prochaine ligne)
- en limitant le calcul par une sortie si on retrouve la même couleur que celle où est renseignée la fonction.
J'ai essayé de sortir de la boucle sur le code ci-joint mais cela ne fonctionne pas.
Comme habituellement, un fichier pour être plus clair.
Les formules en colonne "F" ne sont là que pour donner le résultat, l'objectif étant d'utiliser la fonction directement qui évitera de "borner".
Merci par avance à ceux qui seront intéressés.
Bonne apm
zebanx
Je cherche à compléter une fonction fournie par JB () permettant de :
- faire une somme sur un range en fonction des couleurs (ici la couleur de la cellule sur même colonne et prochaine ligne)
- en limitant le calcul par une sortie si on retrouve la même couleur que celle où est renseignée la fonction.
J'ai essayé de sortir de la boucle sur le code ci-joint mais cela ne fonctionne pas.
Comme habituellement, un fichier pour être plus clair.
Les formules en colonne "F" ne sont là que pour donner le résultat, l'objectif étant d'utiliser la fonction directement qui évitera de "borner".
Merci par avance à ceux qui seront intéressés.
Bonne apm
zebanx
VB:
Function scr(champ As Range, couleurFond As Range)
Application.Volatile
Dim c, temp
temp = 0
x = ActiveCell.Interior.ColorIndex
For Each c In champ
If c.Interior.ColorIndex = couleurFond.Interior.ColorIndex Then
If IsNumeric(c.Value) Then temp = temp + c.Value
If c.Interior.ColorIndex = x Then GoTo prochain
End If
Next c
prochain:
scr = temp
End Function