Boucle et recherchev

Bonjour,

J'aimerais comprendre la mécanique des boucles dans VBA.

J'ai créé un fichier Excel dans lequel je voudrai que les tâches suivantes soient effectuées:

> parcourir chaque valeur d'une liste (Feuil1)

> copier chaque valeur de cette liste dans un autre onglet (Feuil2)

> la copie de cette valeur dans un autre onglet (Feuil2) va générer une recherchev dans une cellule voisine (toujours en Feuil2)

> rappatrier la valeur issue de cette recherchev dans la cellule en face de la liste de valeur d'origine (Feuil1)

> faire la même chose avec la valeur suivante dans la liste d'origine

Pourriez vous svp m'aider à écrire ce code ?

Je mets en pièce jointe mon fichier Excel test.

Merci par avance

Romain

Bonjour,

à tester (en mode pas à pas)

Sub Essai()
tb1A = Sheets("Feuil1").Range("A7:A11").Value
tb1B = Sheets("Feuil1").Range("B7:B11").Value
tb2B = Sheets("Feuil2").Range("B3:B7").Value
tb2C = Sheets("Feuil2").Range("C3:C7").Value

For i = LBound(tb1A) To UBound(tb1A)
    n = Application.Match(tb1A(i, 1), tb2B, 0)
    tb1B(i, 1) = tb2C(n, 1)
Next i

Sheets("Feuil1").Range("B7").Resize(UBound(tb1B)) = tb1B
End Sub

Bonjour,

Merci pour votre réponse

Cependant, ce code ne me permet pas de l'appliquer à un fichier plus volumineux où la saisie d'une variable en A1 de la Feuil2 génère des calculs assez lourds.

J'aimerais vraiment qu'il s'agisse d'une itération de copier coller dans le code.

Sauriez vous le faire de cette façon ?

Merci par avance

re,

je n'avais pas utilisé la cellule A1 de la Feuil2,

voici la modification,

Sub Essai()
tb1A = Sheets("Feuil1").Range("A7:A11").Value
tb1B = Sheets("Feuil1").Range("B7:B11").Value
tb2B = Sheets("Feuil2").Range("B3:B7").Value
tb2C = Sheets("Feuil2").Range("C3:C7").Value

For i = LBound(tb1A) To UBound(tb1A)
    Sheets("Feuil2").Range("A1") = tb1A(i, 1)
        n = Application.Match(tb1A(i, 1), tb2B, 0)
        tb1B(i, 1) = tb2C(n, 1)
Next i

Sheets("Feuil1").Range("B7").Resize(UBound(tb1B)) = tb1B
End Sub