Discussion :

[Bushi20]

Bonjour.

Le but de la fonction suivante est de compter le nombre de cellules ayant le fond d'une certaine couleur (dans une zone définie).

Utilisation dans Excel :
=NBCOULEURS($B$3:$B$19;D4) . Dans ce cas on recherche dans $B$3:$B$19 les cellules ayant une couleur de fond identique à D4.
ou
=NBCOULEURS($B$3:$B$19) . Dans ce cas on recherche dans $B$3:$B$19 les cellules ayant une couleur de fond identique à la cellule où est saisie la formule.

Note :
En utilisant la version 1 du code (qui ne figure pas ici) "NBCOULEURS($B$3:$B$19;D4)" avec le 2ème paramètre permanent ça fonctionne.

Problème
En passant le paramètre en optionnel j'ai systématiquement une erreur sur la ligne "If IsArray(..." du type "Argument non facultatif" (et la cellule Excel indique "#Valeur").

Avez-vous une idée concernant l'origine du problème ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function NBCOULEURS2(ZoneCible As Range, Optional CelRef As Range) As Long
Application.Volatile    ' force le reclacul automatique
Dim Element                     ' élément dans la zone cible
Dim NbOccur As Integer          ' nombre d'occurences de la couleur dans la zone cible
Dim CouleurSource As Integer    ' code de la couleur à rechercher
Dim ZoneRef As Range            ' zone avec la couleur de référence
 
NbOccur = 0
If IsArray(CelRef) Then ZoneRef = ActiveCell.Range Else ZoneRef = CelRef
CouleurSource = ZoneRef.Interior.ColorIndex
For Each Element In ZoneCible
    If Element.Interior.ColorIndex = CouleurSource Then NbOccur = NbOccur + 1
Next
NBCOULEURS2 = NbOccur
End Function

[Philippe Tulliez]

Bonjour,

Note :
En utilisant la version 1 du code (qui ne figure pas ici) "NBCOULEURS($B$3:$B$19;D4)" avec le 2ème paramètre permanent ça fonctionne.

Pour voir pourquoi la version 1 fonctionne et pas la version 2 ce serait tout de même utile de la visualiser
Dans cette ligne, il y a déjà une erreur ActiveCell.Range n'est pas bon, il faut mettre ActiveCell

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If IsArray(CelRef) Then ZoneRef = ActiveCell Else ZoneRef = CelRef

[Bushi20]

Effectivement.

Voici la version 1 avec la cellule de référence en argument obligatoire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function NBCOULEURS(Cible As Range, CelRef As Range) As Long
Application.Volatile    ' force le reclacul automatique
Dim Element
Dim NbOccur As Integer
Dim CouleurSource As Integer
 
NbOccur = 0
CouleurSource = CelRef.Interior.ColorIndex
For Each Element In Cible
    If Element.Interior.ColorIndex = CouleurSource Then NbOccur = NbOccur + 1
Next
NBCOULEURS = NbOccur
End Function

Dans cette ligne, il y a déjà une erreur ActiveCell.Range n'est pas bon, il faut mettre ActiveCell

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If IsArray(CelRef) Then ZoneRef = ActiveCell Else ZoneRef = CelRef

Je teste ça !

Toujours le même problème.
Je pense que cela vient de la détection du paramètre optionnel. J'ai essayé IsNull et IsArray sans succès.

[Philippe Tulliez]

Bonjour,
Il y avait deux erreurs
Remplace cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If IsArray(CelRef) Then ZoneRef = ActiveCell.Range Else ZoneRef = CelRef

Par ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 If IsEmpty(CelRef) Then
   Set ZoneRef = CelRef
  Else
   Set ZoneRef = ActiveCell
 End If

Erreur 1 : Une variable objet doit toujours être initialisée par l'instruction Set
Erreur 2 : Utilise la fonction IsEmpty pour déterminer si une variable a été initialisée.

[Bushi20]

Merci.
"set"... Erreur de débutant...

Suite à cette modification :
- la fonction marche quand l'argument optionnel est positionné.
- plus de message d'erreur sur le VBA

Par contre si l'argument n'est pas passé la cellule contient #VALEUR!.
Surement la question de détection de présence du paramètre optionnel (la résultat du If est toujours faux).
Je creuse.