Discussion :

[the dude]

Bonjour à tous,
Je suis en train de me mettre au VBA je galère un peu : il faut dire que l'aide n'est pas très fournie .....
Je souhaite créer une fonction qui compte le nb de cellule dans une zone définie (rentrée en paramètre) ayant une couleur de fond definie (rentrée en paramètre) et une valeur définie (rentrée en paramètre)

Je n'ai rien inventé : pomper sur internet et modifier mais dès que je modifie ça ne fonctionne plus.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
Function NbPrevPerso(Zne As Range, Couleur As String, Ini As String)
Application.Volatile True
For Each cell In Zne
If (cell.Interior.ColorIndex = Couleur and Cell.Value = Ini) Then NbPrevPerso = NbPrevPerso + 1
Next
NbPrevPerso = NbPrevPerso
End Function

La valeur de cell recherchée est des initiales donc toujours en chaîne de caractères.

Quand j'utilise cette fonction sous Excel, j'ai un retour marqué #VALEUR.
'ai essayé l'aide mais ça ne me fait rien.
J'ai essayé de caster le Cell.Value en string (au cas où) mais il me met un erreur ...

J'ai besoin de cette fonction pour des indicateurs donc je suis assez pressé, mais avide d'informations donc si vous pouvez m'aider et m'expliquer mon erreur : je suis preneur !

Merci d'avance.

[BlueMonkey]

Bonsoir,

Pour bien commencer, voir ce support de cours complet VBA de Jean-Marc RABILLOUD.

Pour la fonction, il faut spécifier un type de retour fonction(...) as <type de retour>.

Essaye :

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function NbPrevPerso(Zne As Range, CouleurIndex As Long, Ini As String) As Long
    Application.Volatile True
    NbPrevPerso = 0
    Dim cell As Range
    For Each cell In Zne
        If (cell.Interior.ColorIndex = CouleurIndex And cell.Value = Ini) Then
            NbPrevPerso = NbPrevPerso + 1
        End If
    Next
End Function

A noter que la couleur est repéré par un index ColorIndex (un indice dans une palette de couleur).
Ce n'est pas une chaîne de caractère.

PS : Lorsque tu poste du code, sélectionne la partie code, et clique sur le bouton pour qu'il soit mis en forme comme du code.

[the dude]

Bonsoir et merci pour cette aide : malheureusement, j'ai toujours le même problème.
Est-ce que je dois rédiger de manière spécifique la variable "Ini" ? parce que le reste fonctionnait très bien ...

[BlueMonkey]

j'ai toujours le même problème.

Tu peux copier/coller une formule d'unde des cellules qui retourne une erreur stp ?

Est-ce que je dois rédiger de manière spécifique la variable "Ini"

Si tu passe une référence de cellule, il n'y a rien de particulier.
Si tu tape directement un texte à trouver, il faut le mettre entre ".

[the dude]

C'est bien ce que je pensais : pour moi les string se mettaient entre cotes (') et non guillemets.

Maintenant ça fonctionne : merci beaucoup !!!

[BlueMonkey]

Content que ça fonctionne avec des "
A+