Microsoft 365 nb . si couleur

[LEPATOCHE]

Bonsoir a vous tous ;

j'ai mi ce code que j'ai trouver sur internet sur mon classeur 1 mais ca ne marche pas !
Function couleur(Cellule As Range)
Application.Volatile
couleur = Cellule.Interior.ColorIndex
End Function

le but c'est de savoir combien de fois la couleur jaune qui ce trouve dans A1 comme argument
donc le resultat sera de 10 car il faudrat me chercher tout les jaunes dans les colonnes de B a E
merci de votre aide attention pas de formule plutot du vba et apres je mettrai votre code vba dans un autre
classeur !

excusez moi j'ai du mal a m’exprimer !

 

[LEPATOCHE]

rectification de mon classeur 1 dans les colonnes de B a E j'ai mis des mises en forme conditionnel
si non ma question est la même merci a vous tous ! prenez en compte ce nouveau fichier l'autre non !

 

[sylvanu]

Bonsoir Lepatoche,
Cellule.Interior.Color donne la couleur de fond de la cellule mais pas la couleur de la MFC.
Dans votre cas vous pourriez essayer :

Function CompteCouleur(plage As Range, Valeur) As Integer
Application.Volatile
Dim r As Range, i As Integer
For Each r In plage
  If r.Value = Valeur Then i = i + 1
Next
CompteCouleur = i
End Function

Avec cette syntaxe : =CompteCouleur(B1:E7;A3)
Mais avec votre 365 vous devez avoir une version récente du VBA et tester DisplayFormat.Interior.Color.

Astuce VBA : couleur d'une cellule avec une MFC

Comment récupérer la couleur d'une cellule contenant une mise en forme conditionnelle en VBA...

www.excel-pratique.com

 

[mapomme]

Bonjour @sylvanu ,

DisplayFormat.Interior.Color

Il me semble que DisplayFormat.Interior.Color ne fonctionne pas dans une function mais fonctionne dans une Sub.
DisplayFormat existe depuis Excel 2010, non ?

 

[sylvanu]

Bonsoir Mapomme,

DisplayFormat existe depuis Excel 2010, non ?

Aucune idée. Mais en tout cas pas sur 2007.

 

[mapomme]

Re,

Il y a une astuce pour utiliser DispalyFormat dans une fonction. Elle est décrite ICI.

Une application dans le fichier joint. Le code est dans module1 :

Option Explicit

Function CompteCouleur(plage As Range, cellCouleur As Range) As Integer
Dim refCoul, x, nbr&
   Application.Volatile
   refCoul = cellCouleur.Interior.Color
   For Each x In plage: nbr = nbr - (DFColor(x) = refCoul): Next
   CompteCouleur = nbr
End Function

Function DFColor(ByVal R As Range) As Double
   Application.Volatile
   DFColor = Evaluate("Helper(" & R.Address() & ")")
End Function

Private Function Helper(ByVal R As Range) As Double
   Helper = R.DisplayFormat.Interior.Color
End Function

nota 1 : chez moi, on peut mettre autant de Application.Volatile qu'on veut, un changement de couleur n'est pas détecté.

nota 2 : éviter les MFC sur des colonnes entières et les arguments de fonction avec des colonnes entières.

 

[LEPATOCHE]

Merci sylvanu et mapomme je verras cela demain et je vous tiens au courant
encore merci bonne soirée !

 

[Cousinhub]

Bonjour,
Et sinon, tout simplement, en cherchant le nombre de fois où la condition est vérifiée?
Genre :

=NB.SI(B1:E7;4)

Dans le fichier du #2