Tom's Guide > Forum > Programmation > Pour les couleurs dans excel

Pour les couleurs dans excel

Forum Programmation : Pour les couleurs dans excel

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Créer un nouveau sujet Répondre
Mot :    Pseudo :           
 
yann20071983   19-07-2007 à 13:50:07

Bonjour, je suis nouveau sur ce forum. Dans le cadre de mon travail, j'aimerai creer une macro, qui me permette d'obtenir le resultat 1 si une cellule est de couleur jaune et 0 si elle n'est d'aucune couleur. Si quelqu'un pouvait m'aider ca serait genial. Merci

Répondre
Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.
Gillou_gre   19-07-2007 à 15:46:11
- 0 +

Salut, Yann
Regarde si ceci peut t'aider:
http://www.excelabo.net/excel/form [...] leurdefond
Bonne continuation

Répondre à Gillou_gre
yann20071983   19-07-2007 à 16:34:28
- 0 +

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!!!

Répondre à yann20071983
Gillou_gre   19-07-2007 à 16:53:18
- 0 +

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 ?

Répondre à Gillou_gre
yann20071983   20-07-2007 à 10:16:59
- 0 +

En fait j'arrive pas a faire marcher ma fonction. Cooment dois je faire?

Desole je suis vraiment pas bon em informatique!!

Répondre à yann20071983
Gillou_gre   20-07-2007 à 14:14:37
- 0 +

A quel niveau tu bloques ? Tu arrives à copier la fonction dans un module indépendant ?

Répondre à Gillou_gre
yann20071983   23-07-2007 à 09:00:00
- 0 +

en fait je bloque au moment d'executer ma fonction. Il me renvoit dans une sub et la je sais pas quoi faire!

Répondre à yann20071983
Gillou_gre   23-07-2007 à 09:20:45
- 0 +

Salut, Yann
En fait, tu n'as pas à "exécuter" la fonction, tu la copies simplement dans un module et tu l'utilises ensuite comme n'importe quelle fonction Excel (SOMME, ARRONDI, ET, OU...).
Si tu as vraiment du mal, tu peux mettre ton fichier simplifié sur ce site http://cjoint.com/index.php et me donner l'adresse.
A+

Répondre à Gillou_gre
Créer un nouveau sujet Répondre
Tom's Guide > Forum > Programmation > Pour les couleurs dans excel
Aller à :

Il y a 2764 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Plan du forum
Forum Bestofmedia ©
2000-2009 Bestofmedia Group
Page générée en 0,383 secondes
Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler
Liens