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

[Samtchevsky]

Bonjour,

Je n'arrive pas à me dépatouiller d'une macro pouvant me calculer le nombre de cellule de couleur, verte dans mon cas, visible. Donc après avoir sélectionné des sites.

J'ai la somme du nombre de cellule de couleur sur la ligne 22 mais elle ne se met pas à jour lorsque je filtre (et ça me va très bien). J'aimerai que sur la ligne 24 ça soit un sous total.

Merci de votre retour.

 

[youky(BJ)]

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

 

[Samtchevsky]

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.

 

[youky(BJ)]

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

Bruno

 

[job75]

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 :

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

LIRE.CELLULE est une fonction macro Excel 4.0.

A+

 

[Paf]

bonjour Samtchevsky, youky(BJ)

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

a priori :
For Each Cellule In Plage.Rows

A+

Edit : Bonjour job75

 

[job75]

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 :

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+

 

[Samtchevsky]

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.