Somme si couleur
Bonjour tout le monde!
En parcourant le forum j'ai trouvé ce module qui fonctionne très bien pour additionner les cellules dont la police est d'une certaine couleur, puis la formule =SommeSiCouleur(plage;code couleur)
Function SommeSiCouleur(Plage As Range, NumeroDeCouleur%) As Long
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
If wCell.Font.ColorIndex = NumeroDeCouleur Then
SommeSiCouleur = SommeSiCouleur + wCell.Value
End If
Next
End Function
Je souhaiterais faire à peu près la mémé chose, c'est à dire additionner les cellules dont le remplissage (et non la police) est d'une certaine couleur.
Ne connaissant rien au langage VBA, quelqu'un aurait-il la gentillesse de me dire si c'est possible.
Merci d'avance pôur votre aide!
Fabienne
Bonjour,
Il suffit de remplacer dans le code :
Fontpar
InteriorAmicalement
Bonjour Dan!
Merci pour ta réponse rapide!!C'est magique
ça fonctionne!!!!
Bonne soirée!
Fabienne
-- Mar Mai 25, 2010 4:49 pm --
Dan, j'y reviens.
Peux-t-on avoir les deux modules dans un même fichier?
J'ai essayé en créant un module 2 mais, a priori, cela crée conflit.
Merci d'avance pour ta réponse
Fabienne
-- Mar Mai 25, 2010 4:57 pm --
Re!
Sorry!
Avec le fichier d'essai, ça va mieux!
Merci
Fabienne
Bonsoir,
On ne peut avoir le même nom de macro dans un même fichier. Donc ici il utiliser un autre nom de code.
PAr exemple : Pour les polices -->sommesicouleurpolice et pour les cellules sommesicouleur
Amicalement
Bonjour Dan!
Merci!! avec le forum, j'apprends tous les jours, c'est génial!
Bonne journée à tous
Fabienne
Bonjour
Nouveau sur le forum,que je viens de parcourir et débutant avec Excel,
j'ai découvert votre message qui convient presque à mon besoin.
Le code d'écrit par Fabienne fonctionne parfaitement avec des nombres,
question:Je souhaiterai non pas additionner des nombres mais des heures, mais là je cale!!.
Ne connaissant pas grand chose au langage VBA, quelqu'un aurait-il la gentillesse de me dire s'il y a une possibilité.
Merci d'avance pour votre aide.
@+ Peter