XL 2019 Pack fonctions XLP

cytise95 · 27 Octobre 2022

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 · 27 Octobre 2022

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 :

VB:

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 · 27 Octobre 2022

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 · 27 Octobre 2022

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 · 27 Octobre 2022

Re,
Salutations du couchant @Staple1600 ,

cytise95 à dit:
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 · 27 Octobre 2022

cytise95 à dit:
Mais leurs fichiers ne sont pas toujours "propre"

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

cytise95 · 27 Octobre 2022

mapomme à dit:
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 · 27 Octobre 2022

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

je n'ai jamais eu de souci ICI

cytise95 · 27 Octobre 2022

mapomme à dit:
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 :

VB:

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 · 27 Octobre 2022

@cytise95

Pourquoi vous avez une solution ?

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

patricktoulon · 27 Octobre 2022

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 · 27 Octobre 2022

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

mapomme à dit:
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 :

VB:

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 · 28 Octobre 2022

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

Compte Supprimé 979 · 28 Octobre 2022

cytise95 à dit:
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 · 28 Octobre 2022

BrunoM45 à dit:
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.

XL 2019 Pack fonctions XLP

cytise95

XLDnaute Junior

mapomme

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

cytise95

XLDnaute Junior

mapomme

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

cytise95

XLDnaute Junior

cytise95

XLDnaute Junior

cytise95

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

cytise95

XLDnaute Junior

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

Compte Supprimé 979

Guest

cytise95

XLDnaute Junior

Discussions similaires