Colonne double
Résolu/Fermé
A voir également:
- Colonne double
- Double ecran - Guide
- Whatsapp double sim - Guide
- Déplacer une colonne excel - Guide
- Colonne word - Guide
- Additionner colonne excel - Guide
3 réponses
Raymond PENTIER
Messages postés
58393
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
17 096
15 mai 2016 à 00:47
15 mai 2016 à 00:47
Heu ! C'est une vraie formule, ou plutôt une ligne de code VBA ?
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
15 mai 2016 à 08:28
15 mai 2016 à 08:28
Bonjour,
A priori, tu devrais écrire :
=ColorCountIf(N3:N17;R9)+ColorCountIf(P13:P17;R9)
Pour info, la fonction personnelle ColorCountIf permet de compter le nombre de cellules qui ont la même couleur de remplissage qu'une cellule de référence.
Voici le code correspondant
et un exemple
https://www.cjoint.com/c/FEpgBunQivC
A+
A priori, tu devrais écrire :
=ColorCountIf(N3:N17;R9)+ColorCountIf(P13:P17;R9)
Pour info, la fonction personnelle ColorCountIf permet de compter le nombre de cellules qui ont la même couleur de remplissage qu'une cellule de référence.
Voici le code correspondant
Function ColorCountIf(SearchArea As Object, BgColor As Range) As Integer
Dim MaCoul As Integer
Dim Cel As Range
Application.Volatile True
ColorCountIf = 0
MaCoul = BgColor.Interior.ColorIndex
For Each Cel In SearchArea
If Cel.Interior.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + 1
Next Cel
End Function
et un exemple
https://www.cjoint.com/c/FEpgBunQivC
A+
