Imaginez que vous ayez un tableau des dépenses. Vous vous intéressez maintenant à tous les numéros supérieurs à 10 €. Vous souhaitez compter cette sortie et la générer sous forme de message d’écran. La macro est la suivante:
Sub NombreComptageDansPlage () Const limit = 10 Dim cell as range Dim Counter As Long For Each Cell In Selection If Cell.Value> Limit Then Counter = Counter + 1 Next cell MsgBox compteur End Sub
La meilleure façon de définir la valeur limite est tout en haut de la macro en tant que constante. Cela vous permet de modifier plus facilement les limites de valeur ultérieurement et vous n’avez pas à chercher longtemps dans le code source. Vous parcourez toutes les cellules et vérifiez si le contenu est> 10 €. Si tel est le cas, augmentez le compteur de variables de la valeur 1.