Problème avec une fonction VBA

Bonjour;

J'essaye de mettre en place une fonction pour compter les cases couleurs mais j'ai un message avec une erreur

Function NumCouleur(Cellule As Range) As Integer

    Application.Volatile
    NumCouleur = Cellule.Interior.ColorIndex

End Function

Function nbCouleurs(plage As Range.cellule As Range)As Integer

    Application.Volatile
    Dim chaqueCellule As Range: Dim Couleur As Integer

    Couleur = Cellule.Interior.ColorIndex
    nbcouleur = 0

    For Each chaqueCellule In plage

        If chaqueCellule.Interior.ColorIndex = Couleur Then
            nbCouleurs = nbCouleurs + 1
        End If

    Next chaqueCellule

Est-il possible de m'aider !!

Bonjour Ernie18

Merci de mettre tes codes entre balises [ code] et [ /CODE] la prochaine fois (sans espace après le [)

Sinon plusieurs problèmes corrigés

Function NumCouleur(Cellule As Range) As Long
  Application.Volatile
  NumCouleur = Cellule.Interior.ColorIndex
End Function

Function NbCouleurs(Plage As Range, Cellule As Range) As Long
  Dim ChaqueCellule As Range, Couleur As Long
  Application.Volatile
  Couleur = Cellule.Interior.ColorIndex
  NbCouleurs = 0
  For Each ChaqueCellule In Plage
    If ChaqueCellule.Interior.ColorIndex = Couleur Then
      NbCouleurs = NbCouleurs + 1
    End If
  Next ChaqueCellule
End Function

@+

BrunoM45;

J'ai essayé de retranscrire le code mais il ne fonctionne pas comme je le pense.

Si je rajoute une couleur le résultat n'évolue pas (Colonne AJ). Si je veux rentrer le code couleur dans le critère il ne fonctionne pas non plus... je suis une catastrophe!!

Re,

Le changement de couleur ne peut faire évoluer le résultat, puisque'il n'y a qu'une modification visuelle

En revanche tu peux faire en sorte de recalculer ta feuille en changeant de cellule

avec l'évènement Selection_Change de la feuille

Il faut changer la formule en figeant la ligne de la couleur sélectionnée

=NbCouleurs(A4:AE4;AP$10)

@+

Bruno M45 un grand merci

Re,

Au fait, même si c'est résolu, j'attire ton attention sur le fait qu'un titre "Vba" n'est absolument pas adapté

Si tu pouvais éventuellement éditer ton 1er post pour en changer le titre ce serait bien

Par exemple : "problème avec une fonction VBA"

@+