Rapatriement de colonne suivant un référentiel

Question

Bonjour à tous, 

Je souhaite traiter des tableaux fournisseur afin de les exploiter.

J'ai une centaine de tableaux fournisseur avec leurs références, désignations, prix, conditionnements, ...

Bien sur, chaque fournisseur à un tableau différent ; ainsi, le fournisseur A renseigne sa référence en colonne B alors que le fournisseur X renseigne sa référence en colonne L et ainsi de suite. Point positif, les tableaux sont les mêmes d'une année sur l'autre.

J'ai donc créé un fichier Excel avec 4 onglets :
Original - MACRO - TRAITEMENT - RÉFÉRENTIEL

L'objectif étant de définir une fois pour toute le "référentiel" de chaque fournisseur.

Fournisseur----Référence-----Désignation-----Unité
Fournisseur 1------B--------------C------------L
Fournisseur 2------X--------------K------------R
.................------...-------------...-----------...


1. J'importe mon tableau Fournisseur, en onglet ORIGINAL
2. En onglet MACRO, je sélectionne mon fournisseur ==> Excel rapatrie le référentiel
3. Je lance ma MACRO et Excel en fonction du référentiel rapatrie les colonnes

Fournisseur----Référence-----Désignation-----Unité
Fournisseur 1------B--------------C------------L
Produit 1---------123---------Cosse Ø2--------U
Produit 2---------124---------Cosse Ø3--------U
Produit 3---------567--------Embout Ø0.5------U
Produit 4---------568--------Embout Ø0.75-----U
............---------.....--------..................-----..

Quelqu'un aurait une solution ?

Cordialement
JJM

TCHOUTCHOU0188 · Answer

je précise voilà comment je souhaitais m'y prendre :
Pour les 2 première colonnes :

Sub Macro3()
'
' Macro3 Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+R
'
    Range("A2:C2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Range("A3").Select
    ActiveSheet.Paste
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("ORIGINAL").Select
    Application.Goto Reference:="R2C1"
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("MACRO").Select
    Range("E4").Select
    ActiveSheet.Paste
    Range("F3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("ORIGINAL").Select
    Application.Goto Reference:="R2C12"
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("MACRO").Select
    Range("F4").Select
    ActiveSheet.Paste
End Sub

Le problème se situe à ce niveau :
Application.Goto Reference:="R2C1"
 Application.Goto Reference:="R2C12"

Excel ne prend pas la valeur de la cellule, mais la valeur qui a été enregistrée lors de l'enregistrement de la macro.

Rapatriement de colonne suivant un référentiel

1 réponse

Votre réponse

Discussions similaires

Newsletters