XL 2019 Pack fonctions XLP

mapomme à dit:

Re,

Enfin un fichier : ça c'est intéressant.

Je vous déconseille de faire de dénombrement avec comme critère les couleurs de fond. Pour des raisons que je détaillerai pas (couleurs identiques à l’œil mais en réalité différentes, la changement de couleur ne déclenche aucun événement qu'on peut intercepter, complication de repérer les couleurs issues de MFC, ...)

Il vaut mieux utiliser un tableur pour ce qu'il est : la gestion des valeurs des cellules.

Dans le fichier joint, il y a une fonction :

VB:

NBQuiQuoi ( xPlageQui As Range , xQui , xPlageQuoi As Range , xQuoi)

Voir la formule en cellule AH5 à copier vers la droite et vers le bas.

Le code est dans module1 (et doit être dans un module indépendant et non dans un module de feuille) :

VB:

Function NBQuiQuoi(xPlageQui As Range, xQui, xPlageQuoi As Range, xQuoi)
Dim j&, y, n&
   ' Quelques vérifs  sur les plages
   If xPlageQui.Column <> xPlageQuoi.Column Then NBQuiQuoi = CVErr(xlErrRef): Exit Function
   If xPlageQui.Columns.Count <> xPlageQuoi.Columns.Count Then NBQuiQuoi = CVErr(xlErrRef): Exit Function
   ' Dénombrement
   For j = 1 To xPlageQui.Columns.Count
      If xPlageQui(1, j) = xQui Then
         For Each y In xPlageQuoi.Columns(j).Cells
            If y = xQuoi Then n = n + 1
         Next y
      End If
   Next j
   NBQuiQuoi = n
End Function

Cliquez pour agrandir...

cytise95 à dit:

J'ai eu un virus dans une macro ci qui m'a bloqué un bout de temps.
J'avais fait appel à Kaspersky pour remettre en état.

Cliquez pour agrandir...

BrunoM45 à dit:

Re,

Alors pour commencer, en plus de 30ans de carrière, je n'ai jamais vu ça 🤔 pas de chance 🙄
Et même si cela était bien le cas, avec 1 fichier vous en déduisez que tous les fichiers sont "sales"
Bravo 👏👍🤣

Cliquez pour agrandir...