Rapatriement de colonne suivant un référentiel

TCHOUTCHOU0188 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
TCHOUTCHOU0188 Messages postés 2 Date d'inscription Statut Membre Dernière intervention - 27 juil. 2015 à 16:07

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

A voir également:

Rapatriement de colonne suivant un référentiel
Déplacer colonne excel - Guide
Formule somme excel colonne - Guide
Trier colonne excel - Guide
Colonne word - Guide
Suivi de modification word - Guide

1 réponse

Réponse 1 / 1

TCHOUTCHOU0188 Messages postés 2 Date d'inscription Statut Membre Dernière intervention

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.

Discussions similaires

Tri les lettres d'un mot par ordre alphabétique

Fixer un résultat pour de bon à l'aide d'une fonction.

Sauvegegarder le document avec un nom trouvé dans ce doc

Votre réponse

Discussions similaires