programme dans Excel VBA qui définit la couleur d’arrière-plan des tâches

Ci-dessous, nous examinerons un programme dans Excel VBA qui définit la couleur d’arrière-plan des tâches planifiées sur vert et définit la couleur d’arrière-plan des tâches en retard sur le rouge.

Situation:

Sur Feuil1, nous avons trois tâches (X, Y, Z). Un “1” indique qu’une tâche est terminée. Une tâche est planifiée si un “1” existe dans chaque colonne jusqu’à la date du jour incluse. Aujourd’hui, c’est 6 Aout . Les tâches X et Y respectent le calendrier. La tâche Z est en retard sur le calendrier (pas de “1” dans la cellule E8).

 Créez un événement de modification de feuille de calcul. Le code ajouté à l’événement de modification de la feuille de calcul sera exécuté par

Excel VBA lorsque vous modifiez une cellule d’une feuille de calcul.

1. Ouvrez l’éditeur Visual Basic.

2. Double-cliquez sur Feuil1 (Feuil1) dans l’Explorateur de projets.

3. Choisissez Feuille de travail dans la liste déroulante de gauche. Choisissez Modifier dans la liste déroulante de droite.

Ajoutez les lignes de code suivantes à l’événement de modification de la feuille de calcul:

4. Déclarez deux variables de type Entier.

Dim i As Integer, j As Integer

  1. 5. Ajoutez une boucle Do While.

Do While Cells(6 + i, 1).Value <> “”

    i = i + 1

Loop

Explication: Pour i = 0, Excel VBA vérifie la tâche X, pour i = 1, la tâche Y, etc. Excel VBA laisse le Do

Boucle while lorsque les cellules (6 + i, 1). La valeur est vide (plus de tâches à vérifier). Ajoutez les lignes de code suivantes (en 6, 7 et 8) à la boucle Do While.

6. Initialisez la variable j avec la valeur 0.

 j = 0

7. Définissez la couleur d’arrière-plan d’une tâche sur vert en supposant qu’une tâche est planifiée (ce n’est pas nécessairement vrai bien sûr).

Cells(6 + i, 1).Interior.ColorIndex = 4

8. Ajoutez une autre boucle Do While.

Do While Cells(4, 2 + j).Value <= Date

    If Cells(6 + i, 2 + j).Value = 0 Then Cells(6 + i, 1).Interior.ColorIndex = 3

    j = j + 1

Loop

Remarque: la fonction Date renvoie la date du jour.

Explication: Pour i = 0, j = 0, Excel VBA vérifie la cellule B6. Pour i = 0, j = 1, Excel VBA vérifie la cellule C6,etc. Une tâche est planifiée si un “1” existe dans chaque colonne jusqu’à et y compris la date d’aujourd’hui. Si Excel

VBA trouve un “0”, il définit la couleur d’arrière-plan de la tâche sur rouge.

9. Testez le programme. Par exemple, indiquez que la tâche Z du 6 Aout est terminée. En conséquence, la tâche Z deviendra automatiquement vert.

  

S’abonner
Notifier de
0 Commentaires
le plus ancien
le plus récent le plus populaire
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