Copier des cellules dans une autre feuille (RecherchV) en VBA

Bonjour tout le monde,

Je souhaite remplir le tableau de la "feuil1" en fonction des données sur le "feuil2".

Si on sur A2 = afrique alors je veux que les prix soit importé de la feuil2 ou il ya sur A2 = afrique

voici le fichier ci-joint

Merci d'avance

Bonjour,

et pourquoi en vba alors qu'une simple formule dans la feuille1 suffit ?

Oui je sais qu'il y a la fonction recherchev sur excel mais moi je veux une macro svp

car c'est juste un exemple, il ya plein de pays a ajouté dans le fichier alors je veux une macro juste pour ce cas et apres c'est qui change le reste

merci d'avance

Bonjour Achraf2020,

En P.J. ton classeur complété par le code :

Private Sub CommandButton1_Click()
    Dim oSheetFrom As Worksheet, oSheetTo As Worksheet
    Dim oCible As Range, lRow As Long, i As Integer
    Dim oSource As Range

    Set oSheetFrom = ThisWorkbook.Worksheets("feuil2")
    Set oSheetTo = ThisWorkbook.Worksheets("feuil1")

    Set oSource = oSheetFrom.Columns(1)

    For Each oCible In oSheetTo.Range(oSheetTo.Cells(2, 1), oSheetTo.Cells(oSheetTo.UsedRange.Rows.Count, 1)).Cells
        lRow = WorksheetFunction.Match(oCible.Value, oSource, 0)
        If lRow > 0 Then
            'Si on trouve le continent, on recopie les 5 prix
            For i = 1 To 5
                oCible.Offset(, i + 1) = oSheetFrom.Cells(lRow, i + 1)
            Next
        End If
    Next
End Sub