Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Bonjour
Pas de problème
Ce navigateur n’est plus pris en charge.
Effectuez une mise à niveau vers Microsoft Edge pour tirer parti des dernières fonctionnalités, des mises à jour de sécurité et du support technique.
Voilà la fonction :
Public Function SommeParCouleur(plage As Range, Couleur As Range)
Somme = 0
For Each rCell In plage
If rCell.Interior.Color = Couleur.Interior.Color Then
Somme = Somme + rCell.Value
End If
Next
SommeParCouleur = Somme
End Function
Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.
Pour ce que j'en vois, le deuxième paramètre de la fonction doit être une cellule et pas un nombre
Pour reprendre ton exemple, il faudrait mettre plutôt =SommeParCouleur(L5:L10;L5) pour que ça totalise les cellules qui ont la même couleur que la cellule L5.
Bonsoir,
Merci beaucoup, ca fonctionne !!!
Bonjour,
Mets :
Public Function SommeParCouleur(plage As Range, Couleur As Long)
Cordialement.
Daniel