Améliorer une macro

Question

Bonjour,

J'ai trouvé cette fonction sur internet et elle marche mais pas tout le temps. 
En fait elle ne se rafraichit pas automatiquement quand on colorie à nouveau les cellules. 
il faut enregistrer le fichier à chaque fois pour qu'elle se réevalue.

Function nbFondCouleur(plage As Range, modele As Range)
    Dim cel As Range, tot As Long
    Application.Volatile
    For Each cel In plage        tot tot + (cel.Interior.ColorIndex modele.Interior.ColorIndex)
    Next cel
    nbFondCouleur = -tot
End Function

Quelqu'un pourrai-t-il me donner un coup de main svp?

merci d'avance

PCPT · Answer

salut,

un rapport avec ton précédent topic ?
http://www.vbfrance.com/infomsg_PROBLEME-REEVALUATION-FONCTION_1190279.aspx#2

d'ailleurs classé en VB6, là en VB.NET, va falloir choisir un moment 
sans doute VBA
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cocomyam · Answer

Oui carement! mais la en fait le code et plus court. Mais j'ai toujours le meme probleme.
Pour le theme je t'avoue que je n'arrive pas trop à me situer

jrivet · Answer

Salut, Dans l'autre post... Sympa d'ouvrir un second post alors que quelqu'un prend la peine de répondre... [reglement.aspx Voir le règlement de CodeS-SourceS] Re : Probleme de réevaluation d' une fonction le 21/08/2008 08:47:32 [infomsg_PROBLEME-REEVALUATION-FONCTION_1190279.aspx#reponsemsg Rép.]

[javascript:void(0); MP]

[infomsgm_JRIVET_89254.aspx 6488 msg]

6808 msg CS

Re : Probleme de réevaluation d' une fonction le 21/08/2008 19:01:29 [infomsg_PROBLEME-REEVALUATION-FONCTION_1190279.aspx#reponsemsg Rép.]

[javascript:void(0); MP]

[infomsgm_COCOMYAM_979669.aspx 4 msg]

@+: Ju£i€n Pensez: Réponse acceptée

Améliorer une macro

3 réponses

Votre réponse

Discussions similaires