cellules couleur et nombres

[altinea]

Bonjour le forum, cela fait quelques heuires que je cherche sur le forum à comprendre, mais je n'arrive pas malgré les éléments trouvés sur le forum. Voila je cherche a additionner le contenu des cellules jaunes dans une case et le contenu des cellules vertes dans uen autre, pourrieez vous m'aider voici un ptit fichier, merci à vous tous

 

[pierrejean]

Re : cellules couleur et nombres

bonjour altinea

Avec 2 fonctions personnalisées

 

[altinea]

Re : cellules couleur et nombres

bonjour pierrejean, merci pour ta réponse, par contre ça ne fonctionne pas, j'utilise excel 2007, est cela qui génère le non fonctionnement, merci

 

[pierrejean]

Re : cellules couleur et nombres

Re

Je ne pense pas qu'Excel 2007 soit en cause
As-tu ouvert mon fichier tel quel ?
Si oui comment se traduit ce non fonctionnement ?

 

[altinea]

Re : cellules couleur et nombres

en fait j'ai ouvert ton fichier et reproduit la formule su rmon fichier, mais cela ne fait rien sur mon fichier rien ne se passe, sur le tien en fait j'ai rajouté des cllules des couleur avec des chiffres dedans sur le jaune cela fonctionne sur l'autre ça ne marche pas, merci

 

[pierrejean]

Re : cellules couleur et nombres

Re

Il te faut transferer les fonctions dans ton fichier
Pour ce faire:
copie/colle ceci dans un module standard de ton fichier:

Function somme_jaune(zone As Range)
For Each cel In zone
 If cel.Interior.Color = 65535 Then x = x + cel.Value
Next cel
somme_jaune = x
End Function
Function somme_verte(zone As Range)
For Each cel In zone
 If cel.Interior.Color = 52377 Then x = x + cel.Value
Next cel
somme_verte = x
End Function

Sinon transfere dans mon fichier les autres elements de ton fichier

 

[altinea]

Re : cellules couleur et nombres

merci pierrejean cela fonctionne par contre où puis je trouver le code de la couleur qui est dans ton code, car si je change de couleur il me faut ce code là?? merci

 

[pierrejean]

Re : cellules couleur et nombres

Re

Utilise cette fonction personnalisée

Function num_color(cellule As Range)
num_color = cellule.Interior.Color
End Function

 

[altinea]

Re : cellules couleur et nombres

Merci pierrejean, cela fonctionne merci

 

[altinea]

Re : cellules couleur et nombres

Pierrejean j'ai encore un petoit souci le système fonctionne par contre il ne se met pas ajour tout seul il me faut cliquer sur la cellule de calcul (=somme_verte(a1:a15)) pour qura ctualiser le résultat y a t'il une astuce pour que cela soit généré dès que la modif est faitre , merci

 

[altinea]

Re : cellules couleur et nombres

re bonjour le forum, si quelqu'un a une idée sur la manip à faire, merci bcp

 

[pierrejean]

Re : cellules couleur et nombres

Re

Mettre

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

dans le module de la feuille concernée