XL 2019 Pack fonctions XLP

[cytise95]

Bonsoir,
J'ai entendu qu'il y avait un Pack de fonctions XLP permettant d'avoir une fonction : nb.si.couleur($H$4:$H$24;NO.COULEUR(AH10)).
Je ne trouve rien dans les compléments Microsoft. Je trouve des liens de téléchargement -non officiel- donc je reste prudent.
La recherche dans excel downloads est vaine.
Quelqu'un aurait une infos sur ce kit ?
Cordialement

 

[cytise95]

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 :

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) :

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

Merci,
Impossible d'activer la macro, ce message apparait :

 

[Staple1600]

Bonsoir @cytise95, le fil

1) Enregistres le classeur téléchargé dans Mes Documents (ou sur ton Bureau)
En lui donnant un nouveau nom
2) Ferme Excel (facultatif)
3) Ouvres ce nouveau fichier (celui avec le nouveau nom) puis active (ou pas les macros (*))

(*) Conseil en passant
J'ouvre toujours les fichiers issus du Net une 1er fois sans activer les macros
Je regarde le code VBA contenu dans le classeur (au cas où)
Je ferme le classeur
Puis je le réouvre en activant cette fois les macros.

 

[Compte Supprimé 979]

Re,

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.

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

 

[cytise95]

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

N'étant pas expérimenté sur le VBA j'étais sans doute une proie facile.
C'est vrai que faire une généralité suite à 1 souci n'est pas une règle.
Mais chat échaudé craint l’eau froide.
Super s'il n'y a aucun risque, il y à peut être des aides appréciables sur ce site.
Merci