fonction somme.si avec condition couleur cell

Question

Bonjour,

Est-il possible d'utiliser la condition de la couleur d'une cellule dans la fonction somme.si? 

Merci.

Mike-31 · Answer

Salut,

En VBA, avec une fonction personnalisée ou macro, avec une formule, faut voir comment tu as colorisé tes cellules, si c’est avec une mise en forme conditionnelle, il est possible de récupérer la condition de cette mise en forme, le mieux est que tu mettes ton fichier sans données confidentielles sur le forum avec ce lien

https://www.cjoint.com/


A+

Un problème sans solution est un problème mal posé  (Einstein)

Mike-31 · Answer

Re,

Oui en VBA, quelles sont les conditions attrivuées à chaque couleur

A+

Un problème sans solution est un problème mal posé  (Einstein)

Selba · Answer

Bonjour,

J'ai fait un exemple avec des cellules colorées sur un tableau sur la plage F9:F11.
Lors de la coloration des cellules, j'ai enregistré une macro pour pouvoir récupérer la valeur (interior.color)
correspondant à la couleur : 255 pour rouge...
Ensuite, je fais un petit programme VBA qui parcourt ma zone et qui augmente une variable si la couleur est rouge......
Avec la formule if ou select case, on peut augmenter le nombre de couleur.

A +

Sub AJOUT()
    Dim SOMME_ROUGE As Integer
    Dim SOMME_JAUNE As Integer
    Dim i As Integer
    
    SOMME_ROUGE = 0
    SOMME_JAUNE = 0
    
    
    'Ma zone de saisie est F9:F11 et je parcours cette zone avec une boucle
    For i = 9 To 11
        Range("F" & i).Select
        
        '255 couleur rouge
        If Selection.Interior.Color = 255 Then
            SOMME_ROUGE = SOMME_ROUGE + ActiveCell.Value
        Else
            SOMME_JAUNE = SOMME_JAUNE + ActiveCell.Value
        End If
    Next
    
    
    'affectation des variables aux cellules contenant les résultats
    Range("F12").Value = SOMME_ROUGE
    Range("F13").Value = SOMME_JAUNE
        
    
    
End Sub

Selba · Answer

Je ne comprend pas ta dernière question

michel_m · Answer

Lotus, excuses moi d'avoir encombré ce fil en essayant de t'aider avec une syntaxe fonctionnant suivant ta demande
mais, rassures-toi, je ne le ferai plus.
--

Selba · Answer

C'est la première fois que je participe à un forum.
Je ne sais pas s'il y a la possibilité que tu m'envoie un exemple.
Personnellement, je pense qu'il est possible de tout faire en VBA.
Suivant le contenu d'une cellule, je peux la colorer (ou en colorer une autre) en une couleur déterminée.
Je peux également faire la somme des cellules d'une couleur sans problème.

Selba · Answer

Désolé, je m'étais déconnecté.
Je m'étonne que ce forum ne permette pas d'envoyer une pièce jointe.

Selba · Answer

Dans cet exemple, j'ai une colonne (E) qui se colore en fonction d'une colonne située sur la gauche (B).
Je boucle sur ma zone et je colore en fonction du texte qui est écrit dans la colonne B.




Sub macro2()
'
'cellules qui contiennent prélèvement, virement ... B4:E17


'les cellules qui se colorent E4:E17

For i = 4 To 17
    Range("E" & i).Select
    
    valeur = Selection.Offset(0, -3).Value
    
    Select Case valeur
        Case "virement"
        Range("E" & i).Interior.ColorIndex = 3
        Case "prélèvement"
        Range("E" & i).Interior.ColorIndex = 4
        Case "remise"
        Range("E" & i).Interior.ColorIndex = 5
        Case Else
        Range("E" & i).Interior.ColorIndex = 2
    End Select
        
Next

End Sub

Selba · Answer

Bonjour,

Le bout de macro que je t'ai envoyé ne modifie pas le quadrillage.
Si tu le remets, il ne devrait pas changer à l'exécution de la macro

A plus

Selba · Answer

Je ne sais pas si çà peut t'aider pour ton programme, mais ce qui serait bien c'est d'affecter ta macro à un événement Worksheet_Change de manière à ce que à chaque fois que tu modifie une cellule avec l'ajout de virement, prélèvement..., la couleur se mette à jour automatiquement dans la cellule cible.

Du style:
Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Range("b4:b17")
If Not Application.Intersect(ActiveCell, Target) Is Nothing Then
'ici tu mets le nom de ta macro
End If
End Sub

code à disposer dans la feuille concernée

A plus

lotussss · Answer

Merci c'est une bonne idée mais en general les mise à jour se font à la suite dans mon tableau, donc pas de risque d'ecraser les anciennes données, cela dit je prends bonnes notes! malheureusement la macro que tu m'a ecrite "supprime" le quadrillage d'excel sur les cellules concernées ou plutot je pense que ce sont des parametres de cellule à definir egalement en plus de la couleur....une idée? egalement si j'ai un terme tel que "virement de mr untel" ben ça ne reconnait pas le terme "virement" et ça c'est plus embetant.

Merci pour ton temps!

lotussss · Answer

Salut Selba,

Merci beaucoup c'est tip top nickel!

lotussss · Answer

Re Selba,

J'ai voulu mettre ta macro dans le module du classeur perso afin que cette macro soit disponible dans tous les classeurs. Depuis, chaque fois que je l'exécute un message d'erreur apparait : "erreur de complilation, variable non définie" en surlignant le "i" de "for i=4 to 17" en début de macro.

Fonction somme.si avec condition couleur cell

13 réponses

Votre réponse

Discussions similaires

Newsletters