Copier coller cellules avec valeur de référence

Bonjour à tous,

Je suis encore débutant en VBA et j'ai dû mal à réaliser une macro me permettant de réaliser la chose suivante :

j'ai des valeurs de référence en colonne A sur mon feuillet 1 et mon feuillet 2.

Si une cellule de la colonne A feuillet 1 correspond à une cellule de la colonne A feuillet 2, je souhaite copier coller la valeur correspondante en colonne B dans une colonne C du feuillet 2.

Dans mon exemple les données présentes en colonne A sont dans le même ordre dans le 2 feuillets mais bien évidemment dans le fichier réel, ce n'est pas le cas et j'ai plusieurs feuillets dans lesquels je dois copier coller les données par la suite. Si je comprends le principe c'est l'essentiel.

Voici mon tableur excel, je précise que j'ai essayé de m'appuyer sur un enregistrement de macro puis de débuter une macro sans succès

En vous remerciant pour votre aide,

7test-v1.xlsx (12.74 Ko)

Bonjour,

Il n'est pas nécessaire d'utiliser du VBA un Index Equiv devrait suffire.

Cordialement.

15test-v1.xlsx (16.26 Ko)

Salut Cambino,

Salut Zebulon,

une solution VBA...

Le code est dans le module de 'BASE'.

Un double-clic sur 'BASE' [B1] démarre la macro.

If Not Intersect(Target, Range("B1")) Is Nothing Then
    Set sWk = Worksheets("LOCAL")
    iRow = Range("A" & Rows.Count).End(xlUp).Row
    tTab1 = Range("A2:B" & iRow).Value
    With sWk
        iRow = .Range("A" & .Rows.Count).End(xlUp).Row
        tTab2 = .Range("A2:C" & iRow).Value
        For x = 1 To UBound(tTab1, 1)
            For y = 1 To UBound(tTab2, 1)
                If tTab2(y, 1) = tTab1(x, 1) Then
                    tTab2(y, 3) = tTab1(x, 2)
                    Exit For
                End If
            Next
        Next
        .Range("A2").Resize(UBound(tTab2, 1), 3).Value = tTab2
        .Activate
    End With
End If

Tu peux développer tes besoins en terme de copie ?

A+

10cambino.xlsm (24.60 Ko)
Rechercher des sujets similaires à "copier coller valeur reference"