Totaliser cellules de même couleur
Résolu/Fermé
A voir également:
- Totaliser cellules de même couleur
- Excel cellule couleur si condition texte - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Somme si couleur - Guide
- Verrouiller cellules excel - Guide
- La boite a couleur - Télécharger - Divers Photo & Graphisme
4 réponses
Mike-31
Messages postés
18337
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
27 septembre 2024
5 099
21 mai 2010 à 14:46
21 mai 2010 à 14:46
Salut,
La couleur cellule est elle mise manuellement ou avec une mise en forme conditionnelle, dans ce cas quelle est la formule de la mise en forme conditionnelle
La couleur cellule est elle mise manuellement ou avec une mise en forme conditionnelle, dans ce cas quelle est la formule de la mise en forme conditionnelle
Mike-31
Messages postés
18337
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
27 septembre 2024
5 099
Modifié par Mike-31 le 21/05/2010 à 20:16
Modifié par Mike-31 le 21/05/2010 à 20:16
Re,
me revoilà, il y a plusieurs possibilité en VBAuniquement si tu as quelques notions.
Clic en même temps sur les touches Alt et F11 pour ouvrir le visual Insertion/Module et colle ce code qui traitera la plage A1 à D20
En G2 tu saisis le code couleur à compter exemple 3
toutes les sommes dans les cellules rouges seront comptabilisées (bien sur le code peut être saisi dans le code remplacer l'adresse de la cellule G2 par le code couleur ex. 3 pour le rouge
Public Sub somcoul()
Dim som As Double
Dim cel As Range
som = 0
For Each cel In Range("A1:D20")
If cel.Interior.ColorIndex = [G2] Then
som = som + cel.Value 'la variable som=elle-même + la valeur de la cellule
End If
Next cel
[G5] = som
End Sub
Il est possible d'écrire le code différemment de sorte de coloriser la cellule de référence à la place de saisir le code couleur dans ce cas remplacer cette ligne
If cel.Interior.ColorIndex = [G2] Then
par
If cel.Interior.ColorIndex = [G2].Interior.ColorIndex Then
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
me revoilà, il y a plusieurs possibilité en VBAuniquement si tu as quelques notions.
Clic en même temps sur les touches Alt et F11 pour ouvrir le visual Insertion/Module et colle ce code qui traitera la plage A1 à D20
En G2 tu saisis le code couleur à compter exemple 3
toutes les sommes dans les cellules rouges seront comptabilisées (bien sur le code peut être saisi dans le code remplacer l'adresse de la cellule G2 par le code couleur ex. 3 pour le rouge
Public Sub somcoul()
Dim som As Double
Dim cel As Range
som = 0
For Each cel In Range("A1:D20")
If cel.Interior.ColorIndex = [G2] Then
som = som + cel.Value 'la variable som=elle-même + la valeur de la cellule
End If
Next cel
[G5] = som
End Sub
Il est possible d'écrire le code différemment de sorte de coloriser la cellule de référence à la place de saisir le code couleur dans ce cas remplacer cette ligne
If cel.Interior.ColorIndex = [G2] Then
par
If cel.Interior.ColorIndex = [G2].Interior.ColorIndex Then
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Mike-31
Messages postés
18337
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
27 septembre 2024
5 099
22 mai 2010 à 11:42
22 mai 2010 à 11:42
Re,
Si tu rencontres un problème je te ferai un petit montage
Si tu rencontres un problème je te ferai un petit montage
