Ci-dessous, nous examinerons un programme dans Excel VBA qui additionne les nombres par couleur. Situation:

Vous avez prêté de l’argent à deux douze personnes. Certaines personnes l’ont rendu (en noir) et certains vous doivent encore de l’argent (rouge). Vous voulez savoir combien d’argent vous recevez encore.

1. Tout d’abord, nous déclarons deux variables de type Integer. Un nommé toReceive et un nommé i. On initialise la variable Recevoir avec la valeur 0.

Dim Recevoir As Integer, i As Integer

Recevoir = 0

2. Deuxièmement, nous commençons une boucle For Next.

For i = 1 To 7

3. Nous vérifions maintenant chaque numéro et seulement si la couleur du numéro est rouge, nous ajoutons le nombre à Recevoir.

If Cells(i, 1).Font.Color = vbRed Then

    Recevoir = Recevoir + Cells(i, 1).Value

End If

4. N’oubliez pas de fermer la boucle.

 Next i

5. Enfin, nous affichons l’argent restant à recevoir. Nous utilisons l’opérateur & pour concaténer (joindre) deux chaînes. Bien que Recevoir ne soit pas une chaîne, il fonctionne ici.

MsgBox "Reste à recevoir" & à recevoir & "dollars"

6. Placez votre macro dans un bouton de commande et testez-la.

Résultat: