Mise a jour une base de données

bonjour à tous,[*]

je chercher, dans le cadre de mes études, a réaliser un outil via le logiciel excel pour mettre à jour une base de données de prix.

j'ai un tableau (feuille 1) ou on peu y trouver tous les fruits disponibles (j'ai simplifié le tableau). C'est à dire 4 types de fruits pour cet exemple qui sont référencés par des numéros (1,2,3..).

Dans ma feuille 2, j'ai un retour de devis qui m'indique le prix de seulement 2 fruits.

Je cherche donc un moyen pour remplacer automatiquement les quantités et les prix présent dans la feuille 2, sur ma feuille 1. Tous ça par rapport au numéro référence indiqué dans la colonne 1.

Merci d'avance pour vos réponses !

Bonjour,

Option Base 1
Sub majdevis()

    Dim a, b, c()
    Dim i%, j%, n%
    a = Feuil1.[a1].CurrentRegion
    b = Feuil2.[a1].CurrentRegion

    ReDim c(UBound(a), 2)

    For j = 2 To UBound(a)
        For i = 2 To UBound(b)
            n = j - 1
            If a(j, 1) = b(i, 1) Then c(n, 1) = b(i, 4): c(n, 2) = b(i, 5): Exit For
            If a(j, 1) <> b(i, 1) Then c(n, 1) = a(j, 4): c(n, 2) = a(j, 5)
        Next
    Next

    Feuil1.[d2].Resize(UBound(c), 2) = c

End Sub

Salut Force rouge !

J'ai récupéré ton code pour l'implanter dans mon excel et...

Sa fonctionne parfaitement !

Merci pour ta réponse rapide et efficace !

De rien ! Et merci pour se retour !