× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Somme plage de cellules en fonction couleur fondSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
xbrain83
  Posté le 08/12/2010 @ 09:59 
Aller en bas de la page 
Nouvel astucien

Bonjour à tous,

Nouveau sur ce forum, malgré mes recherches je ne trouve pas la soluce au prob suivant (Excel 2007 SP2 sous Win7) ;

Sur un tableau, je veux dans une cellule afficher la "somme" d'une plage de cellules mais uniquement celles possédant une couleur de fond spécifiques (Jaune, vert, bleu et/ou orange). La cellule "Somme" devra donc m'offrir un bouton de tri de l'une de ces 4 couleurs et en fonction en faire le total.

Exemple ;

Plage de données cellules allant de A1 à A30

Cellules de couleur jaunes A7 (Valeur cellule 15), A12 (Valeur cellule 10) et A21 (Valeur cellule 5)

Si je "déroule" le menu déroulant de la Cellule "Somme" elle doit me proposer les 4 couleurs (jaune, bleu, vert et orange) et si je choisi "jaune" je dois obtenir 30..!!

Voilà j'espère que c'est clair, je précise que je n'y connais rien en VBA et Macro, donc merci de m'expliquer doucement...

Merci d'avance...A+

Publicité
papouclo
 Posté le 08/12/2010 à 10:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Comment sont mise les couleurs dans le fond des cellules de la plage concernée ?
Manuellement ? Mise en forme conditionnelle ?

Cordialement

xbrain83
 Posté le 08/12/2010 à 10:22 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Salut,

Manuellement...

xbrain83
 Posté le 08/12/2010 à 11:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

..../....

18 Lecteurs et pas de réponse...Personne ne sait...??

Ca paraît dingue, aucun reproche bien-sûr, mais comme d'hab. Microsoft via Excel pense à faire des trucs énormes avec ses progs, mais dès qu'on veux faire un truc, somme toute, assez simple....C'est le casse-tête chinois....Ca devient impossible et il semblerait que personne ne saches faire...

Bon je n'ai rien trouvé non plus sur la toile, attendons qu'un surdoué passe par là...Avec un peu de chance, il pourra aider...Dans l'attente si qq sait, merci d'avance du coup de pouce ...A+

rj390111
 Posté le 08/12/2010 à 12:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Trouvé sur Cathy Astuces

Compter les cellules de même couleur

Nombre de cellules selon la couleur de fond de celle-ci

Public Function NB_SI_COULEUR(PlageNb As Range, PlageCouleur As Range) As Long

Dim Cel As Range

Dim lNb As Long

Application.Volatile

For Each Cel In PlageNb

If Cel.Interior.ColorIndex = PlageCouleur.Interior.ColorIndex Then lNb = lNb + 1

Next

NB_SI_COULEUR = lNb

End Function

Cette fonction pose un problème, car elle ne se met pas automatiquement à jour lorsque vous changez la couleur de fond de PlageCouleur ou une couleur de fond d'une ou plusieurs cellules de la plage PlageNb. En conséquence, vous êtes obligé de forcer le calcul de la feuille avec la touche F9 ou depuis 2007, sur l'onglet Formules, cliquez sur le bouton calculer maintenant du groupe Calcul

Additionner les cellules de même couleur.

Somme des valeurs d'une plage selon la couleur de fond de cette plage

Public Function SOMME_SI_COULEUR(PlageSomme As Range, PlageCouleur As Range) As Double

Dim Cel As Range

Dim Som As Double

Application.Volatile

For Each Cel In PlageSomme

If Cel.Interior.ColorIndex = PlageCouleur.Interior.ColorIndex Then Som = Som + Cel

Next

SOMME_SI_COULEUR = Som

End Function

Cette fonction pose un problème, car elle ne se met pas automatiquement à jour lorsque vous changez la couleur de fond de PlageCouleur ou une couleur de fond d'une ou plusieurs cellules de la plage PlageSomme. En conséquence, vous êtes obligé de forcer le calcul de la feuille avec la touche F9 ou depuis 2007, sur l'onglet Formules, cliquez sur le bouton calculer maintenant du groupe Calcul

qmike549
 Posté le 08/12/2010 à 13:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

bonjour

Ou encore l'exmple suivant :

Totaliser les cellules rouges

