Identfier les nouveaux éléments ajoutés dans une "Pivot Table"

[Soleil11]

Bonjour le forum,

Existe-t-il un moyen d'identifier les nouveaux éléments ajoutés lorsque j'actualise une "Pivot Table" ?

La source de la "Pivot Table" est constitués de 30'000 lignes et chaque mois je fais des importations de nouvelles données dans la feuille1 et j'actualise la "Pivot Table" et j'aimerais bien idendifiés ces nouveaux éléments ajoutés par une couleur ou une indicateur pour les détecter plus rapidement sans devoir contrôler chaque ligne.

Merci d'avance pour votre aide.

Soleil11😕

 

[VDAVID]

Re : Identfier les nouveaux éléments ajoutés dans une "Pivot Table"

Bonjour Soleil,
Une première piste :

Sub Préparation ()
Application.ScreenUpdating = False

ActiveSheet.Copy Before:=Sheets("Feuil1")
      ActiveSheet.Name = "Lol"
Call Miseàjour 
Dim i&
    For i = 30000 To 1 Step -1
    If Range("A" & i).Value <> Sheets("Feuil1").Range("A" & i).Value Then
    Sheets("Feuil1").Range("A" & i).Interior.ColorIndex = 3
    End If
    Next
Sheets("Lol").Delete
Application.ScreenUpdating = True
End sub

Qui te créer une nouvelle feuille, qui est la copie de celle de base avant la mise à jour.
Ensuite tu appelle ta mise à jour :
Call Miseàjour que tu dois définir en macro (Avec l'enregistreur par exmple ).
Elle vérifie si les valeurs sont équivalentes et effectue une coloration des cellules qui ont changé; puis supprimer la feuille créer au départ.

A adapter en fonction de ta feuille
En espérant t'avoir aider 😀

 

[Soleil11]

Re : Identfier les nouveaux éléments ajoutés dans une "Pivot Table"

bonjour VDAVID,

J'ai testé votre proposition et cela marche très bien pour une seule colomne. Je voudrais comparer plusieurs colonnes, comment puis modifier votre code afin qu'il compare plusieurs colonnes et qu'il applique la coloration pour la ligne lorsque les valeurs ne sont pas équivalentes. Actuellement, il compare que les valeurs équivalente en colomne A.

Merci de votre aide.

Soleil 11