somme en fonction du format des cellule

[andreis]

bonjour à tous

je voudrais faire la somme en cellule AJ6 des cellules de la ligne C6:AG6 selon la couleur de remplissage des cellule ex:combien de cellule verte, combien de cellule orange et combien de cellule bleu. et sans tenir compte du contenue des cellules.
merci a tous ceux qui peuvent m'aider

 

[tototiti2008]

Re : somme en fonction du format des cellule

Bonjour andreis,

Bienvenue sur XLD

sans doute des pistes par là

https://www.excel-downloads.com/threads/comptage-cellules-coloriees.152122/

sinon tu as un lien Recherche en haut de la page, le sujet a déjà été abordé de nombreuses fois

si toutefois tu ne trouves pas ce qui te vas, reviens poser des questions sur ce fil 😉

 

[ROGER2327]

Re : somme en fonction du format des cellule

Bonjour andreis

Une petite formule personnalisée à placer dans un module quelconque :

[COLOR=DarkSlateGray][B]Function compteCouleur&(r As Range, c%)
Application.Volatile
Dim cel As Range
  For Each cel In r.Cells: compteCouleur = compteCouleur - (cel.Interior.ColorIndex = c): Next cel
End Function[/B][/COLOR]

[COLOR=DarkSlateGray][B]=compteCouleur([/B][I]plage[/I][B];[/B][I]ColorIndex[/I][B])[/B][/COLOR]

renvoie le nombre de cellules de plage ayant ColorIndex comme valeur de la propriété Interior.ColorIndex.

Par conséquent, en AJ6 :

[COLOR=DarkSlateGray][B]=compteCouleur($C6:$AG6;4)[/B][/COLOR]

en AK6 :

[COLOR=DarkSlateGray][B]=compteCouleur($C6:$AG6;45)[/B][/COLOR]

en AL6 :

[COLOR=DarkSlateGray][B]=compteCouleur($C6:$AG6;41)[/B][/COLOR]

et recopier vers le bas.
​

ROGER2327
#4638

Lundi 2 Sable 138 (Saint Doublemain, Idéologue, SQ)
12 Frimaire An CCXIX
2010-W48-4T16:16:40Z

 

[bcharef]

Re : somme en fonction du format des cellule

Bonjour andreis, tototiti2008 & ROGER2327;
Bonjour à toutes et à tous.

Bienvenue sur XLD.

Un essai avec une macro EXCEL 4.0.

Amicalement.

BCharef

 

[andreis]

Re : somme en fonction du format des cellule

bonjour ROGER2327

merci pour ton aide, j'ai compris et fait ce que tu m'as dit. les chiffres 4,45,41, corresponde au couleur si j'ai bien compris, mais comment tu as ces references? car j'ai d'autre couleur à additionner
merci d'avance

 

[ROGER2327]

Re : somme en fonction du format des cellule

Suite…

Un accessoire pour trouver facilement les valeurs de la propriété ColorIndex :

[COLOR=DarkSlateGray][B]Function ClrIndex$(r As Range)
Application.Volatile
  ClrIndex = "#" & r.Cells(1, 1).Font.ColorIndex & "#" & r.Cells(1, 1).Interior.ColorIndex
End Function[/B][/COLOR]

[COLOR=DarkSlateGray][B]=ClrIndex(AN2)[/B][/COLOR]

renvoie les valeurs de ColorIndex pour la police et pour le fond sous la forme #Couleur_de_police#Couleur_ de_fond.
​

ROGER2327
#4639

Lundi 2 Sable 138 (Saint Doublemain, Idéologue, SQ)
12 Frimaire An CCXIX
2010-W48-4T16:33:04Z

 

[James007]

Re : somme en fonction du format des cellule

Bonjour Andreis ... et à tous 🙂

Ci joint ton fichier avec la UDF de ROGER2327 ...

cela te permettra de tester et d'apprendre ...
Pour voir le module, il faut faire Alt F11 ...

A +

 

[ROGER2327]

Re : somme en fonction du format des cellule

Re...

bonjour ROGER2327

merci pour ton aide, mais je debute avec excel et je ne sais pas ce qu'est un module, peu tu m'exceliser un peu
merci d'avance

Votre classeur en pièce jointe.
​

ROGER2327
#4640

Lundi 2 Sable 138 (Saint Doublemain, Idéologue, SQ)
12 Frimaire An CCXIX
2010-W48-4T16:38:30Z

 

[tototiti2008]

Re : somme en fonction du format des cellule

Bonjour Roger, Bonjour bcharef,
Re,

je ne sais pas ce qu'est un module

alors, il faut afficher Visual Basic Editor (VBE)
Si tu es sur ton classeur, tu fais Alt + F11
à gauche dans Projet, tu cliques sur VBAProject (Le nom de ton classeur)
Menu Insertion - Module
Dans la page blanche, tu colles le code de Function compteCouleur que Roger t'as proposé
tu fermes la fenêtre ce qui devrait te ramener sur Excel
dans le cellules AJ6, AK6, AL6, tu tapes les formules proposées par Roger 😉

Edit : Bonjour James

 

[ROGER2327]

Re : somme en fonction du format des cellule

Re...

Bonjour Andreis ... et à tous 🙂

Ci joint ton fichier avec la UDF de ROGER2327 ...

cela te permettra de tester et d'apprendre ...
Pour voir le module, il faut faire Alt F11 ...

A +

Merci pour le coup de main ! Mais qu'entendez-vous par "UDF" ?
​

ROGER2327
#4641

Lundi 2 Sable 138 (Saint Doublemain, Idéologue, SQ)
12 Frimaire An CCXIX
2010-W48-4T16:45:12Z

 

[andreis]

Re : somme en fonction du format des cellule

merci à tous pour votre aide.
j'ai tous compris et je nage dans le bohneur, grace à vous je me coucherai moins bete ce soir
@+ pour de nouvelle aventure d'un debutant dans un monde d'expert
encore merci

 

[James007]

Re : somme en fonction du format des cellule

Mais qu'entendez-vous par "UDF" ?

Désolé, j'ai pris la mauvaise habitude d'appeler les modules-fonctions par leur nom anglais UDF = User Defined Function ...

A +
🙂

 

[ROGER2327]

Re : somme en fonction du format des cellule

Re...

Désolé, j'ai pris la mauvaise habitude d'appeler les modules-fonctions par leur nom anglais UDF = User Defined Function ...

A +
🙂

Merci !
J'avais peur que (sur un site francophone) le sigle UDF désignât l'Union pour la démocratie française, ou l'Union démocratique fédérale de nos amis suisses. Pour ma part, je continuerai à parler de fonction personnalisée par souci de clarté d'une part, par respect pour le lecteur d'autre part.
​

ROGER2327
#4642

Lundi 2 Sable 138 (Saint Doublemain, Idéologue, SQ)
12 Frimaire An CCXIX
2010-W48-4T18:10:22Z