Sub TotalisationCouleurRouge()
Set Aselectionner = Application.InputBox _
(prompt:="selectionner la plage de cellule ", _
Title:=" Plage de cellules à sélectioner", Type:=8)
Aselectionner.Select 'Selection de la plage souhaitée
For Each cel In Aselectionner
If cel.Interior.ColorIndex = 3 Then SomRouge = SomRouge + cel
Next cel
MsgBox SomRouge
End Sub

xbrain83
 Posté le 08/12/2010 à 18:31 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Ok merci de votre aide les gars....Il semble que je vais finir par en voir le bout...

Mais comme je l'ai précisé je ne suis pas un fortiche en matière de macro alors vos codes je les rentre où et comment SVP...??

D'avance merci...

qmike549
 Posté le 08/12/2010 à 19:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

ferrand
 Posté le 09/12/2010 à 14:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Salut,

Tu pourras trouver sur le site de Boisgontier diverses fonctions personnalisées pour opérer selon la couleur de fond ou de texte :

http://boisgontierjacques.free.fr/pages_site/fonctioncouleurfond.htm

Tu devrais pouvoir adapter au mieux à ton cas. Bonne continuation.

Publicité
ELICHA
 Posté le 09/12/2010 à 16:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonsoir,

Je signale aussi qu'il existe un forum spécialisé "microsoft.public.fr.excel" du groupe google où les participants sont particulièrement doués et serviables

xbrain83
 Posté le 12/12/2010 à 02:48 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Mon prob est résolu, ne trouvant pas la réponse exact à mon attente j'ai fait autrement...Merci quand même à tous pour votre aide et votre gentillesse...

C'était trés sympa....A+

ELICHA
 Posté le 12/12/2010 à 10:25 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,
xbrain83, c'est heureux. En définitive, ce sont souvent les demandeurs qui arrivent le mieux à trouver la solution à leur problème. Mais pour ceux qui se sont intéressés à ton post, ce serait bien de leur dire ce que tu a pu faire.

Marbach
 Posté le 26/08/2016 à 01:06 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Abelle, vas te faire voir à Yeurs avec tes publicités à la con !

Ta merde pue l'arnaque !

Supprimes ton message.

BACH

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
99,99 €Ecran Lenovo 24 pouces D24-20 (Full HD, VA, 75 Hz, FreeSync) à 99,99 €
Valable jusqu'au 23 Octobre

Fnac propose actuellement l'écran 24 pouces Lenovo D24-20 à 99,99 € alors qu'on le trouve ailleurs à plus de 129 €. Cet écran dispose d'une dalle Full HD (1920x1080) à bords fins, avec un temps de réponse de 5 ms et un rafraichissement de 75 Hz. Il possède des entrées VGA et HDMI. Il est compatible Freesync.  


> Voir l'offre
11,97 €Chargeur Varta 4H LCD PLUG + USB + 4 piles rechargeables AA 2100 mAh à 11,97 €
Valable jusqu'au 22 Octobre

Amazon fait une promotion sur le chargeur Varta 4H LCD PLUG qui passe à 11,97 € au lieu de 25 €. Ce chargeur rapide peut charger jusqu'à 4 accus (AA, AAA et 9V) et dispose également d'un port USB pour recharger un appareil mobile ou une batterie externe. Un écran LCD vous indiquera l'avancé de la charge. Il est fourni avec 4 piles rechargeables AA 2100 mAh.


> Voir l'offre
55 €Microphone USB Bird UM1 à 55 €
Valable jusqu'au 23 Octobre

Amazon fait une vente flash sur le Microphone USB Bird UM1 qui passe à 55 € alors qu'on le trouve ailleurs à partir de 69 €. La livraison est gratuite. Le Bird UM1 est un micro de studio d'excellente qualité avec interface USB intégrée. C'est une solution idéale et tout-en-un qui évite d'avoir à acheter un préampli ou une interface audio supplémentaire.  Idéal pour le studio, YouTube ou l'animation de votre blog.


> Voir l'offre

Sujets relatifs
Calculer date en fonction d'une valeur dans une plage de cellules
Somme Couleur Fond
Couleur de fond en fonction du contenu
la fonction: Nb.Si(plage de cellules;critère)
plage de cellules variable dans une fonction
passer plage cellules dans fonction excel
compter lignes d'un tableau dont toutes les cellules sont en couleur
VBA Excel valeur en fonction de cellules
Somme en fonction du N° de semaine
(Macro Excel) Sélectionner cellule en fonction de sa couleur
Plus de sujets relatifs à Somme plage de cellules en fonction couleur fond
 > Tous les forums > Forum Bureautique