Comparer 2 feuilles et appliquer changement sur une 3eme

alsaco68

XLDnaute Nouveau
[RESOLU]Comparer 2 feuilles et appliquer changement sur une 3eme

Bonjour,
Je cherche à automatiser l’impression de nouveaux tarifs avec Excel.
J’ai actuellement un classeur avec 3 feuilles. La feuille « Etiquettes » est celle que je met a jour.
Je reçois tous les 3 jours des tarifs en cvs. Que je copie dans « tarifNEW »
Je garde toujours une copie des tarifs précédents dans « tarifsOLD »

Mon but est que Excel compare les prix de « tarifNEW » et « TarifOLD » et que si un prix a changé, il vérifie que j’ai bien l’étiquette pour ce produit dans « Etiquettes ». Si j’ai le produit dans étiquette, Excel devra me corriger les tarifs afin que je puisse les imprimer.

Mon plus gros problème est que les listes reçues ne sont jamais pareilles dans leurs dispositions…

Est-ce qu’il est possible avec excel de comparer des cellules qui se déplacent.
Par exemple :
=SI(TarifsNEW!modele = Etiquettes!nomduproduit)

Ci-joint un exemple "très réduit" de ce que j'ai...
Sur le tableau complet j'ai plus de 200 étiquettes, et les tarifs comprennent 800 produits avec 30 prix différents par produits suivant les options

Merci de votre aide.
 

Pièces jointes

  • Etiquettes.zip
    47.4 KB · Affichages: 65
  • Etiquettes.zip
    47.4 KB · Affichages: 62
  • Etiquettes.zip
    47.4 KB · Affichages: 56
Dernière édition:

alsaco68

XLDnaute Nouveau
Re : Comparer 2 feuilles et appliquer changement sur une 3eme

Apparemment c'est plus compliqué que je ne pensais...
J'essaie de faire comparer 2 tarifs.
Le problème est que j'ai plusieurs tarifs par appareil et que les appareils changent d'une liste a une autre.

Je n'arrive pas a trouver de formule pour comparer
modéle+Offre de TarifNEW = modéle+Offre de TarifOLD

Pour éclaircir ce que j'essaie de faire...
par exemple si Excel détecte un changement de prix de l'option1 pour l'appareil Type1 il me copie tout ce qui est en rapport avec Appareil Type1 dans un nouvel onglet.
Ensuite je pourrais faire un publipostage vers Word.


Merci de votre aide
 

Pièces jointes

  • tarifs.xls
    31.5 KB · Affichages: 57
  • tarifs.xls
    31.5 KB · Affichages: 55
  • tarifs.xls
    31.5 KB · Affichages: 60
Dernière édition:

JNP

XLDnaute Barbatruc
Re : Comparer 2 feuilles et appliquer changement sur une 3eme

Bonjour Alsaco68 et bienvenue :),
Ton problème paraît bien complexe et demande une structure très pointue :
1) Je pense que tu veux parler de csv et non de cvs... ;)
2) La base même de la programmation, c'est d'avoir un fichier de structure identique à l'import... Si ce n'est pas le cas, non, je ne pense pas qu'il y ait de formule miracle... Par contre, s'il y a plusieurs type de fichier csv, il sera possible de traiter chaque fichier en fonction de sa structure (si bien sûr, il s'agit d'un nombre limité de type de fichier, si chacun est différent, au secours :eek: !!!).
3) Ton modèle d'étiquette ne contient que 4 options, or dans l'import, il y en a jusque 10 :confused: ???
4) Tu parles d'un publipostage sous Word, mais je doute que Word sache rassembler les infos, en principe, il fera une étiquette par ligne Excel, soit une par option de chaque produit ;).
Bref, rien d'impossible à priori, mais le besoin de commencer par... le commencement :p... Donc les structures de tes fichiers d'import.
A + :cool:
 

Bebere

XLDnaute Barbatruc
Re : Comparer 2 feuilles et appliquer changement sur une 3eme

bonjour Alsaco,Jnp
un essai avec le contenu du fichier
clic sur le bouton,résultat dans changement
tu vois si cela te convient et tu nous dis ce qu'il faut changer
possible ajouter code pour aller chercher les fichiers texte
à bientôt
 

Pièces jointes

  • EtiquettesAlsaco.zip
    18.3 KB · Affichages: 46
  • EtiquettesAlsaco.zip
    18.3 KB · Affichages: 30
  • EtiquettesAlsaco.zip
    18.3 KB · Affichages: 41

JNP

XLDnaute Barbatruc
Re : Comparer 2 feuilles et appliquer changement sur une 3eme

