Différence de tarif par mois
Bonjour
J'ai plusieurs fournisseurs qui changent les prix tous les mois et rajoute ou enlève des références
J'aimerai savoir s'il est possible que l'on arrive a voir : si de nouvelles références sont là - les anciennes qui n'existe plus a rapport au mois précédant et si pour les références identiques d'un mois a l'autre - il y a eu un changement de tarif
En sachant que mes tableaux peuvent varier de 100 lignes à 10 000 lignes selon mes fournisseurs mais mes colonnes sont identiques ( même cross pour tous en ligne 1 )
J'ai nommé la feuille 1 : ancien tarif / feuille 2 : nouveau tarif / feuille 3 : comparaison entre la 1 et la 2
merci d'avance pour votre aide
Bonjour,
Une proposition Récupérer et transformer (Power Query).
A adapter.
Cdlt.
Bonjour audreyh,
Bonjour Jean-Eric
version VBA (que je maîtrise mieux que PowerQ)
Sub evolutions()
Dim final() As Variant
Set d = CreateObject("Scripting.Dictionary")
Set da = CreateObject("Scripting.Dictionary")
Set dn = CreateObject("Scripting.Dictionary")
tbla = Sheets("Ancien").Range("A1").CurrentRegion.Value
tbln = Sheets("Nouveau").Range("A1").CurrentRegion.Value
For i = 2 To UBound(tbla)
d(tbla(i, 1)) = 1
da(tbla(i, 1)) = tbla(i, 5)
Next
For i = 2 To UBound(tbln)
d(tbln(i, 1)) = 1
dn(tbln(i, 1)) = tbln(i, 5)
Next
ReDim final(1 To d.Count, 1 To 3)
i = 1
For Each cle In d
final(i, 1) = cle
final(i, 2) = da(cle)
final(i, 3) = dn(cle)
i = i + 1
Next
Sheets("Difference").Range("A2").Resize(d.Count, 3) = final
End Sub
Sub raz()
Sheets("Difference").Range("A1").CurrentRegion.Offset(1, 0).Clear
End SubBonjour audreyh
Merci de faire un retour sur les propositions de Jean-Eric et moi-même et clôturer le sujet
Bonjour
Pour Jean-Eric ce n'est pas tout a fait ca
Et pour toi - je n'arrive pas à enregistrer le test pour voir sur un autre dossier
je reessaye demain dans la journée pour voir si j'y arrive mieux
Bonjour à toutes et tous,
@Audrey,
Pour Jean-Eric ce n'est pas tout a fait ca
Peux-tu en dire plus ?
Est-ce une question de présentation?
Cdlt.