somme couleur, toujours!!!

[caterpillar]

comment faire la somme des cellules d'une certaine couleur, obtenue par format mise en forme conditionnelle (je n'y arrive pas, je fais la somme de TOUTES les cellules de la plage!!!) gasp! ;o(!

 

[STéphane]

bonjour

cf <http://xlbysteph.free.fr/aideinformatique/actionformat.htm> ou peut-être <http://xlbysteph.free.fr/aideinformatique/actionfonction.htm>

c'est pas récent mais tu devrais trouver un exemple qui tient compte des formats conditionnels, mais attention il te faudra le miodifier pour tenir compte de toutes les conditions de la mise en forme.

bye
stéphane

 

[caterpillar]

Salut Steph,

merci pour ta réponse, mais j'ai des soucis avec mon micro, il fatigue en fin de journée (moi aussi!)...

le 1er lien que tu m'as indiqué plante (url not found) et le 2ème, bien que rempli d'infos intéressantes ne me donne pas la réponse. T'as pas la soluce?

Cathy

 

[STéphane]

voilà quelques liens :

compter les formats conditionnels <http://xlbysteph.free.fr/aideinformatique/news/formatcond_compter.txt>

afficher les formats conditionnels d'une cellule <http://xlbysteph.free.fr/aideinformatique/news/formatcond_afficher.txt>


Somme des cellules de même Format, autres moyens

Sub Couleur()
Dim Total As Double
Total = Application.WorksheetFunction.Sum( _
Selection.SpecialCells(xlCellTypeSameFormatConditions))
End Sub


<http://xlbysteph.free.fr/aideinformatique/actiondenombrer.htm#3>

et enfin le lien dont je voulais parler
<http://xlbysteph.free.fr/aideinformatique/news/bgcolor.txt>

bye
stephane

 

[caterpillar]

Alors là, sTeph, t'es hyper balaise, comment tu fais pour trouver tout ça??? (la fonction du dernier lien est impressionnante!)

Merci pour tout, je vais tester (demain!!!)

Cathy

 

[STéphane]

j'ai été très très longtemps sur le forum MPFE.
le début de mes pages excel c'est 1998, 3 pages, 1999-2001, explosion de la page principale en plus de 50 pages avec liens sur des conversations que j'ai mises au format texte (les deux autres pages étaient sur le solveur et la programmation linéaire). Depuis des modifications mais pas en profondeur.


donc souvent je sais que j'ai étudié certaines choses et je me souviens approximativement où je les ai laissées sur mon site.

bye
Stéphane

 

[caterpillar]

j'arrive pas!!!

 

[pat5]

Bonsoir
je viens d'arriver et si ça peut te servir
Salut ;o)

 

[STéphane]

du même auteur

<http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&oe=UTF-8&threadm=19990706235811.28986.00010493%40ng-cj1.aol.com&rnum=1&prev=/groups%3Fq%3Dgroup%253Amicrosoft.public.excel.*%2Bauthor%253APhilCxn%2Bformatconditions%26hl%3Dfr%26lr%3D%26ie%3DUTF-8%26oe%3DUTF-8>

elle marche mieux celle-là, mais elle tient compte de la couleur de la cellule (attention pas de la couleur de la police).

il y a un hic au niveau d'une condition quand on recopie le code, j'ai pas plus fouillé pour savoir quelle était la correction correcte.

bye
Stéphane

 

[caterpillar]

Merci à tous,

bon, alors personne n'a trouvé comment faire la somme de cellules ayant une certaine couleur de POLICE obtenue par MISE EN FORME CONDITIONNELLE?

SVP Gardez ma question dans un petit coin et si quelqu'un trouve, écrivez-moi.

Cathy

 

[STéphane]

si tu suis le lien que j'ai mis hier soir et que tu fais ce remplacement, ça marche

mais reste à tester à fond

ça ne tient pas compte des cellules non formatées conditionnellement

' If Cell.FormatConditions(x).Interior.ColorIndex = CdlBgColor Then
If Cell.FormatConditions(x).Font.ColorIndex = CdlBgColor Then

bye
Stéphane