Bonsoir Bebere :),
Est-ce normal qu'en comparant 39 lignes sur 39 autres, on tombe sur 82 lignes, alors que la suppression des doublons stricts donnent 59 lignes, et que sur la feuille changement, on ne trouve pas l'appareil type 9 qui est apparu ?
Bonne soirée :cool:
 

alsaco68

XLDnaute Nouveau
Re : Comparer 2 feuilles et appliquer changement sur une 3eme

Bonsoir Bebere, JNP.
Merci de vous être penchés sur mon cas ...
C'est la première fois que j'essaie de comprendre les macros.

Cool, Bebere avec ton code (que j'essaie de comprendre) je constate que ce que je cherche a faire est possible... :)

C'est exactement ce que je veux, mais apparemment comme l'indique JNP, il y a une erreur de traitement... Pour l'appareil type1 il met 25 options au lieu de 10

A bientôt
 

Bebere

XLDnaute Barbatruc
Re : Comparer 2 feuilles et appliquer changement sur une 3eme

oui Alsaco,Jnp
comme je le dis c'est un essai
tu précises le résultat à obtenir dans changement
faut-il vider la feuille changement à chaque traitement
et tout ce que tu penses qui doit être fait
à bientôt
 

Bebere

XLDnaute Barbatruc
Re : Comparer 2 feuilles et appliquer changement sur une 3eme

bonjour Asaco,Jnp
une autre version
tiens compte des rmq (hmm!!)
à bientôt
 

Pièces jointes

  • EtiquettesAlsaco.zip
    19.6 KB · Affichages: 50
  • EtiquettesAlsaco.zip
    19.6 KB · Affichages: 47
  • EtiquettesAlsaco.zip
    19.6 KB · Affichages: 41

alsaco68

XLDnaute Nouveau
Re : Comparer 2 feuilles et appliquer changement sur une 3eme

Ça y est j'ai testé... Ça va vraiment me simplifier le travail... Merci beaucoup...
Bebere grâce a tes rmq j'ai presque l'impression de comprendre ce que lis :)

néné06, après que faire :)
Est-ce possible de faire s'afficher sur la feuille1 tous les prix de l'article qui a été modifié et de mettre en gras le prix de l'option qui a changé ?
Je dois imprimer la fiche tarif complète si un prix a changé...

encore merci a vous
 

alsaco68

XLDnaute Nouveau
Re : Comparer 2 feuilles et appliquer changement sur une 3eme

Tout compte fait le VBA c'est plus compliqué que je ne pensais...

Bebere, j'ai une erreur de compilation (Déclaration existante dans la portée en cours) le débogueur me met le X en avant:

Sub test()
Dim X, firstAddress As String, C As Range, L As Long, Ld As Long, Lf As Long
Dim Cmodele As Integer, Coffre As Integer, Ctarif As Integer, X, Tbl

J'ai testé en faisant un publipostage vers Word a partir de la base de néné06, ca marche :) mais il me faudrait toutes les options d'un produit sur la page "changmeent" si un prix d'un article a changé.

L'avantage de la "méthode Bebere" c'est que apparemment même si la colonne est déplacée Excel prends quand même le bon tarif, mais j'ai pas réussi a tester je trouve pas comment corriger l'erreur...

A bientôt
 

JNP

XLDnaute Barbatruc
Re : Comparer 2 feuilles et appliquer changement sur une 3eme

Re :),
j'ai une erreur de compilation (Déclaration existante dans la portée en cours) le débogueur me met le X en avant:
Ben
Code:
Dim [COLOR=red][B]X[/B][/COLOR], firstAddress As String, C As Range, L As Long, Ld As Long, Lf As Long
Dim Cmodele As Integer, Coffre As Integer, Ctarif As Integer, [COLOR=red][B]X[/B][/COLOR], Tbl
Effectivement, tu déclares 2 fois X, tu peux en supprimer 1 :rolleyes:...
Bonne soirée :cool:
 

Bebere

XLDnaute Barbatruc
Re : Comparer 2 feuilles et appliquer changement sur une 3eme

bonjour Alsaco,Néné,Jnp
faute corrigée
à bientôt
 

Pièces jointes

  • EtiquettesAlsaco.zip
    18.2 KB · Affichages: 53
  • EtiquettesAlsaco.zip
    18.2 KB · Affichages: 53
  • EtiquettesAlsaco.zip
    18.2 KB · Affichages: 50

Discussions similaires

Statistiques des forums

Discussions
312 392
Messages
2 088 004
Membres
103 693
dernier inscrit
vincs