Jacques Koplowicz <[EMAIL PROTECTED]> a écrit :
Je me demande comment je peux modifier la macro de manière à pouvoir
spécifier dans les arguments de la fonction le(s) caractère(s)
recherchés.
Ce serait donc une fonction du type COMPTAGE(zone ; "caractère").
A priori pour ce faire, il faudrait changer la ligne :
Function COMPTAGE(oZone as variant) as integer
en :
Function COMPTAGE(oZone as variant, sLettre as string) as integer
et la ligne :
If oZone(lLgn, lCol) = "X" or oZone(lLgn, lCol) = "V" then
en :
If oZone(lLgn, lCol) = sLettre then
Avec ça tu devrais avoir ce que tu veux. Par contre si tu ne mets pas
la majuscule dans l'argument de COMPTAGE, je pense que ça ne comptera
pas. De ce point de vue là, ma macro pourrait être améliorée (à la
base, je m'en servais avec un autre test pour compter les cellules non
vides). De la même façon, il doit y avoir moyen de l'améliorer pour un
nombre quelconque d'arguments (et donc lui faire chercher d'un coup
les cellules "X" et "V") mais je n'ai pas encore regardé comment ça
s'annonçait dans le code (sLettre() as string ?). Mais sinon un petit
COMPTAGE(zone, "X") + COMPTAGE(zone, "V") marchera très bien aussi ;)
Bon courage,
--
Anthony Benoist
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
