Copie de colonne suivant une autre colonne

Bonjour,

Feuille 1 j'ai 2 colonnes 1A et 1B
Dans 1A j'ai des références produit
Dans 1B j'ai la désignation produit correspondante

Feuille 2 j'ai 2 colonnes 2A et 2B
Idem,
Dans 2A j'ai les références produit identique que 1A
Dans 2B c'est vide

Je souhaite remplir 2B suivant 1B

Pouvez-vous m'aider?

Merci d'avance

Bonsoir Moi753951,

Avec un exemple cela aurait été mieux.

Cordialement.

Bonjour Toi, bonjour le forum,

Une proposition :

Sub Macro1()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim DLS As Integer 'déclare la variable DLS (Dernière Ligne onglet Source)
Dim DLD As Integer 'déclare la variable DLD (Dernière Ligne onglet Destination)
Dim R As Range 'déclare la variable R (Recherche)
Dim I As Integer 'déclare la variable I (Incrément)

Set OS = Worksheets("Feuil1") 'définit l'onglet source OS
Set OD = Worksheets("Feuil2") 'définit l'onglet destination OD
DLS = OS.Cells(applicatoin.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DLS de la colonne A de l'onglet source OS
DLD = OD.Cells(applicatoin.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DLD de la colonne A de l'onglet destination OD
For I = 1 To DLD 'boucle sur toutes les lignes I de 1 à DLD
    Set R = OS.Columns(1).Find(OD.Cells(I, 1).Value, , xlValues, xlWhole) 'définit la recherche R (recherche la valeur entière de la cellule ligne I colonne 1 de l'onglet destination dans la colonne 1 de l'onglet source)
    If Not R Is Nothing Then OD.Cells(I, "B").Value = R.Offset(0, 1).Value: R = Nothing 's'il existe au moins une occurrence trouvée, renvoie dans la cellule en colonne B, la valeur de l'occurrence trouvée décalée d'une colonne à droite, vide la variable R
Next I 'prochaine ligne de la boucle
End Sub

[Édition]

Bonjour Zébulon, nos posts se sont croisés...

Bonjour à tous les deux et merci pour votre réactivité.
Il me semblait qu'il y avait uen méthode avec les menus sous excel...

Je vais vous mettre un exemple car j'ai pas saisi la PJ :-/

Re,

Même problématique, même réponse.

Cordialement.

Edit : Salut à toi ThauThème.

Ok mais c'est Tableau1 que je ne comprends pas.
Car mon fichier en réalité comprend bcps plus de référence et de colonne...

J'ai essayé de recopié ta formule sur mon fichier exemple voici le message d'erreur :

Re,

Tableau1 correspond à la plage A1 à B22 de la feuille 1.

C'est l'utilisation de la mise sous forme de tableau d'Excel.

Si tu ne t'en sort pas, envoie moi ton fichier.

Cordialement.