C
CM
Guest
Re Hello tout le monde
j'ai le problemes suivants : on viens de m'aider un elaborer la fonction suivante :
Public Function NbColor(Plage As Range, vCellcolor As Range) As Byte
Dim vColorTest As Long
Dim Compteur As Long
Dim vColorCell As Range
Compteur = 0
vColorTest = vCellcolor.Interior.Color
For Each vColorCell In Plage
If vColorCell.Interior.Color = vColorTest Then
Compteur = Compteur + 1
End If
Next vColorCell
NbColor = Compteur
End Function
Mais le rafraichissement ne se fait pas lors que je midifie la selection
que dois je faire pour cela
merci
j'ai le problemes suivants : on viens de m'aider un elaborer la fonction suivante :
Public Function NbColor(Plage As Range, vCellcolor As Range) As Byte
Dim vColorTest As Long
Dim Compteur As Long
Dim vColorCell As Range
Compteur = 0
vColorTest = vCellcolor.Interior.Color
For Each vColorCell In Plage
If vColorCell.Interior.Color = vColorTest Then
Compteur = Compteur + 1
End If
Next vColorCell
NbColor = Compteur
End Function
Mais le rafraichissement ne se fait pas lors que je midifie la selection
que dois je faire pour cela
merci