Formule de calcul sous Exel

Fermé
Patbazar - 24 nov. 2003 à 11:37
 Prisco - 25 nov. 2003 à 12:24
Salut !
Voilà, je n'arrive pas à trouver une formule sous exel...vous serez surement plus doués que moi !
Je voudrais que la case "B1" indique "1" si la case "A1"est colorée en rouge et que la case "B2" indique "0" si la case "A2" n'est pas colorée (par exemple)
Pas simple n'est-ce pas?!
Merci de m'envoyer un mail si vous trouvez quelque chose !
Cordialement
Patbazar
A voir également:

1 réponse

Profil bloqué
24 nov. 2003 à 14:28
salut pat

mois, j'utilise VBA pour résoudre ses problèmes.

j'ai créé une fonction qui qui teste la couleur d'une cellule ou d'une plage de cellules.

pour créer cette fonction va dans le menu outils puis macro puis visual basic editor

tu insères un nouveaux module et tu écrits les lignes uivantes :

Function test_couleur(cellule As Range) As Integer
If cellule.Interior.ColorIndex = 3 Then test_couleur = 1 Else test_couleur = 0
End Function


après tu peux insérer cette fonction comme une fonction excel (insertion/fonction/personnalisées)

exemple :

à la cellule B1 tu insères =test_couleur(A1)

dans cette fonction j'ai utilisé colorindex=3 pour le rouge , mais tu peux utiliser n'importe quelle autre index pour les autres couleurs.

sinon je te donne une autre fonction qui te donne colorindex d'une cellule ou d'une plage de cellules, et comme ça tu peux déterminer colorindex de ta cellule puis l'insérer dans le fonction précedente à la place du 3.

Function numero_couleur(cellule As Range) As Integer
numero_couleur = cellule.Interior.ColorIndex
End Function

exemple :

à la cellule B3 tu insères =test_couleur(A1) pour récupérer colorindex de la cellule A1.


time is not money, time is life
0
Profil bloqué
24 nov. 2003 à 14:31
pardon, dans le dernier exemple tu utilise la fonction numero_couleur

exemple :

à la cellule B3 tu insères =numero_couleur(A1) pour récupérer colorindex de la cellule A1.



time is not money, time is life
0
Prisco > Profil bloqué
25 nov. 2003 à 12:24
t'es fort, mon gars !

(il faudrait que je potasse VB)

"MSK"
0
Bonsoir Filaliabdou!

C'est super sympas d'avoir répondu aussi vite !
J'essayerai tes conseils dès demain !
Merci et @+
Cordialement
Pat
0