[Resolu] Compter occurrences sans reclasser

Dugenou

XLDnaute Barbatruc

• 26 Avril 2017

• #2

En comptant à la main : pour le 1 je trouve 14 et non 12 comme indiqué en ligne 7 : on est d'accord ?

 

Vote positif 0 Vote négatif

S

Shpountz

XLDnaute Occasionnel

• 26 Avril 2017

• #3

Bonjour
Merci de vous pencher sur mon cas
Non c'est bien 12 car je ne compte pas les colonnes C et D

 

Vote positif 0 Vote négatif

Dugenou

XLDnaute Barbatruc

• 26 Avril 2017

• #4

Ok
Voir pj avec une fonction perso en vba d'ou le .xlsm

 

Pièces jointes

• shpountz2.xlsm

  21.7 KB · Affichages: 35

Vote positif 0 Vote négatif

S

Shpountz

XLDnaute Occasionnel

• 26 Avril 2017

• #5

Re-bonjour
En fait quand je l'adapte à mon tableau cela ne fonctionne pas...
J'ai bien recopié le code du module

Function ColorCountIf(ZoneDeRecherche As Object, Modele As Range) As Integer

Application.Volatile True
ColorCountIf = 0

MaCoul = Modele.Interior.ColorIndex
For Each cell In ZoneDeRecherche
If cell.Interior.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + 1
Next cell

End Function

Dans un module de mon classeur.
J'ai aussi changé les formules pour les adapter à mon classeur mais il me marque "absent"

Amicalement
Francois

 

Vote positif 0 Vote négatif

Dugenou

XLDnaute Barbatruc

• 26 Avril 2017

• #6

il faut revoir la formule qui utilise le colorcountif
le absent s'affiche en cas d'erreur : donc on ne trouve pas la ligne à compter avec le equiv.
=SIERREUR(ColorCountIf(DECALER($E$10:$AJ$10;EQUIV(B5;$A$11:$A$19;0)😉;$A$6);"absent")
ah : un détail : faut activer les macros

 

Vote positif 0 Vote négatif

S

Shpountz

XLDnaute Occasionnel

• 26 Avril 2017

• #7

Re

J'ai bien activé les macros (mon doc est un .xlsm)
Je pense avoir modifié correctement la formule...

Je joint mon classeur avec les lignes au bon endroit

Merci

 

Pièces jointes

• Suivi Orange Compter Coul.xlsm

  67.5 KB · Affichages: 27

Vote positif 0 Vote négatif

S

Shpountz

XLDnaute Occasionnel

• 26 Avril 2017

• #8

Bon....
C'est de ma faute cela fonctionne
Mais j'avais copié le module dans le mauvais classeur

Un grand merci pour l'aide
Amicalement
Francois

 

Vote positif 0 Vote négatif

S

Shpountz

XLDnaute Occasionnel

• 29 Avril 2017

• #9

Re
J'ai encore une petite question concernant la formule elle fonctionne très bien lorsque je sélectionne toute les cellules ($E$10:$AJ$10) mais je ne nesa is pas comment faire pour avoir un résultat que sur certaines cellules ?

En fait j'ai besoin de faire un calcul sur AA / R / P / Y / T / AB / I / AI / AJ / AE

Merci d'avance
Amicalement
François

 

Vote positif 0 Vote négatif