XL 2010 Compter un sous total du nombre de cellule de couleur

youky(BJ)

XLDnaute Barbatruc

• 29 Septembre 2016

• #2

Bonjour ....sky,
Ajoute cette macro,
Function NbreCellulesCouleurVisible(Plage As Range, couleur As Byte) As Long
Application.Volatile
Dim Cellule As Range
For Each Cellule In Plage
If Cellule.Interior.ColorIndex = couleur And Not IsEmpty(Cellule) And Cellule.Hidden = False Then
NbreCellulesCouleur = NbreCellulesCouleur + 1
End If
Next Cellule
End Function

Bruno

 

Vote positif 0 Vote négatif

S

Samtchevsky

XLDnaute Nouveau

• 3 Octobre 2016

• #3

Bonjour,

Je te remercie pour cette réponse.
J'ai collé la macro dans un nouveau module mais ceci ne fonctionne pas!
J'ai essayé en modifiant la partie "NbreCellulesCouleur = NbreCellulesCouleur + 1" en mettant "NbreCellulesCouleurVisible = NbreCellulesCouleurVisible + 1" mais j'ai quand même "#VALEUR" comme résultat.

Amicalement.

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 4 Octobre 2016

• #4

hello,
Il faut écrire la formule ainsi:
NbreCellulesCouleurVisible
au lieu
NbreCellulesCouleur

Bruno

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Octobre 2016

• #5

Bonjour Samtchevsky, Bruno,

On peut se passer du VBA.

Voyez le fichier joint avec les colonnes auxiliaires E G I K (masquées) et le nom défini Couleur en E4 :

Code:

=LIRE.CELLULE(38;'Planning maintenance régl.'!D4)+ENT(ALEA())

LIRE.CELLULE est une fonction macro Excel 4.0.

A+

 

Pièces jointes

• Sous-total couleur(1).xlsm

  29.6 KB · Affichages: 66

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 4 Octobre 2016

• #6

bonjour Samtchevsky, youky(BJ)

@Samtchevsky : toujours à fond sur les fonctions personnalisées !!

a priori :
For Each Cellule In Plage.Rows

A+

Edit : Bonjour job75

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Octobre 2016

• #7

Re, salut Paf,

Tout à fait d'accord avec Paf : la propriété .Hidden ne s'applique qu'à des objets Rows ou Columns.

Edit : il est classique aussi d'utiliser .EntireRow :

Code:

Function NbreCellulesCouleurVisible(Plage As Range, couleur As Byte) As Long
Application.Volatile
Dim Cellule As Range
For Each Cellule In Plage
  If Cellule.Interior.ColorIndex = couleur And Not IsEmpty(Cellule) And Cellule.EntireRow.Hidden = False _
    Then NbreCellulesCouleurVisible = NbreCellulesCouleurVisible + 1
Next Cellule
End Function

A+

 

Dernière édition: 4 Octobre 2016

Vote positif 0 Vote négatif

S

Samtchevsky

XLDnaute Nouveau

• 5 Octobre 2016

• #8

Bonjour,

@youky(BJ): J'avais bien modifier la formule également mais cela ne fonctionnait pas mieux.
@Ce lien n'existe plus: Et oui toujours^^ Je me mets vraiment dedans là mais il y a tellement de chose à apprendre, je profite également de vos connaissances pour m'améliorer. Ca sera peut être moi un jour qui répondrais^^
@job75: La dernière macro fonctionnent beaucoup mieux. Je comprends la logique de la macro.

Merci à tous pour vos réponses.

 

Vote positif 0 Vote négatif