Probleme de calcul de cellules.

Re : Probleme de calcul de cellules.

bonjour,

ma question est : quelle est la règle d'application d'une couleur particulière et d'un motif particulier
si tu réponds à cela, tu devrais déjà avoir un début de réponse à ta question
sinon, envoie un bout de ton fichier

Re : Probleme de calcul de cellules.

Bonjour choco03, mutzik,

Sans rien enlever à ce que vient de dire le second nommé ... et comme j'y étais, une proposition de fonction personnalisée.

Re : Probleme de calcul de cellules.

Bonjour à tous.

Merci de m'avoir repondu.

Je vous envoy un exemple.

Re : Probleme de calcul de cellules.

re-bonjour choco,

en annexe, ton fichier ... avec 2 remarques:
- quand tu parles de somme, dans ton premier message, il faut comprendre que tu veux compter le nombre de cellules!?
- le motif que tu as utilisé n'est pas le même dans ta plage de cellules et dans la cellule de référence ... j'ai donc modifié le motif de ta plage

Vois si tu t'y retrouves ... et convertis en procédure, si ce n'est pas une fonction que tu souhaitais.
Et puis tiens-nous au courant!

Re : Probleme de calcul de cellules.

Re bonjour à tous.

C'est exactement se que je voulais.
Désolé pour l'erreur de motif j'ai pas fait attention.

Je vous remercie encore pour m'avoir aidé et d'avoir trouvé une solution a mon probleme tres rapidement.

Bonne fête à vous tous !!!!

Re : Probleme de calcul de cellules.

Puis je vous embêter encore un peu.

Je voudrais la même chose mais que sa prenne aussi les couleurs et motif.
Car j'ai deux macros une pour compter les cellules coloré et l'autre pour les motifs. Serait-t il possible calculé la somme des cellule qui ont un certain motif avec une couleur spécifique.

Je vous envoy un exemple en piece jointe.

Voici l'écriture que j'ai sur la VBA.

Function ColorCountIf(SearchArea As Object, BgColor As Range) As Integer

Application.Volatile True
ColorCountIf = 0
MaCoul = BgColor.Interior.ColorIndex
For Each cell In SearchArea
If cell.Interior.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + 1
Next cell

End Function


Public Function cpteMotifs(CellRef As Range, plageRef As Range)
Dim c As Range
'attention éventuellement aux PatternColor et/ou PatternColorIndex
With Sheets("Feuil1")
For Each c In plageRef
If c.Interior.Pattern = CellRef.Interior.Pattern Then somme = somme + 1
Next c
End With
cpteMotifs = somme
End Function

Merci d'avance.🙂

Re : Probleme de calcul de cellules.

re,
et pourquoi tu ne réponds pas à ma question, stp, cela te srait beaucoup plus facile pour trouver les résultats, mais bon, ce que j'en dit ...

Re : Probleme de calcul de cellules.

J'ai mis une piece jointe dans mon dernier message pour montrer se que je voulais faire.

Re : Probleme de calcul de cellules.

Bonsoir choco03, Bertrand,

Me voici triplement ennuyé:
- Tu n'as toujours pas répondu à la question de l'honorable mutzik, qui était:

mutzik à dit:

quelle est la règle d'application d'une couleur particulière et d'un motif particulier
si tu réponds à cela, tu devrais déjà avoir un début de réponse à ta question

Cliquez pour agrandir...

Ce que l'ami Bertrand essayait peut-être de dire, c'est qu'il est possible de prendre un problème (et sa solution) par divers bouts. Si je réponds à ta demande, c'est un peu comme si je sous-entendais que la question était sans intérêt ... et je ne crois rien de tel (que du contraire!)
- La fonction ColorCountIf ressemble comme une soeur siamoise à la prose du non moins honorable Jacques BOISGONTIER, dont j'espère qu'il ne me vouera pas aux gémonies !
- Ma troisième source d'ennui vient du fait que -à nouveau- les motifs étaient différents dans la plage de cellules et les cellules de référence de ton dernier fichier ajouté. En soi, ça n'a rien de dramatique, mais cela implique que si d'autres erreurs de ce type sont commises, les résultats risquent d'être erronés ... sans que tu le saches. (Ceci, somme toute, pourrait nous ramener à l'intérêt de la question de mutzik, non ?)

Tout ceci étant posé et sans aucune garantie donc, que la proposition soit fiable à 100%, à l'avenir, une proposition en pièce jointe ... qui vaut ce qu'elle vaut! ... et qui était rédigée avant que je ne lise les derniers échanges.

@+

Re : Probleme de calcul de cellules.

Merci pour votre aide le dernier fichier me convient parfaitement et encore merci beaucoup pour votre aide.