Additioner des cellules colorées en VBA

thisisonehood Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
tuxboy Messages postés 995 Date d'inscription Statut Membre Dernière intervention - 13 août 2012 à 20:54

Bonjour,

J'ai un tableau excel où je veux additionner des cellules situés dans une même colonne.
Le tableau se remplit dynamiquement. dans la colonne ou je dois additioner les chiffres, je dois en premier temps aditionner les cellules de couleurs bleu puis en deuxieme temps les cellules de couleur jaune. ça doit etre extremement facile mais je sais pas faire avec du code VBA.
Merci de votre aide !
PS: le tableau se remplit dynamiquement donc la position des cellules colorés n'est pas connues.

A voir également:

Additioner des cellules colorées en VBA
Formule excel pour additionner plusieurs cellules - Guide
Verrouiller des cellules excel - Guide
Excel compter cellule couleur sans vba - Guide
Fusionner deux cellules excel en gardant le contenu - Guide
Vba récupérer valeur cellule ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

tuxboy Messages postés 995 Date d'inscription Statut Membre Dernière intervention 190

Comme tu dis : ça doit etre extremement facile

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.

Discussions similaires

VBA Excel : sélection d'une plage variable

"L'indice n'appartient à la sélection" + VBA

additionner nombres dans cellules avec texte

Erreur d'exécution 13 Incompatibilité de type

Reactiver la fusion des cellules, tableau exc

Votre réponse

Discussions similaires