XL 2010 probleme valeur dans une boucle de label

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Pierre V

XLDnaute Nouveau
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
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
163
Retour