Additioner des cellules colorées en VBA
Fermé
thisisonehood
Messages postés
19
Date d'inscription
lundi 23 avril 2012
Statut
Membre
Dernière intervention
12 septembre 2015
-
13 août 2012 à 19:03
tuxboy Messages postés 994 Date d'inscription lundi 23 juillet 2012 Statut Membre Dernière intervention 28 mai 2019 - 13 août 2012 à 20:54
tuxboy Messages postés 994 Date d'inscription lundi 23 juillet 2012 Statut Membre Dernière intervention 28 mai 2019 - 13 août 2012 à 20:54
A voir également:
- Additioner des cellules colorées en VBA
- Erreur 1004 vba ✓ - Forum VB / VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Protéger des cellules excel - Guide
- Excel additionner des cellules - Guide
- Find vba - Astuces et Solutions
1 réponse
tuxboy
Messages postés
994
Date d'inscription
lundi 23 juillet 2012
Statut
Membre
Dernière intervention
28 mai 2019
188
Modifié par tuxboy le 13/08/2012 à 20:57
Modifié par tuxboy le 13/08/2012 à 20:57
Comme tu dis : ça doit etre extremement facile
Et si tu veux passer la Couleur par une fonction :
C'est le petit plus, ça doit être suprêmement facile à utiliser.
Function SommeCoul(myCells As Range, Couleur As Long) As Double
Dim A, I As Long, J As Integer
Application.Volatile True
A = myCells
For I = 1 To UBound(A, 1)
For J = 1 To UBound(A, 2)
If myCells(I, J).Interior.ColorIndex = Couleur Then
SommeSelonCouleur = SommeSelonCouleur + A(I, J)
End If
Next J
Next I
End Function
Et si tu veux passer la Couleur par une fonction :
Function Couleur(Cellule As Object)
Couleur = Abs(Cellule.Interior.ColorIndex)
End Function
C'est le petit plus, ça doit être suprêmement facile à utiliser.