Cette question provient d’un de mes utilisateurs, et comme elle est suffisament générale, voici ma réponse !
L’objectif consiste à suivre les changements effectuées sur une feuille de calcul (ici la feuil1 uniquement), en mettant en rouge les cellules concernées.
Vous pouvez consulter un exemple ici
L’idée générale est de capturer l’événement de modification de la feuille et de changer ensuite le format de la cellule concernée.
Voici la procédure en vidéo, et en dessous, la procédure en texte et image.
Sous Excel 2000 à 2003, la seule différence se trouve au niveau de l’insertion des cases à cocher. Cette fonction se trouve dans la barre d’outils formulaire (menu afficahge – barres d’outils – Formulaires).
|
|
Pour cela, clic droit sur le nom de la feuille contenant les données, puis choisir visualiser code.
On va ensuite ajouter le code suivant :
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.ColorIndex = 3
End Sub
Le 3 correspond à la couleur rouge.
Et donc pour tout changement dans la feuille, la cellule concernée est maintenant en rouge.
On peut améliorer le système en ajoutant une case à cocher activant ou désactivant le suivi des modifications.
Sous 2003 : Affichage – Barres d’outils – Formulaires et dessiner une case à cocher.
Sous 2007 : Afficher le menu développeur (dans les options d’excel), puis insérer une case à cocher :
Pour bien faire les choses, nous allons ajouter une feuille paramètres
Nommer une cellule “suivi_des_modifications” sur cette feuille
Puis on retourne sur la feuille initiale pour lier la case à cocher à cette cellule (clic droit sur la case à cocher pour la sélectionner, puis dans la barre de formule, taper : =suivi_des_modifications )
Il ne reste plus qu’à modifier le code pour que le suivi soit actif uniquement lorsque la case à cocher est coché :
Private Sub Worksheet_Change(ByVal Target As Range)
if sheets(“Paramètres”).range(“suivi_des_modifications”) then
Target.Font.ColorIndex = 3
end if
End Sub
Cette petit démonstration devrait vous ouvrir la porte sur pas mal de possibilités !
Note : pour avoir excel en noir, voir ce post précédent
A bientôt.
Gaetan
): 
