cellules couleur et nombres

pierrejean

XLDnaute Barbatruc

• 2 Août 2009

• #2

Re : cellules couleur et nombres

bonjour altinea

Avec 2 fonctions personnalisées

 

Pièces jointes

• alti.zip

  14.4 KB · Affichages: 29
• alti.zip

  14.4 KB · Affichages: 31
• alti.zip

  14.4 KB · Affichages: 28

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 2 Août 2009

• #3

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 2 Août 2009

• #4

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 ?

 

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 2 Août 2009

• #5

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 2 Août 2009

• #6

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:

Code:

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

 

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 2 Août 2009

• #7

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 2 Août 2009

• #8

Re : cellules couleur et nombres

Re

Utilise cette fonction personnalisée

Code:

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

 

Pièces jointes

• alti.zip

  15.1 KB · Affichages: 21
• alti.zip

  15.1 KB · Affichages: 21
• alti.zip

  15.1 KB · Affichages: 22

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 2 Août 2009

• #9

Re : cellules couleur et nombres

Merci pierrejean, cela fonctionne merci

 

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 2 Août 2009

• #10

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

 

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 2 Août 2009

• #11

Re : cellules couleur et nombres

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Août 2009

• #12

Re : cellules couleur et nombres

Re

Mettre

Code:

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

dans le module de la feuille concernée

 

Vote positif 0 Vote négatif