Afficher une valeur en fonction de la couleur de la cellule
Bonjour,
Je voudrais trouver une fonction pour que quand je l'applique sur une cellule de couleur X il m'affiche une valeur en rapport avec.
Plus clairement:
Si la cellule est bleu je voudrais qu'il m'affiche "2" lorsque j'applique la fonction
Si la cellule est jaune qu'il m'affiche "1"
...
Si quelqu'un à une solution, je suis preneur
Merci d'avance
Bonjour,
Si j'ai bien compris tu places la formule dans la cellule colorée...
Function VALCLR()
Application.Volatile
Select Case Application.ThisCell.Interior.Color
Case vbBlue: VALCLR = 2
Case vbYellow: VALCLR = 1
Case Else: VALCLR = ""
End Select
End FunctionNote que le changement de couleur ne produit pas de recalcul. Si tu veux un effet immédiat lors de changement de couleur, il faut alors déclencher un recalcul.
Cordialement.
Merci MFerrand pour ton aide mais je rencontre quelque souci avec ton code, quand je l'active sur une case bleu ou jaune il me met la valeur "0" dans la cellule s'aurais tu d'où viens ce problème?
Comme tu peux le lire, la fonction ne renvoie pas de 0 !
Elle renvoie 2 ou 1 ou ""(chaîne vide).
La fonction doit être placée dans un module standard.
Après que les cellules soient coloriées, taper formules dans la cellule :
=VALCLR()et elle renverra l'une des valeur indiquée, selon la couleur de la cellule.
En cas de changement de couleur, éditer la formule et revalider (ou bien forcer le recalcul).
C'est bon ça fonctionne! merci beaucoup
En revanche je rencontre un problème d'un autre type maintenant.
J'ai voulu rajouter des couleurs : jaune, vert, bleu, rouge, orange, violet mais Excel ne reconnais la commande que pour le rouge et le jaune.
Voici le code:
Function VALCLR()
Application.Volatile
Select Case Application.ThisCell.Interior.Color
Case vbBlue: VALCLR = 2
Case vbYellow: VALCLR = 1
Case vbRed: VALCLR = 3
Case vbGreen: VALCLR = 4
Case vbOrange: VALCLR = 5
Case vbPurple: VALCLR = 6
Case Else: VALCLR = "raté"
End Select
End Function