affichage en couleur des modifications dans feuille excel

[davidum33]

Bonjour,, je cherche un moyen assez simple de faire apparaître (par ex en couleur / Gras Italique) les modifications faites sur une feuille excel. Ceci pour voir très rapidement ce qui a été modifier. Je ne sais pas si je dois faire cela en macro / vbs ou y a -til tout simplement une fonction dans excel qui le fait.

Merci de vos réponses

 

[ROGER2327]

Re : affichage en couleur des modifications dans feuille excel

Bonjour davidum33

La procédure qui suit permet de comparer deux feuilles consécutives.
Mode d'emploi : créer une copie de la feuille à modifier immédiatement après elle. Placer le code dans le module de feuille de la feuille à modifier. Effectuer les modifications. Exécuter la procédure : les cellules modifiées seront sélectionnées.

[COLOR="DarkSlateGray"]Sub toto()
Dim f, p, q, tf As Boolean
   With Sheets(Me.Index + 1)
      Set p = .[A1]
      On Error Resume Next
      Set p = Union(p, .Cells.SpecialCells(xlCellTypeConstants))
      Set p = Union(p, .Cells.SpecialCells(xlCellTypeFormulas))
      On Error GoTo 0
      Set q = Me.[A1]
      On Error Resume Next
      Set q = Union(q, Me.Cells.SpecialCells(xlCellTypeConstants))
      Set q = Union(q, Me.Cells.SpecialCells(xlCellTypeFormulas))
      On Error GoTo 0
      Set p = Union(Me.Range(p.Address), Me.Range(q.Address))
      Set q = Nothing
      Me.Activate
      For Each f In p
         If f.Value <> .Range(f.Address).Value Then
            If tf Then Union(Selection, f).Select Else tf = True: f.Select
         End If
      Next f
      Set p = Nothing
   End With
End Sub[/COLOR]

ROGER2327

 

[aminr]

Re : affichage en couleur des modifications dans feuille excel

bonjour,
le code est interessant, si maintenant je voudrais surligner tous les changements en rouge?
merci

 

[BOISGONTIER]

Re : affichage en couleur des modifications dans feuille excel

Bonjour,

Onglet ColoriageModif et ColoriageModif2

http://boisgontierjacques.free.fr/fichiers/jb-worksheetchange.zip

JB