> 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.

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
Astucien

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

Ta merde pue l'arnaque !

Supprimes ton message.

BACH

Publicité
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
49,99 €Imprimante multifonction HP DeskJet 2710e (Wifi) + 6 mois instant Ink à 49,99 €
89 € -44%

Cdiscount fait une belle promotion sur l'imprimante multifonction HP DeskJet 2710e (WiFi) qui passe à 49,99 € au lieu de 89 € ailleurs.. Cette imprimante 3 en 1 fait donc imprimante, photocopieur et scanner. Elle dispose d'un chargeur automatique de documents. Elle fonctionne avec 2 cartouches d'encre (une noire et une 3 couleurs). Connexion via USB, Bluetooth et Wifi. Vous pourrez facilement imprimer et numériser avec votre ordinateur, tablette, smartphone.


Voir l'offre
34,99 €Nintendo Game & Watch The Legend of Zelda à 34,90 €
44,99 € -22%

Amazon propose la Game & watch The Legend of Zelda à 34,99 € livrée gratuitement. Avis aux nostalgiques : après avoir été vendue à plus de 43 millions d’exemplaires dans le monde, Game & Watch fait son grand retour ! Avec Game & Watch : The Legend of Zelda, profitez des grands classiques The Legend of Zelda, The Legend of Zela II : The Adventure of Link, et The Legend of Zelda : Link's Awakening ainsi que d’une version spéciale du jeu Vermin. Ce nouvel appareil fait également office d’horloge avec 35 animations disponibles, pour tous les amoureux du rétro-gaming. 


Voir l'offre
479,99 €Portable Acer Aspire (14 pouces, Core i5 , 8 Go RAM, SSD 512 Go, Windows 11) à 479,99 €
699,99 € -31%

Darty propose actuellement l'ordinateur portable 14 pouces Acer Aspire A514-54-56SR à 479,99 € alors qu'on le trouve ailleurs à partir de 699,99 €. Cet ultraportable est équipé d'un processeur Intel Core i5-1135G7, 8 Go de RAM (+ 1 slot libre pour ajouter de la mémoire), un SSD de 512 Go. Sa dalle de 14 pouces est Full HD et mate. Ce PC dispose de toutes les dernières connectiques indispensables : 1x USB 2.0, 2 x USB 3.1 Gen 1 (dont 1 fonction charge même ordinateur éteint), 1 x USB Type-C, WiFi 6, bluetooth 5. Le tout tourne sous Windows 11.

Une bonne affaire pour PC léger à l'aise partout : multimédia, bureautique, Internet.


Voir l'offre
219,99 €Kit 5.1 Logitech Speaker System Z906 à 219,99 €
350 € -37%

Cdiscount fait une promotion sur le kit 5.1 Logitech Speaker System Z906 qui passe à 219,99 € alors qu'on le trouve ailleurs à partir de 350 €. Avec une puissance de diffusion de 500 watts (RMS), ce système 5.1 certifié THX produit un son de qualité cinéma. Profitez d'un contrôle total sur votre système multimédia grâce à ses entrées numériques et analogiques, un pupitre de commande facile à lire et empilable et une télécommande sans fil.


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