Tapez la ligne suivante dans votre code:
x = Application.WorksheetFunction.CountIf (cellules, 1)
La "cellules" gamme va chercher à travers toutes les cellules utilisées sur votre feuille de calcul. Si vous avez besoin d'une gamme spécifique, vous pouvez changer "cellules" à "Gamme("UN UNE DES")", Où "UN UNE DES" est la plage que vous souhaitez rechercher. La "1" dans ce code va rechercher le numéro 1. Vous pouvez la modifier à numéro que vous voulez, ou toute chaîne, aussi longtemps que vous envelopper la chaîne entre guillemets. En outre, vous pouvez utiliser supérieur ou inférieur signes, "lt;" ou "gt;", Avec un certain nombre, mais vous devrez alors inclure le nombre et le signe de guillemets.