Excel 2003 : somme sous deux conditions Résolu/Fermé

Question

Bonjour à tous,
je souhaiterais pouvoir faire la somme de toutes les cellules identiques c'est à dire la somme des cellules avec la même couleur de fond (11 couleurs de fond différents) et le texte écrit dans la cellule. n'étant pas un pro en vba, je serais très heureux de savoir si cela est faisable.
Si vous avez d'autres questions, n'hésitez pas !
par avance merci bcp. 

<config>Windows windows XP

eriiic · Answer

Bonjour,

Tout dépend si la couleur de fond est mise manuellement ou par une mise en forme conditionnelle.
Et la deuxième condition c'est ?

eric

houssine_bahrain · Answer

la couleur de fond de la cellule sera mise manuellement !! et c'était ma seule question.
merci...

houssine_bahrain · Answer

la couleur de fond de la cellule sera mise manuellement !! et c'était ma seule question...
merci

Raymond PENTIER · Answer

Bonjour.

Avec VBA, c'est peut-être faisable ; je n'en sais rien.
Mais sans VBA, c'est totalement impossible ; ça c'est sûr !

Une solution serait de mettre à côté de chaque cellule un chiffre ou une lettre correspondant à une couleur, et de s'en servir pour effectuer les sommes.

eriiic · Answer

Re,

2 fonctions personnalisées : 
une pour récupérer la couleur, une pour la somme des cellules en couleur :
'retourne le numéro de couleur de fond de la cellule
Function EL_CellColorIndex(plage As Range) As Long
    Application.Volatile
    EL_CellColorIndex = plage.Interior.ColorIndex
End Function

' somme des cellules d'une couleur
Function EL_SommeCellCouleur(plage As Range, no_couleur As Long) As Double
    Application.Volatile
    Dim c As Range, s As Double
    For Each c In plage
        If c.Interior.ColorIndex = no_couleur Then
            s = s + c.Value
        End If
    Next c
    EL_SommeCellCouleur = s
End Function


voir exemple

eric

Patrice33740 · Answer

Bonsoir,

 Comme le demande eriiic « et le texte écrit dans la cellule. » ressemble à une seconde condition dont tu n'a pas précisé la teneur, à moins que cette partie de la phrase soit parfaitement inutile.

houssine_bahrain · Answer

pardonnez-moi, la deuxième condition est le texte écrit dans la cellule...l'idée est de faire la somme des cellules possédant le même fond de couleur et le même texte !!! 
en résumé : être capable de pouvoir répondre à la question, combien de cellule possède le même fond de couleur et le même texte ?

merci

eriiic · Answer

Somme et nombre de cellule ce n'est pas pareil, faudrait savoir...
combien de cellule possède le même fond de couleur et le même texte
Sans autre précision il n'y a pas de réponse unique à cette question

Plus bas dans le fil tu as la somme par couleur

Patrice33740 · Answer

Bonjour,

Je te propose cette macro qui affiche le nombre de cellules des cellules avec la même couleur de fond et le même texte dans le classeur actif :

Liste cellules par couleur et texte.xls

Cordialement
Patrice

houssine_bahrain · Answer

oui, je souhaite connaitre le nombre de cellule identique (identique par rapport à la couleur de fond de la cellule et par rapport au texte écrit dans la cellule). sachant qu'il y aura plusieurs cellules identiques, le code devra faire la somme de ces cellules identiques pour en connaitre le nombre total. 
j'espère avoir été plus clair...merci

Patrice33740 · Answer

Bonsoir,

Pour les cellules sélectionnées :
Liste cellules sélectionnées par couleur et texte.xls

Patrice

Patrice33740 · Answer

Bonjour,  

Je viens d'essayer avec Excel 2007, chez moi ça fonctionne parfaitement, le bouton de commande se trouve dans l'onglet complément.  
Il faut autoriser l'exécution des macros : Bouton Office, Options Excel,  
Centre de gestion de la confidentialité, Paramètres du centre de gestion de la confidentialité..., Paramètres des macros, Activer toutes les macros et cocher Accès approuvé au modèle d'objet du projet VBA    
Tu peux aussi choisir de n'exécuter que les macros signées numériquement (c'est plus sur), dans ce cas il te faut signer numériquement la macro (menu Outil du VBE) avec un certificat personnel (voir site Microsoft pour créer son propre certificat). Une fois la macro signée, enregistrer et fermer Excel et relance le fichier.  
https://support.microsoft.com/fr-fr/office/signer-num%c3%a9riquement-votre-projet-macro-956e9cc8-bbf6-4365-8bfa-98505ecd1c01?ocmsassetid=rz010238036&section=10&mode=print&correlationid=af2d6965-9952-4abd-b4b4-b475e15029e5&ui=fr-fr&rs=fr-fr&ad=fr

Patrice