Macro pour comptage des valeurs dans la zone texte, Excel VBA

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.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x