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 -
TCHOUTCHOU0188 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
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
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
1 réponse
-
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.
