Ci-dessous, nous examinerons un programme en Excel VBA ce somme les nombres par couleur.
Situation:
Vous avez prêté de l'argent à deux douze personnes. Certaines personnes vous l'ont rendu (en noir) et d'autres vous doivent encore de l'argent (en 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 toReceive avec la valeur 0.
Dim toReceive As Integer, i As Integer
recevoir = 0
2. Deuxièmement, nous commençons une boucle For Next.
Pour i = 1 à 12
3. Nous vérifions maintenant chaque numéro et seulement si la couleur du numéro est rouge, nous ajoutons le numéro à Recevoir.
Si Cells(i, 1).Font.Color = vbRed Then
toReceive = toReceive + Cells(i, 1).Valeur
Fin si
4. N'oubliez pas de boucler la boucle.
Ensuite je
5. Enfin, nous affichons l'argent qu'il reste à recevoir. Nous utilisons l'opérateur & pour concaténer (joindre) deux chaînes. Bien que toReceive ne soit pas une chaîne, cela fonctionne ici.
MsgBox "Encore à recevoir " & Recevoir & " dollars"
6. Placez votre macro dans un bouton de commande et testez-la.
Résultat:
