Je suis face à un problème : j'aimerais créer une fonction SI du style :
SI A1 est de couleur verte alors ...
Le critère de couleur n'est pas important j'ai aussi imaginé la valeur de la
cellule en gras ou la valeur soulignée, en italique etc...
Je ne sais pas ce qui est le plus simple à réaliser.
Merci d'avance pour vos idées.
Function EstCouleur(cellule As Range, color As Integer) As Boolean
EstCouleur = cellule.Interior.ColorIndex = color
End Function
Function EstGras(cellule As Range) As Boolean
EstGras = cellule.Font.Bold = True
End Function
sur la feuille de calcul :
par exemple pour un test SI couleur = jaune
=EstCouleur(A1;6)
pour un test SI cellule = gras
=EstGras(A1)
isabelle
GF a écrit :
attention car le changement de format de cellule ne provoque pas de recalcul de la feuille
il faut appuyer sur la touche F9 pour provoquer le recalcul.
isabelle
GF a écrit :
C'est à intégrer dans une macro ?
Mon soucis c'est que je dois appliquer cette formule sur un grand nombre de
cellule. Je ne vois pas trop comment dupliquer cette formule rapidement.
Merci bcp pour ton aide !
je viens d'écrire dans une cellule :
=SI(EstCouleur(V35;6);1;0)
mais ça ne marche pas, que dois je avoir dans mon code source ?
sachant que j'aimerais appliquer cette formule a un nombre important de
cellules j'aimerais pouvoir avoir le moins possible de code !
Merci de ton aide !
le "Function" sont à copier tel quel dans un module standard
elles pourrons alors etre utilisés comme les autres function,
et elles seront disponible au menu, Insertion, Fonction, catégorie : Personnalisées
isabelle
GF a écrit :
Un grand merci pour votre aide et votre disponibilité
Cordialement
Et un petit bricolage qui pourra peut-être servir :
http://cjoint.com/?exrGD5AnkQ
Serge
"GF" <G...@discussions.microsoft.com> a écrit dans le message de news: A4EDCACF-48B7-4023...@microsoft.com...
Merci
Une autre approche :
Voici quelque chose de plus souple qui permet
de lancer automatiquement une macro selon
la couleur de fond choisi :
http://cjoint.com/?exuj3efuPS
Serge
"GF" <G...@discussions.microsoft.com> a écrit dans le message de news: D0C86521-615C-4D2D...@microsoft.com...