Bonjour à tous ! Je suis débutant en VBA et j'ai un problème de boucle...
J'ai cree des labels qui changent de couleur quand on clique dessus
Maintenant je veux faire une fonction qui compte le nombre de label d'une certaine couleur mais j'obtiens l'erreur VALEUR mais je ne sais pas pourquoi ....
Voila mon code la fonction :
Pouvez-vous m'aider s'il vous plait ?
Merci d'avance
J'ai cree des labels qui changent de couleur quand on clique dessus
Code:
End If
If Label997.BackColor = vbGreen Then
Label997.BackColor = vbRed
Exit Sub
End If
If Label997.BackColor = vbBlue Then
Label997.BackColor = vbGreen
Exit Sub
End If
End Sub
Maintenant je veux faire une fonction qui compte le nombre de label d'une certaine couleur mais j'obtiens l'erreur VALEUR mais je ne sais pas pourquoi ....
Voila mon code la fonction :
Code:
Function Nbneon(Couleur As Byte) As Long
Application.Volatile
For Each Label In ActiveSheet
If Label.BackColor = Couleur Then
Nbneon = Nbneon + 1
End If
Next Label
End Function
Pouvez-vous m'aider s'il vous plait ?
Merci d'avance