Colorer une cellule et faire la somme des couleurs

Authie · 18 Juillet 2018

Bonjour

Voici des jours que je cherche la solution sans y parvenir.
Je cherche à colorer une cellule en fonction de sa valeur par rapport à la valeur d'une autre cellule.
Je m'explique :
Si C1=B1 alors C1 devient jaune sinon rien
Si C2=B2 alors C1 devient jaune sinon rien
Si C3=B3 alors C1 devient jaune sinon rien etc.…

Ceci étant fait...j'aurais aimé procéder à la somme totale des jaunes de la colonne C

Merci bcp pour votre aide

Robert · 18 Juillet 2018

Bonjour Authie, bonjour le forum,

Pas besoin de formule. La réponse est 0 ou 1 vu que seule la cellule C1 devient jaune...
Je pense que dans ton copier/coller tu as oublié de modifier dans les 2ème et 3ème lignes C2 et C3.
Le code :

VB:

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
Dim T As Integer 'déclare la variable T (Total)

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
DL = O.Cells(Application.Rows.Count, "B").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne B de l'onglet O
For I = 1 To DL 'boucle sur toutes les lignes I de 1 à DL
    If O.Cells(I, "C").Value = O.Cells(I, "B").Value Then 'condition : si la cellule ligne I colonne B est égale à la cellule ligne I colonne C
        O.Cells(I, "C").Interior.ColorIndex = 6 'colore la cellule en colone C en jaune
        T = T + 1 'incrémente le total T
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
MsgBox T 'affiche le total T
End Sub

JHA · 18 Juillet 2018

Bonjour à tous,

A essayer pour le nombre de cellules identiques:

Code:

=SOMMEPROD(--(($C$1:$C$5)=($B$1:$B$5)))

Pour la somme des cellules identiques

Code:

=SOMMEPROD(--(($C$1:$C$5)=($B$1:$B$5));$C$1:$C$5)

JHA

Colorer une cellule et faire la somme des couleurs

Authie

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

JHA

XLDnaute Barbatruc

Pièces jointes

Discussions similaires