Mettre en rouge les cellules modifiées
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
Bonsoir, c’est avec plaisir que je retrouve votre news letters et toujours avec autant d’intérêt , je vais avec votre exemple pouvoir l’adapter à mes besoins entre modif et permutation de valeurs de cases.Merci.
Effectivement, on peut aussi l’utiliser pour des permutations. Par exemple, pour n’avoir qu’un seul tableau permettant de calculer HT, TVA et TTC. Bonne idée pour une prochaine newsletter.
Cordialement
Gaetan
Bonjour,
Je viens d’essayer votre formule concernant “Mettre en rouge les cellules”
Cela a bien fonctionné. J’ai fermé le fichier, l’ai rouvert, et j’ai complété
avec la case à cocher. Par contre, il ne se passe plus rien ?
Idem si j’enlève la case à cocher.
Pouvez-vous m’aider ?
Merci
Maryline
problème sur le IF
sauf que vba est pas super bavard donc je voie pas le problème
Pourriez vous m’envoyer le fichier pour que je vois ce qui ne fonctionne pas ?
Cordialement
Gaetan Mourmant
contact@polykromy.com