Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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 ?

 

Pièces jointes

  • 1680612383602.png
    590 KB · Affichages: 19

AtTheOne

XLDnaute Accro
Supporter XLD
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
 

jérémy35370

XLDnaute Nouveau
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

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
306
Réponses
14
Affichages
280
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…