Somme en fonction de la couleur de police

[biker]

Bonjour,

Je suis a la recherhche d'un code vba pour faire la somme de plusieurs cellule contenant des chiffres en euro de differente couleur.( Noire et rouge)

Mon but est de pouvoir faire la somme des chiffres de couleur rouge et de reporter le resultat dans une autre cellule.


Merci par avance de votre reponse

 

[JNP]

Re : Somme en fonction de la couleur de police

Bonjour Biker et bienvenue 🙂,

Je suis a la recherhche d'un code vba pour faire la somme de plusieurs cellule contenant des chiffres en euro de differente couleur.( Noire et rouge)

Une petite précision nous serait nécessaire :
Noire et rouge pour quelle raison ?
1) Format de cellule qui passe en rouge quand négative.
2) Format de cellule conditionnel qui fait passer les euros en noir ou en rouge suivant d'autres conditions.
3) Cellule passée en rouge en utilisant le rouge comme couleur de caractère à la mano.
Chaque cas nécessite un traitement différent 😉...
Bon dimanche 😎

 

[noviceAG]

Re : Somme en fonction de la couleur de police

Bonjour bicker, le Forum
Essai ceci :
Sub couleurs()
For i = 1 To 56
With Sheets("Feuil1").Cells(i, 1)
.Value = "ColorIndex " & i
.Font.ColorIndex = i
End With
Next
End Sub

Sub CompteCouleur()
Dim MaPlage As Range
Set MaPlage = Sheets(2).Cells(2, 1).CurrentRegion
On Error GoTo NoColor
couleur = Sheets("Feuil2").Range("D4")

Somme = 0
Total = 0
For Each cell In MaPlage
If cell.Font.ColorIndex = couleur Then
Total = Total + cell.Value
Somme = Somme + 1
End If
Next
Sheets("Feuil2").Range("D10") = Total
Sheets("Feuil2").Range("E10") = Somme

Exit Sub
NoColor:
MsgBox "couleur selectionnée non reconnue dans la liste feuil1"
End Sub
Bon dimanche à tous

 

[biker]

Re : Somme en fonction de la couleur de police

Re,

En faite pourquoi deux couleurs, c'est un fichier ou je fais mes comptes et je valide par la couleur rouge quend la somme est passée sur mon compte.
Donc je veux faire deux resultats :
Un : solde de mon compte (que la couleur rouge)
Deux : solde avec mes somme non valider sur mon compte (couleur noir + rouge)

La deux j'ai reussi a le faire, pas difficile , une formule et hop c'est parti
Mais je peine a faire c'elle avec la couleur rouge.



Merci par avance

 

[BOISGONTIER]

Re : Somme en fonction de la couleur de police

Bonjour,

Fonction SommeCouleurTexte

JB

 

[biker]

Re : Somme en fonction de la couleur de police

Salut, BOISGONTIER

Parfais pour le lien ,cela marche parfaitement.


Merci

 

[nicxls]

Re : Somme en fonction de la couleur de police

Bonjour Boisgontier,

je vous remercie pour cette fonction et toutes les autres que vous proposez sur votre site.
par rapport à cette fonction, est-il possible de jouer sur le 2è argument pour dire "si la couleurtexte est différent de"
quelque chose comme =SommeCouleurTexte(A19:O24;<>Q23)

Merci d'avance.
nicxls

 

[Patrick75]

Re : Somme en fonction de la couleur de police

Bonjour à tous,

j'ai la même question : je voudrais additionner des nombres dans des colonnes en fonction de leur couleur de police. J'ai lu la réponse de NoviceAG. Cependant, je suis trop débutant pour comprendre la réponse et la proposition. Je ne comprends pas ce qui est écrit et ce que je peux en faire :-(
oui, mon cas est grave mais si quelqu'un peut m'aider ou... m'achever

 

[zebanx]

Re : Somme en fonction de la couleur de police

Bonsoir

Un fichier qui pourrait vous aider.
Mis en mode '95 sinon ça ne passait pas.
Cdlt

 

[Patrick75]

Re : Somme en fonction de la couleur de police

Merci zebanx, votre fichier répond à une question qui me tracassait ! J'avais compris que les couleurs devaient avoir un code mais je ne le connaissais pas
Cordialement,
Patrick