Remplacement automatique entre deux classeurs.

[WDAndCo]

Bonsoir le Forum

Comment remplacer automatiquement des valeurs par celles correspondantes d'un autre classeur ?

Attention la correspondance n'est pas toujours à faire en colonne A (classeur cla2)

Dans un classeur (Base) j'ai une base du genre 1 A, 2 G etc
dans un autre classeur (cla2) j'ai 1, 6, 7 etc je voudrait automatique remplacer par exemple le 1 en A et le 2 en G etc

Pour info la base réel fait 25 correspondances

D'avance merci
Dominique

 

[laurent950]

Re : Remplacement automatique entre deux classeurs.

Bonsoir,

le classeur base = les vrais donné.

le classeur CLA2.xls = aucune valeur la macro doir prendre les valeur du classeur base (celle = exeple ( a b c d e f etc) pour mettre les valeurs (1 2 3 4 5 6 etc) dans le CLA2.xls

Les colonnes sont pas les mêmes a chaque fois ce qui veux dir qu'il y a une selection a faire en classeur Base (une plage de cellule a définir ?)

aprés votre réponse cela est jouable

Laurent

 

[WDAndCo]

Re : Remplacement automatique entre deux classeurs.

Je joint deux nouveaux fichiers cela seras pour vous plus clair !
Il faut modifier les valeurs de la colonne F du classeur as2 avec les corespondances qui sont faite dans le classeur base.

 

[WDAndCo]

Re : Remplacement automatique entre deux classeurs.

Bonsoir le Forum

Non rien juste un up !

 

[WDAndCo]

Re : Remplacement automatique entre deux classeurs.

Bonsoir le Forum
Si quelqu'un pouvais me donner un petit coup de main

Sub Ouvre()
    Feuille$ = Cells(2, 3)
    Colonne$ = Cells(2, 5)
    Sheets(Feuille).Select
    Columns(Colonne$).Select
    Selection.Copy
    Selection.Insert Shift:=xlToRight
    Range(Colonne$ & "2").Select
    Application.CutCopyMode = False

    ActiveCell.FormulaR1C1 = "=LOOKUP(RC[1],Base!R1C1:R24C1,Base!R1C2:R24C2)"
    Selection.AutoFill Destination:=Range("F2:F1000") ' Comment mettre cela avec la variable Colonne$ ?
    Range("F2:F1000").Select  ' Comment mettre cela avec la variable Colonne$ ?
    Columns(Colonne$).EntireColumn.AutoFit
    Columns(Colonne$).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range(Colonne$ & "1").Select
    Application.CutCopyMode = False
    Columns("G:G").Select ' Comment mettre cela avec la variable Colonne$ + 1 à droite soit G ?
    Selection.EntireColumn.Hidden = True

End Sub

Selection.AutoFill Destination:=Range("F2:F1000") ' Comment mettre cela avec la variable Colonne$ ?

Columns("G:G").Select ' Comment mettre cela avec la variable Colonne$ + 1 à droite soit G ?

D'avance merci.
a+
Dominique

 

[WDAndCo]

Re : Remplacement automatique entre deux classeurs.

Bonsoir le forum

Pas de solutions ?

 

[Bebere]

Re : Remplacement automatique entre deux classeurs.

bonsoir WdandCo,Laurent
voilà une solution
patience mon ami en plus tu me donnes soif