Microsoft 365 =nb_colore #nom?

jérémy35370

XLDnaute Nouveau
Bonjour j'ai téléchargé en complément d'excel un pack de fonctions XLP.
j'ai voulu mettre en forme une formule " =NB_COLORE" mais j'ai toujours le résultat "# nom?".
Avez-vous une explication ?

Capture.JPG
 

Pièces jointes

  • 1680612383602.png
    1680612383602.png
    590 KB · Affichages: 19

jérémy35370

XLDnaute Nouveau
Bonjour à toutes & à tous,
bonjour @jérémy35370
Désolé, je ne connais pas ce complément.
Mais s'il s'agit de compter les nombre de couleurs de fond dans une plage donnée,
on peut écrire une fonction personnalisée.
Je te fais une proposition dès que je serai devant mon PC, là je suis sur mon téléphone...
A bientôt
Bonjour AtTheOne, merci, je veux seulement additionner dans mon tableur excel, les cases qui sont remplis d'un fond jaune. as tu une solution?
J'ai regarder sur le ce site, mais cela ne fonctionne pas
 

AtTheOne

XLDnaute Accro
Supporter XLD
Re bonsoir
les cases qui sont remplis d'un fond jaune
Oui mais quel Jaune ?
Voici une fonction qui compte les cellules avec la même couleur de fond que celle passée en argument :
VB:
Function cmptCoul(Réf As Range)
  
     Application.Volatile True
     couleur = Réf.Interior.Color
     cmptCoul = 0
     For Each c In ActiveSheet.UsedRange.Cells
          cmptCoul = cmptCoul + Abs(c.Interior.Color = couleur)
     Next
  
End Function

Mais elle n'est pas mise à jour sur un simple changement de couleur d'une cellule, il faut lancer un re-calcul (F9)
ou cliquer sur le bouton que j'ai placé sur le fichier en PJ
Par contre avec Volatile True elle est mise à jour avec les changements de valeurs des cellules
 

Pièces jointes

  • CmptCouleurRéf.xlsm
    17.3 KB · Affichages: 2
Dernière édition:

R@chid

XLDnaute Barbatruc
Supporter XLD

AtTheOne

XLDnaute Accro
Supporter XLD
Bonsoir à toutes & à tous,
bonsoir @jérémy35370
Je n'ai pas regarder le complément dont tu parles, mais si tu veux l'utiliser, suis les instructions de @R@chid.
Sinon j'ai ce code :
VB:
'Totalise les cellules de la Plage "PlageSomme" de la même couleur que la cellule "CellCouleur"
Function SommeSiCouleur(PlageSomme As Range, CellCouleur As Range)
     Application.Volatile True
  
     couleur = CellCouleur.Cells(1).Interior.Color
     SommeSiCouleur = 0
     For Each Zone In PlageSomme.Areas  '(Si PlageSomme discontinue)
          For Each c In Zone.Cells
               SommeSiCouleur = SommeSiCouleur + c.Value * Abs(c.Interior.Color = couleur)
          Next c
     Next Zone
  
End Function

Même remarque que précédemment : un simple changement de couleur ne provoque pas la mise à jour du cumul. Dans ce cas il faut un re-calcul (F9).

Voir la PJ
A bientôt
 

Pièces jointes

  • CmptCouleurRéf.xlsm
    18.6 KB · Affichages: 3
Dernière édition:

Discussions similaires

Réponses
3
Affichages
338
Réponses
14
Affichages
320

Statistiques des forums

Discussions
314 628
Messages
2 111 337
Membres
111 104
dernier inscrit
JEMADA