Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Bonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du 6/10/200 8)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non pas 4
ou 2 etc...
Est ce possible?
Merci Remi
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Bonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du 6/10/200 8)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non pas 4
ou 2 etc...
Est ce possible?
Merci Remi
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Bonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du 6/10/200 8)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non pas 4
ou 2 etc...
Est ce possible?
Merci Remi
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Bonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non pas
4
ou 2 etc...
Est ce possible?
Merci Remi
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Bonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non pas
4
ou 2 etc...
Est ce possible?
Merci Remi
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Bonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non pas
4
ou 2 etc...
Est ce possible?
Merci Remi
Bonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du 6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non pas 4
ou 2 etc...
Est ce possible?
Merci Remi
Bonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du 6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non pas 4
ou 2 etc...
Est ce possible?
Merci Remi
Bonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du 6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non pas 4
ou 2 etc...
Est ce possible?
Merci Remi
Bonjour.
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells Then
i = i + champ(i).MergeArea.Count
End If
temp = temp + 1
End If
Next
CompteCouleurFond3 = temp
End Function
DanielBonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non
pas 4 ou 2 etc...
Est ce possible?
Merci Remi
Bonjour.
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells Then
i = i + champ(i).MergeArea.Count
End If
temp = temp + 1
End If
Next
CompteCouleurFond3 = temp
End Function
Daniel
Bonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non
pas 4 ou 2 etc...
Est ce possible?
Merci Remi
Bonjour.
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells Then
i = i + champ(i).MergeArea.Count
End If
temp = temp + 1
End If
Next
CompteCouleurFond3 = temp
End Function
DanielBonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non
pas 4 ou 2 etc...
Est ce possible?
Merci Remi
Bonjour Daniel C
Ca ne fonctionne pas j'ai comme resultat : different NOM? #NOM?
Merci
Rémi
"Daniel.C" a écrit dans le message de news:Bonjour.
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells Then
i = i + champ(i).MergeArea.Count
End If
temp = temp + 1
End If
Next
CompteCouleurFond3 = temp
End Function
DanielBonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non pas
4 ou 2 etc...
Est ce possible?
Merci Remi
Bonjour Daniel C
Ca ne fonctionne pas j'ai comme resultat : different NOM? #NOM?
Merci
Rémi
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
eaxYNorYKHA.4140@TK2MSFTNGP05.phx.gbl...
Bonjour.
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells Then
i = i + champ(i).MergeArea.Count
End If
temp = temp + 1
End If
Next
CompteCouleurFond3 = temp
End Function
Daniel
Bonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non pas
4 ou 2 etc...
Est ce possible?
Merci Remi
Bonjour Daniel C
Ca ne fonctionne pas j'ai comme resultat : different NOM? #NOM?
Merci
Rémi
"Daniel.C" a écrit dans le message de news:Bonjour.
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells Then
i = i + champ(i).MergeArea.Count
End If
temp = temp + 1
End If
Next
CompteCouleurFond3 = temp
End Function
DanielBonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non pas
4 ou 2 etc...
Est ce possible?
Merci Remi
La fonction s'appelle "CompteCouleurFond3". Si l'erreur persiste, poste un
exemple sur www.cjooint.com.
DanielBonjour Daniel C
Ca ne fonctionne pas j'ai comme resultat : different NOM? #NOM?
Merci
Rémi
"Daniel.C" a écrit dans le message de news:Bonjour.
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells Then
i = i + champ(i).MergeArea.Count
End If
temp = temp + 1
End If
Next
CompteCouleurFond3 = temp
End Function
DanielBonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non
pas 4 ou 2 etc...
Est ce possible?
Merci Remi
La fonction s'appelle "CompteCouleurFond3". Si l'erreur persiste, poste un
exemple sur www.cjooint.com.
Daniel
Bonjour Daniel C
Ca ne fonctionne pas j'ai comme resultat : different NOM? #NOM?
Merci
Rémi
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
eaxYNorYKHA.4140@TK2MSFTNGP05.phx.gbl...
Bonjour.
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells Then
i = i + champ(i).MergeArea.Count
End If
temp = temp + 1
End If
Next
CompteCouleurFond3 = temp
End Function
Daniel
Bonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non
pas 4 ou 2 etc...
Est ce possible?
Merci Remi
La fonction s'appelle "CompteCouleurFond3". Si l'erreur persiste, poste un
exemple sur www.cjooint.com.
DanielBonjour Daniel C
Ca ne fonctionne pas j'ai comme resultat : different NOM? #NOM?
Merci
Rémi
"Daniel.C" a écrit dans le message de news:Bonjour.
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells Then
i = i + champ(i).MergeArea.Count
End If
temp = temp + 1
End If
Next
CompteCouleurFond3 = temp
End Function
DanielBonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non
pas 4 ou 2 etc...
Est ce possible?
Merci Remi
Autant pour moi
C'est nikel
Grand merci
Rémi
"Daniel.C" a écrit dans le message de news:La fonction s'appelle "CompteCouleurFond3". Si l'erreur persiste, poste
un exemple sur www.cjooint.com.
DanielBonjour Daniel C
Ca ne fonctionne pas j'ai comme resultat : different NOM? #NOM?
Merci
Rémi
"Daniel.C" a écrit dans le message de news:Bonjour.
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells Then
i = i + champ(i).MergeArea.Count
End If
temp = temp + 1
End If
Next
CompteCouleurFond3 = temp
End Function
DanielBonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non
pas 4 ou 2 etc...
Est ce possible?
Merci Remi
Autant pour moi
C'est nikel
Grand merci
Rémi
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OyjfCJsYKHA.5620@TK2MSFTNGP06.phx.gbl...
La fonction s'appelle "CompteCouleurFond3". Si l'erreur persiste, poste
un exemple sur www.cjooint.com.
Daniel
Bonjour Daniel C
Ca ne fonctionne pas j'ai comme resultat : different NOM? #NOM?
Merci
Rémi
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
eaxYNorYKHA.4140@TK2MSFTNGP05.phx.gbl...
Bonjour.
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells Then
i = i + champ(i).MergeArea.Count
End If
temp = temp + 1
End If
Next
CompteCouleurFond3 = temp
End Function
Daniel
Bonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non
pas 4 ou 2 etc...
Est ce possible?
Merci Remi
Autant pour moi
C'est nikel
Grand merci
Rémi
"Daniel.C" a écrit dans le message de news:La fonction s'appelle "CompteCouleurFond3". Si l'erreur persiste, poste
un exemple sur www.cjooint.com.
DanielBonjour Daniel C
Ca ne fonctionne pas j'ai comme resultat : different NOM? #NOM?
Merci
Rémi
"Daniel.C" a écrit dans le message de news:Bonjour.
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells Then
i = i + champ(i).MergeArea.Count
End If
temp = temp + 1
End If
Next
CompteCouleurFond3 = temp
End Function
DanielBonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non
pas 4 ou 2 etc...
Est ce possible?
Merci Remi
Rebonjour
J'ai encore un Hic :tant que mes cellules sont fusionnées dans le sens
Horizontal pas de PB mais si j' ai des cellules fusionnées dans le sens
vertical et horizontal le resultat est incoherant ci joint fichier, il me
semble!!
Dans le fichier ci joint Les cases rouge et bleu sont bonnes par contre
les cases jaune le resultat et faux 785 au lieu de 936 (compter a la main)
je crois
http://cjoint.com/?llsYhi8tCt
Rémi
"IMER09" a écrit dans le message de
news: %23Oap%Autant pour moi
C'est nikel
Grand merci
Rémi
"Daniel.C" a écrit dans le message de news:La fonction s'appelle "CompteCouleurFond3". Si l'erreur persiste, poste
un exemple sur www.cjooint.com.
DanielBonjour Daniel C
Ca ne fonctionne pas j'ai comme resultat : different NOM? #NOM?
Merci
Rémi
"Daniel.C" a écrit dans le message de news:Bonjour.
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells Then
i = i + champ(i).MergeArea.Count
End If
temp = temp + 1
End If
Next
CompteCouleurFond3 = temp
End Function
DanielBonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et
non pas 4 ou 2 etc...
Est ce possible?
Merci Remi
Rebonjour
J'ai encore un Hic :tant que mes cellules sont fusionnées dans le sens
Horizontal pas de PB mais si j' ai des cellules fusionnées dans le sens
vertical et horizontal le resultat est incoherant ci joint fichier, il me
semble!!
Dans le fichier ci joint Les cases rouge et bleu sont bonnes par contre
les cases jaune le resultat et faux 785 au lieu de 936 (compter a la main)
je crois
http://cjoint.com/?llsYhi8tCt
Rémi
"IMER09" <nospam-sarl-du-calvaire@wanadoo.fr> a écrit dans le message de
news: %23Oap%23nsYKHA.2188@TK2MSFTNGP04.phx.gbl...
Autant pour moi
C'est nikel
Grand merci
Rémi
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OyjfCJsYKHA.5620@TK2MSFTNGP06.phx.gbl...
La fonction s'appelle "CompteCouleurFond3". Si l'erreur persiste, poste
un exemple sur www.cjooint.com.
Daniel
Bonjour Daniel C
Ca ne fonctionne pas j'ai comme resultat : different NOM? #NOM?
Merci
Rémi
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
eaxYNorYKHA.4140@TK2MSFTNGP05.phx.gbl...
Bonjour.
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells Then
i = i + champ(i).MergeArea.Count
End If
temp = temp + 1
End If
Next
CompteCouleurFond3 = temp
End Function
Daniel
Bonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et
non pas 4 ou 2 etc...
Est ce possible?
Merci Remi
Rebonjour
J'ai encore un Hic :tant que mes cellules sont fusionnées dans le sens
Horizontal pas de PB mais si j' ai des cellules fusionnées dans le sens
vertical et horizontal le resultat est incoherant ci joint fichier, il me
semble!!
Dans le fichier ci joint Les cases rouge et bleu sont bonnes par contre
les cases jaune le resultat et faux 785 au lieu de 936 (compter a la main)
je crois
http://cjoint.com/?llsYhi8tCt
Rémi
"IMER09" a écrit dans le message de
news: %23Oap%Autant pour moi
C'est nikel
Grand merci
Rémi
"Daniel.C" a écrit dans le message de news:La fonction s'appelle "CompteCouleurFond3". Si l'erreur persiste, poste
un exemple sur www.cjooint.com.
DanielBonjour Daniel C
Ca ne fonctionne pas j'ai comme resultat : different NOM? #NOM?
Merci
Rémi
"Daniel.C" a écrit dans le message de news:Bonjour.
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells Then
i = i + champ(i).MergeArea.Count
End If
temp = temp + 1
End If
Next
CompteCouleurFond3 = temp
End Function
DanielBonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et
non pas 4 ou 2 etc...
Est ce possible?
Merci Remi
Ci apres nouveau lien je crois qu'il y a un pb avec le premier
http://cjoint.com/?lltkTz68uK
Rémi
"IMER09" a écrit dans le message de
news: %Rebonjour
J'ai encore un Hic :tant que mes cellules sont fusionnées dans le sens
Horizontal pas de PB mais si j' ai des cellules fusionnées dans le sens
vertical et horizontal le resultat est incoherant ci joint fichier, il me
semble!!
Dans le fichier ci joint Les cases rouge et bleu sont bonnes par contre les
cases jaune le resultat et faux 785 au lieu de 936 (compter a la main) je
crois
http://cjoint.com/?llsYhi8tCt
Rémi
"IMER09" a écrit dans le message de
news: %23Oap%Autant pour moi
C'est nikel
Grand merci
Rémi
"Daniel.C" a écrit dans le message de news:La fonction s'appelle "CompteCouleurFond3". Si l'erreur persiste, poste
un exemple sur www.cjooint.com.
DanielBonjour Daniel C
Ca ne fonctionne pas j'ai comme resultat : different NOM? #NOM?
Merci
Rémi
"Daniel.C" a écrit dans le message de news:Bonjour.
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells Then
i = i + champ(i).MergeArea.Count
End If
temp = temp + 1
End If
Next
CompteCouleurFond3 = temp
End Function
DanielBonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non
pas 4 ou 2 etc...
Est ce possible?
Merci Remi
Ci apres nouveau lien je crois qu'il y a un pb avec le premier
http://cjoint.com/?lltkTz68uK
Rémi
"IMER09" <nospam-sarl-du-calvaire@wanadoo.fr> a écrit dans le message de
news: %236jtievYKHA.4012@TK2MSFTNGP04.phx.gbl...
Rebonjour
J'ai encore un Hic :tant que mes cellules sont fusionnées dans le sens
Horizontal pas de PB mais si j' ai des cellules fusionnées dans le sens
vertical et horizontal le resultat est incoherant ci joint fichier, il me
semble!!
Dans le fichier ci joint Les cases rouge et bleu sont bonnes par contre les
cases jaune le resultat et faux 785 au lieu de 936 (compter a la main) je
crois
http://cjoint.com/?llsYhi8tCt
Rémi
"IMER09" <nospam-sarl-du-calvaire@wanadoo.fr> a écrit dans le message de
news: %23Oap%23nsYKHA.2188@TK2MSFTNGP04.phx.gbl...
Autant pour moi
C'est nikel
Grand merci
Rémi
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OyjfCJsYKHA.5620@TK2MSFTNGP06.phx.gbl...
La fonction s'appelle "CompteCouleurFond3". Si l'erreur persiste, poste
un exemple sur www.cjooint.com.
Daniel
Bonjour Daniel C
Ca ne fonctionne pas j'ai comme resultat : different NOM? #NOM?
Merci
Rémi
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
eaxYNorYKHA.4140@TK2MSFTNGP05.phx.gbl...
Bonjour.
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells Then
i = i + champ(i).MergeArea.Count
End If
temp = temp + 1
End If
Next
CompteCouleurFond3 = temp
End Function
Daniel
Bonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non
pas 4 ou 2 etc...
Est ce possible?
Merci Remi
Ci apres nouveau lien je crois qu'il y a un pb avec le premier
http://cjoint.com/?lltkTz68uK
Rémi
"IMER09" a écrit dans le message de
news: %Rebonjour
J'ai encore un Hic :tant que mes cellules sont fusionnées dans le sens
Horizontal pas de PB mais si j' ai des cellules fusionnées dans le sens
vertical et horizontal le resultat est incoherant ci joint fichier, il me
semble!!
Dans le fichier ci joint Les cases rouge et bleu sont bonnes par contre les
cases jaune le resultat et faux 785 au lieu de 936 (compter a la main) je
crois
http://cjoint.com/?llsYhi8tCt
Rémi
"IMER09" a écrit dans le message de
news: %23Oap%Autant pour moi
C'est nikel
Grand merci
Rémi
"Daniel.C" a écrit dans le message de news:La fonction s'appelle "CompteCouleurFond3". Si l'erreur persiste, poste
un exemple sur www.cjooint.com.
DanielBonjour Daniel C
Ca ne fonctionne pas j'ai comme resultat : different NOM? #NOM?
Merci
Rémi
"Daniel.C" a écrit dans le message de news:Bonjour.
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells Then
i = i + champ(i).MergeArea.Count
End If
temp = temp + 1
End If
Next
CompteCouleurFond3 = temp
End Function
DanielBonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et non
pas 4 ou 2 etc...
Est ce possible?
Merci Remi
OK, 936 :
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
Var = champ.Count
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells = True And _
champ(i).Address = champ(i).MergeArea(1).Address Then
temp = temp + 1
ElseIf champ(i).MergeCells = False Then
temp = temp + 1
End If
End If
Next
CompteCouleurFond3 = temp
End Function
DanielCi apres nouveau lien je crois qu'il y a un pb avec le premier
http://cjoint.com/?lltkTz68uK
Rémi
"IMER09" a écrit dans le message de
news: %Rebonjour
J'ai encore un Hic :tant que mes cellules sont fusionnées dans le sens
Horizontal pas de PB mais si j' ai des cellules fusionnées dans le sens
vertical et horizontal le resultat est incoherant ci joint fichier, il
me semble!!
Dans le fichier ci joint Les cases rouge et bleu sont bonnes par contre
les cases jaune le resultat et faux 785 au lieu de 936 (compter a la
main) je crois
http://cjoint.com/?llsYhi8tCt
Rémi
"IMER09" a écrit dans le message de
news: %23Oap%Autant pour moi
C'est nikel
Grand merci
Rémi
"Daniel.C" a écrit dans le message de news:La fonction s'appelle "CompteCouleurFond3". Si l'erreur persiste,
poste un exemple sur www.cjooint.com.
DanielBonjour Daniel C
Ca ne fonctionne pas j'ai comme resultat : different NOM? #NOM?
Merci
Rémi
"Daniel.C" a écrit dans le message de
news:Bonjour.
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells Then
i = i + champ(i).MergeArea.Count
End If
temp = temp + 1
End If
Next
CompteCouleurFond3 = temp
End Function
DanielBonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et
non pas 4 ou 2 etc...
Est ce possible?
Merci Remi
OK, 936 :
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
Var = champ.Count
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells = True And _
champ(i).Address = champ(i).MergeArea(1).Address Then
temp = temp + 1
ElseIf champ(i).MergeCells = False Then
temp = temp + 1
End If
End If
Next
CompteCouleurFond3 = temp
End Function
Daniel
Ci apres nouveau lien je crois qu'il y a un pb avec le premier
http://cjoint.com/?lltkTz68uK
Rémi
"IMER09" <nospam-sarl-du-calvaire@wanadoo.fr> a écrit dans le message de
news: %236jtievYKHA.4012@TK2MSFTNGP04.phx.gbl...
Rebonjour
J'ai encore un Hic :tant que mes cellules sont fusionnées dans le sens
Horizontal pas de PB mais si j' ai des cellules fusionnées dans le sens
vertical et horizontal le resultat est incoherant ci joint fichier, il
me semble!!
Dans le fichier ci joint Les cases rouge et bleu sont bonnes par contre
les cases jaune le resultat et faux 785 au lieu de 936 (compter a la
main) je crois
http://cjoint.com/?llsYhi8tCt
Rémi
"IMER09" <nospam-sarl-du-calvaire@wanadoo.fr> a écrit dans le message de
news: %23Oap%23nsYKHA.2188@TK2MSFTNGP04.phx.gbl...
Autant pour moi
C'est nikel
Grand merci
Rémi
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OyjfCJsYKHA.5620@TK2MSFTNGP06.phx.gbl...
La fonction s'appelle "CompteCouleurFond3". Si l'erreur persiste,
poste un exemple sur www.cjooint.com.
Daniel
Bonjour Daniel C
Ca ne fonctionne pas j'ai comme resultat : different NOM? #NOM?
Merci
Rémi
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news: eaxYNorYKHA.4140@TK2MSFTNGP05.phx.gbl...
Bonjour.
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells Then
i = i + champ(i).MergeArea.Count
End If
temp = temp + 1
End If
Next
CompteCouleurFond3 = temp
End Function
Daniel
Bonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et
non pas 4 ou 2 etc...
Est ce possible?
Merci Remi
OK, 936 :
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
Var = champ.Count
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells = True And _
champ(i).Address = champ(i).MergeArea(1).Address Then
temp = temp + 1
ElseIf champ(i).MergeCells = False Then
temp = temp + 1
End If
End If
Next
CompteCouleurFond3 = temp
End Function
DanielCi apres nouveau lien je crois qu'il y a un pb avec le premier
http://cjoint.com/?lltkTz68uK
Rémi
"IMER09" a écrit dans le message de
news: %Rebonjour
J'ai encore un Hic :tant que mes cellules sont fusionnées dans le sens
Horizontal pas de PB mais si j' ai des cellules fusionnées dans le sens
vertical et horizontal le resultat est incoherant ci joint fichier, il
me semble!!
Dans le fichier ci joint Les cases rouge et bleu sont bonnes par contre
les cases jaune le resultat et faux 785 au lieu de 936 (compter a la
main) je crois
http://cjoint.com/?llsYhi8tCt
Rémi
"IMER09" a écrit dans le message de
news: %23Oap%Autant pour moi
C'est nikel
Grand merci
Rémi
"Daniel.C" a écrit dans le message de news:La fonction s'appelle "CompteCouleurFond3". Si l'erreur persiste,
poste un exemple sur www.cjooint.com.
DanielBonjour Daniel C
Ca ne fonctionne pas j'ai comme resultat : different NOM? #NOM?
Merci
Rémi
"Daniel.C" a écrit dans le message de
news:Bonjour.
Function CompteCouleurFond3(champ As Range, couleurfond As Range)
Application.Volatile
Dim temp
cf = couleurfond.Interior.Color
For i = 1 To champ.Count
If champ(i).Interior.Color = cf Then
If champ(i).MergeCells Then
i = i + champ(i).MergeArea.Count
End If
temp = temp + 1
End If
Next
CompteCouleurFond3 = temp
End Function
DanielBonjour a tous
Je viens de recuperer ce qui suit sur le forum (Message de JB du
6/10/2008)
Dans un module:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
Dans le tableur:
=CompteCouleurFond2(A1:A12;D1)
C'est parfait pour ce que je veux.
Le Hic j'ai des cellules fusionnées par 2 par 4 etc...
Sur ces cellules fusionnées je ne voudrai compter que 1 cellule et
non pas 4 ou 2 etc...
Est ce possible?
Merci Remi