Question Actualisation données et surbrillance modifications cellule

Bonjour à tous :)

Nouveau venu j'aurais une petite question concernant la mise à jour de données.

Pour résumer nous utilisons au boulot un fichier excel de passassions de consignes. A ce fichier je voulais intégrer dans une nouvelle feuille un autre fichier Excel qui i répertorie pour chaque appareil si il y a des pannes, et si oui leur référence. Nous recevons plusieurs fichiers par jour (leur format ne change pas) et les comparer est assez fastidieux.

J'ai réussi à créer un système de données via un dossier dans lequel nous rangeons à chaque mise à jour le nouveau fichier de pannes, et l'actualisation fonctionne.

J'aimerais pousser cela plus loin, et faire apparaître en surbrillance les modification par rapport à la version précedente.

Est-ce possible?

Merci par avance

Cordialement

Bonjour et bienvenue,

Sujet intéressant ... mais qui amène quelques questions :

• comment se fait l'actualisation ? sur un seul fichier de synthèse ?
• la recherche des évolutions se fait-elle uniquement sur ce fichier actualisé ?
• quels sont les identifiants qui permettent de rapprocher la situation avant/après ?
  • est-ce juste une cellule car ls données sont toujours au même endroit ?
  • est-ce un identifiant machine ?

Bonjour,

Nous recevons en fait le même fichier (avec le même format) mais avec des infos parfois qui diffèrent dans les cellules si par exemple une panne n'est plus présente ou une nouvelle est apparue. A chaque MAJ je remplace le fichier dans le dossier d'où sont extraites les cellules, et lance ensuite l'actualisation.

Du coup la recherche des évolutions se fait entre ces différents fichiers mais ayant le même format.

J'ai éssayé un code VBA qui fonctionnait lorsque je faisais la moindre modification dans une cellule (ajout, retrait, ou modif de caractère), celle-ci se colorait en rouge.

Le code était du style :

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Range("A2:A500"), Target) Is Nothing Then nv = Target.Value Application.EnableEvents = False Application.Undo If nv <> Target.Value Then Target.Value = nv Target.Interior.Color = vbRed End If Application.EnableEvents = True End If End Sub

Mais cela ne fonctionne pas lorsque je réactualise les données.

Je ne sais pas si c'est très claire :)

Merci en tout cas

Je comprends bine le code avec UnDo qui permet en effet de revenir à la valeur précédente et la comparer.

En cas d'actualisation, tu as sans doute une grand nombre de données mises à jour et UnDo n'agirait que sur la dernière.

Je pense qu'avant d'actualiser, il faudrait faire une copie de l'onglet dans un autre, faire la mise à jour et comparer les 2 onglets. Maintenant, pour aller plus loin, il faudrait sans doute que tu puisses donner une maquette du ou ds fichiers que tu utilises ... sans données confidentielles.

Entendu merci, cela m'a l'air assez hardu du coup.

Sinon est-ce possible de définir pour :

une plage de cellules (B10 à B20 et dans l'idéal également C10 à C20) le fait que chaque modification dans une des cellules située dans ces plages coche une case sur la colonne E ? En gros une modification en B 36 coche E36 , une modif en C25 coche E25 etc....

merci encore :)

Bonjour,

Que contient votre target ? Car l'évènement worksheet_change, à ma connaissance, ne fonctionne que sur la modification en saisie. Quand la valeur renvoyée change suite au recalcul d'une formule, il ne se passe rien.

Par ailleurs, le code contenant une instruction de sortie quand Target.Count > 1, il ne peut pas modifier avec plusieurs cellules.

Cdlt,

@ mat92

Poste un fichier tel que tu le vois ... sinon on partira dans des directions qui in fine ne te satisferont pas !