Re : Cellule couleur et chiffre
Re,
Le fichier modifié avec les 16 couleurs.
- Le numéro de la couleur est mis dans la propriété Tag de chaque Label.
- Les numéros des labels doivent se suivre (3,5,6,7,.......17,18) sans interuption.
- Il faut ajouter le n° de couleurs pour que la police de la cellule soit blanche dans
l'instruction Select Case ( Ex : Case Is = 5, 10, 1, 3).
- Comme le dit Lii il faut modifier la déclaration des Labels en fonction du nombre
de Label (Private LblC(0 To 15) As New Classe1).
Mettre le nombre de Label - 1 comme nombre maximum, ici 15 (16-1).
- Penser à modifier la 1ère boucle dans la procédure d'initialisation du USF de la
même manière (For k = 0 To 15).
J'ai ajouté une petite macro (Couleurs) pour déterminer le n° des couleurs à mettre dans la propriété Tag des Labels en fonction de la couleur de ces derniers. Pour l'utiliser, enlever l'apostrophe devant Couleurs dans la procédure d'initialisation du USF.
Bonne journée
A+