Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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" wrote:
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
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" <benoit.triv...@orange.fr> wrote:
Bonsoir,
j'ai une fonction dénombrant le nombre de cellules coloriées en vert d ans la
colonne A
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" wrote:
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
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" a écrit dans le message de news:
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" wrote:
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
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" <boisgontier@hotmail.com> a écrit dans le message de news:
134b04c5-9a1c-4ee0-bfee-8bf19ea9d0fc@m44g2000hsc.googlegroups.com...
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" <benoit.triv...@orange.fr> wrote:
Bonsoir,
j'ai une fonction dénombrant le nombre de cellules coloriées en vert dans
la
colonne A
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" a écrit dans le message de news:
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" wrote:
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
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" wrote:
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" a écrit dans le message de news:
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" wrote:
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 -
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" <benoit.triv...@orange.fr> wrote:
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" <boisgont...@hotmail.com> a écrit dans le message de news:
134b04c5-9a1c-4ee0-bfee-8bf19ea9d...@m44g2000hsc.googlegroups.com...
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" <benoit.triv...@orange.fr> wrote:
Bonsoir,
j'ai une fonction dénombrant le nombre de cellules coloriées en vert dans
la
colonne A
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" wrote:
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" a écrit dans le message de news:
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" wrote:
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
Bonjour & merci
ça marche
à bientot
"JB" a écrit dans le message de news:
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" wrote:
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" a écrit dans le message de news:
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" wrote:
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 -
Bonjour & merci
ça marche
à bientot
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
de6ead7b-5917-4b02-b708-4409f782e620@n58g2000hsf.googlegroups.com...
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" <benoit.triv...@orange.fr> wrote:
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" <boisgont...@hotmail.com> a écrit dans le message de news:
134b04c5-9a1c-4ee0-bfee-8bf19ea9d...@m44g2000hsc.googlegroups.com...
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" <benoit.triv...@orange.fr> wrote:
Bonsoir,
j'ai une fonction dénombrant le nombre de cellules coloriées en vert
dans
la
colonne A
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" wrote:
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" a écrit dans le message de news:
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" wrote:
Bonsoir, j'ai une fonction dénombrant le nombre de cellules coloriées en vert dans la colonne A