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

 

[mapomme]

Bosoir @cytise95

Si ça n'existe pas alors on le fait (fonction personnalisée en VBA). Voir formules en colonne H.

Attention ! Quand on change la couleur d'un fond, la fonction n'est pas recalculée. Il faut forcer le re-calcul de la feuille.

Placer dans un module, le code suivant :

Function NbrSiRefCoul&(xplage As Range, xRef As Range)
Dim ref, x, n&
   ref = xRef.Interior.Color
   For Each x In xplage: n = n - (x.Interior.Color = ref): Next
   NbrSiRefCoul = n
End Function

 

[Staple1600]

Bonsoir le fil

@cytise95
Cela existe mais sur l'autre forum
Icelui que dedans son patronyme, pratique tu pourras lire
(et ce n'est pas fourni pas Microsoft)

@mapomme
saluations du soir

 

[cytise95]

Merci de cette info
Mais leurs fichiers ne sont pas toujours "propre"
Dommage la fonction "NB.SI.COULEUR" m'intéressait vivement. Je vais devoir mettre des lettres dans les cellules pour une mise en couleur conditionnelle
Sincères salutations

 

[mapomme]

Re,
Salutations du couchant @Staple1600 ,

Dommage la fonction "NB.SI.COULEUR" m'intéressait vivement. Je vais devoir mettre des lettres dans les cellules pour une mise en couleur conditionnelle

Tiens je compte pour du beurre...

 

[mapomme]

Mais leurs fichiers ne sont pas toujours "propre"

Et qui c'est qui a des fichiers propres à 100% ?????

 

[cytise95]

Re,


Tiens je compte pour du beurre...

Pourquoi vous avez une solution ?
La, je me prend la tete pour compter les cellules contenant une lettre dont la colonne correspond à un nom

 

[cytise95]

Et qui c'est qui a des fichiers propres à 100% ?????

je n'ai jamais eu de souci ICI

 

[cytise95]

Bosoir @cytise95

Si ça n'existe pas alors on le fait (fonction personnalisée en VBA). Voir formules en colonne H.

Attention ! Quand on change la couleur d'un fond, la fonction n'est pas recalculée. Il faut forcer le re-calcul de la feuille.

Placer dans un module, le code suivant :

Function NbrSiRefCoul&(xplage As Range, xRef As Range)
Dim ref, x, n&
   ref = xRef.Interior.Color
   For Each x In xplage: n = n - (x.Interior.Color = ref): Next
   NbrSiRefCoul = n
End Function

Désolé je n'avais pas vu votre réponse
Je vais essayer dans mon fichier

 

[Staple1600]

@cytise95

Pourquoi vous avez une solution ?

Je dirais qu'une solution qui fleure bon la pomme vous attend dans le message#2, non ?

 

[patricktoulon]

bonsoir
il me semble l'avoir téléchargé dans le temps et il y avait un mot de passe vba alors poubelle directe

mais je me demande bien comment l'auteur sur excel pratique a pu coder ça en vba pour avoir une fonction
s'exprimant par fonction . condition . sujet dans une formule
je fait référence aux points dans ma question

j'ai deja tenté l'aventure avec des variable type ou des fonction get property et let property
mais je n'ai jamais trouvé
la je suis vraiment curieux

 

[cytise95]

Désolé je n'avais pas vu votre réponse
Je vais essayer dans mon fichier

Bosoir @cytise95

Si ça n'existe pas alors on le fait (fonction personnalisée en VBA). Voir formules en colonne H.

Attention ! Quand on change la couleur d'un fond, la fonction n'est pas recalculée. Il faut forcer le re-calcul de la feuille.

Placer dans un module, le code suivant :

Function NbrSiRefCoul&(xplage As Range, xRef As Range)
Dim ref, x, n&
   ref = xRef.Interior.Color
   For Each x In xplage: n = n - (x.Interior.Color = ref): Next
   NbrSiRefCoul = n
End Function

J'ai essayé mais sans résultat.
Il y a aussi une condition il faut que les colonnes correspondent à un nom

 

[mapomme]

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

 

[Compte Supprimé 979]

Merci de cette info
Mais leurs fichiers ne sont pas toujours "propre"

Bonjour cytise95
Je me permet d'intervenir car j'aimerai savoir ce qui vous permet de dire une telle chose !?

 

[cytise95]

Bonjour cytise95
Je me permet d'intervenir car j'aimerai savoir ce qui vous permet de dire une telle chose !?

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.