nombre de cellules de la meme couleur

Le
benoit
Bonsoir,
j'ai une fonction dénombrant le nombre de cellules coloriées en vert dans la
colonne A

mais comment l'intégrer dans une macro ??

merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5184881
Bonsoir,

Function SommeCouleurFond(champ As Range, couleurFond)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleurFond Then
If IsNumeric(c.Value) Then temp = temp + c.Value
End If
Next c
SommeCouleurFond = temp
End Function

Sub essai()
x = SommeCouleurFond(Range("A1:A10"), 4)
MsgBox x
End Sub

JB
http://boisgontierjacques.free.fr

On 12 mar, 18:59, "benoit"
Bonsoir,
j'ai une fonction dénombrant le nombre de cellules coloriées en vert d ans la
colonne A

mais comment l'intégrer dans une macro ??

merci


benoit
Le #5183441
bonsoir et merci

je crois que la formule est erroné puisqu'elle additionne les valeurs de
cellules coloriées et non pas le nombre de cellules coloriées

merci


"JB"
Bonsoir,

Function SommeCouleurFond(champ As Range, couleurFond)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleurFond Then
If IsNumeric(c.Value) Then temp = temp + c.Value
End If
Next c
SommeCouleurFond = temp
End Function

Sub essai()
x = SommeCouleurFond(Range("A1:A10"), 4)
MsgBox x
End Sub

JB
http://boisgontierjacques.free.fr

On 12 mar, 18:59, "benoit"
Bonsoir,
j'ai une fonction dénombrant le nombre de cellules coloriées en vert dans
la
colonne A

mais comment l'intégrer dans une macro ??

merci


JB
Le #5183161
Bonjour,

Function CompteCouleurFond(champ As Range, couleurFond)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleurFond Then
temp = temp + 1
End If
Next c
CompteCouleurFond = temp
End Function

Sub essai()
x = CompteCouleurFond(Range("A1:A10"), 4)
MsgBox x
End Sub

JB


On 12 mar, 21:02, "benoit"
bonsoir et merci

je crois que la formule est erroné puisqu'elle additionne les valeurs de
cellules coloriées et non pas le nombre de cellules coloriées

merci

"JB"
Bonsoir,

Function SommeCouleurFond(champ As Range, couleurFond)
   Application.Volatile
   Dim c, temp
   temp = 0
   For Each c In champ
     If c.Interior.ColorIndex = couleurFond Then
       If IsNumeric(c.Value) Then temp = temp + c.Value
     End If
   Next c
   SommeCouleurFond = temp
End Function

Sub essai()
  x = SommeCouleurFond(Range("A1:A10"), 4)
  MsgBox x
End Sub

JBhttp://boisgontierjacques.free.fr

On 12 mar, 18:59, "benoit"


Bonsoir,
j'ai une fonction dénombrant le nombre de cellules coloriées en vert dans
la
colonne A

mais comment l'intégrer dans une macro ??

merci- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



benoit
Le #5183121
Bonjour & merci

ça marche

à bientot


"JB"
Bonjour,

Function CompteCouleurFond(champ As Range, couleurFond)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleurFond Then
temp = temp + 1
End If
Next c
CompteCouleurFond = temp
End Function

Sub essai()
x = CompteCouleurFond(Range("A1:A10"), 4)
MsgBox x
End Sub

JB


On 12 mar, 21:02, "benoit"
bonsoir et merci

je crois que la formule est erroné puisqu'elle additionne les valeurs de
cellules coloriées et non pas le nombre de cellules coloriées

merci

"JB"
Bonsoir,

Function SommeCouleurFond(champ As Range, couleurFond)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleurFond Then
If IsNumeric(c.Value) Then temp = temp + c.Value
End If
Next c
SommeCouleurFond = temp
End Function

Sub essai()
x = SommeCouleurFond(Range("A1:A10"), 4)
MsgBox x
End Sub

JBhttp://boisgontierjacques.free.fr

On 12 mar, 18:59, "benoit"


Bonsoir,
j'ai une fonction dénombrant le nombre de cellules coloriées en vert
dans
la
colonne A

mais comment l'intégrer dans une macro ??

merci- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Publicité
Poster une réponse
Anonyme