Se connecter avec
S'enregistrer | Connectez-vous

Pour les couleurs dans excel

Dernière réponse : dans Programmation
Lassé par la pub ? Créez un compte

Merci c gentil Gillou pour le lien mais il n'y a pas ce que je cherche. En fait il y a une macro qui concerne les couleurs que j'ai tente de modifier mais sans succes.
Ce que je veux c'est que par exemple si une cellule est jaune j'obtiens 1 dans la cellule d'a cote et 0 sinon... Je pens que mon experience en vba est trop limitee
pour que j'y arrive tout seul!!!

Bon, alors reprenons du début.
La fonction suivante va te permettre de connaitre la valeur de la couleur que tu cherches:

Function NumCouleur(cell) As String
NumCouleur = cell.Interior.ColorIndex
End Function

Copie la dans un module indépendant. Pour l'utiliser, il suffit de mettre la formule =NumCouleur(A1) dans une cellule.
Quand tu auras le numéro de la couleur jaune, tu pourras écrire la fonction suivante:

Function EstJaune(cell) As String
If cell.Interior.ColorIndex = NumJaune Then
EstJaune = 1
Else
EstJaune = 0
End If
End Function

en remplaçant "NumJaune" par le numéro trouvé.
C'est mieux ?
Lassé par la pub ? Créez un compte
Tom's guide dans le monde