Fonds de couleurs

[Aurel128]

Bonjour le forum
Excel a t-il une formule pour pouvoir calculer les fonds de couleurs ? sans passer par le VBA

Cordialement

Aurel 128

 

[BOISGONTIER]

Re : Fonds de couleurs

Bonjour,

Il faut créer une fonction perso dans un module(Alt+F11) puis Insertion/Module:

Function CouleurFond(c)
  Application.Volatile
  CouleurFond = c.Interior.ColorIndex
End Function

Dans le tableur: =CouleurFond(A1)

JB

 

[MichelXld]

Re : Fonds de couleurs

bonjour


Une solution sans macro :


Par exemple, pour additionner les cellules dont la couleur de fond et jaune, dans la plage A1:A10:
Sélectionne la plage B1:B10
Menu Insertion / Nom / Définir
Dans le champ "Nom dans le classeur", indique le mot "Test"
Dans le champ "Fait référence à" saisis la formule:
=LIRE.CELLULE(63;Feuil1!A1)
Clique sur le bouton Ajouter , puis sur le bouton OK pour valider.

Il s'agit d'une utilisation détournée des anciennes fonctions XL4.
63 Renvoie la couleur de fond de la cellule.

Sélectionne la cellule B1.
Saisis la formule
=Test
Valide la formule.
Utilise les poignées de recopie pour étirer la formule vers le bas.
Ensuite dans la cellule C1, tu peux utiliser une formule qui compte le nombre de fois qu'apparaît un code couleur (6= couleur jaune)
Par exemple:
=NB.SI(B1:B10;6)
Le seul inconvénient, il faut revalider la formule =Test lorsque tu modifies la couleur d'une cellule car le recalcul automatique et le lancement du recalcul (F9) ne fonctionneront pas.
Pour effectuer la mise à jour du résultat, le plus rapide consiste à ressaisir la formule =Test en B1, et utiliser les poignées de recopie vers le bas.


Source:
FAQ MS-Excel - Club d'entraide des développeurs francophones


bonne journée
michel

 

[Aurel128]

Re : Fonds de couleurs

Bonjour BoisGontier

Je te remercie Boisgontier mais ce n'est pas exactement cela en fait j'ai créé un tableau des congés, maladie, Rtt,etc...

J'ai créé une formule pour calculer les différends fonds de couleurs sauf que quand je lance un Userform ma formule inscrit # valeur
Donc cela fait bugguer mon VBA

 

[Aurel128]

Re : Fonds de couleurs

Merci Michel je vais essayer de suite

Cordialement

 

[Aurel128]

Re : Fonds de couleurs

La formule de Michel fonctionne très bien mais il me faut une réactualisation immédiate. Encore Merci Bois Grondin et Michel

 

[Aurel128]

Re : Fonds de couleurs

J'ai trouvé la solution définir un chiffre pour le fonds de couleur et choisir la formule Nb SI

Merci à tous.