Oooh Dugenou, je te fait un bisou
(j'ai l'esprit en chanson ce soir,
rien que de la bonne humeur, pas de mauvais esprit)
et comment ne pas penser à Thomas Fersen avec un nom pareil
Koike, ce serait plutôt Dudoigt
Je n'en reviens pas que l'on prenne quelques secondes de son temps pour exposer si clairement quelque chose qui me sert tellement
Les forums sont magnifiques, vive l'entraide, vive les sauveurs et les lecteurs. Chapeau bas, et moi... une petite apologize de ne pas avoir retrouvé le post par moi-même.
Grand merci de me l'avoir retrouvé, c'est super sYmPa
J'ai fait d'autre recherches conduisant effectivement à des scripts VB, mais je ne savais pas comment les utiliser et j'était sur le point de me décourager.
Conclusion :
1/ Ne jamais se laisser décourager
2/ Si l'on sens le découragement nous gagner, demander de l'aide
3/ Si l'on en viens à l'étape 2, il y a toujours un peu d'aléat pour la suite, mais toujours en revenir à l'étape 1
PS: explications complémentaires :
Pour tout dire, j'ai suivi les excellentes explication de Dugenou,
j'ai copié le script, j'ai fait Alt-F11, j'ai collé le code
ensuite j'ai inséré la fonction avec l'assistant (fx)
Ca n'a pas tout de suite marché, car l'assistant me disait que la fonction n'avais pas d'arguments, et j'ai du les rajouter "à la main"
Aussi, j'ai un peu "rebidouillé" la fonction, parceque je n'arrivais pas à la faire marcher tel quelle :
Function ColorCountIf(SearchArea As Range, MaCoul As Integer) As Integer
Application.Volatile True
ColorCountIf = 0
For Each cell In SearchArea
If cell.Font.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + 1
Next cell
End Function
Et là, ça marche du tonerre, je suis heureux
merci, je v pas en dormir la nuits,
ou je vais en faire des rêves de paradi
ou je v prier St Dugenou toutes les nuits pendant une semaine
ou je vais vénérer le site http://www.excel-downloads.com/
ou je sais pas, en tout cas merci à tous
c super cool
J'ai posté une double question ce matin,
g ma double réponse ce soir
à peine croyable...
BISOU DUGENOU :X