Recherche VBA

merci de m'aide de trouver la solution de copie des valeur de sheet2 dans un tableau dans le sheet1 a condition les ordre des numéro

vous trouve ce joint le fichier affecte

Bonjour,

une solution avec des formules excel

merci mais je besoin un solution avec VBA

Bonjour,

solution via vba

Sub recherchevba()
    Set ws1 = Worksheets("feuil1")
    Set ws2 = Worksheets("feuil2")
    dl2 = ws2.Range("A" & Rows.Count).End(xlUp).Row
    i = 2
    While ws1.Cells(i, 1) <> ""
        Set re = ws2.Range("A2:A" & dl2).Find(ws1.Cells(i, 1), lookat:=xlWhole)
        If Not re Is Nothing Then
            ws2.Range("B" & re.Row & ":D" & re.Row).Copy ws1.Range("B" & i)
            ws1.Range("V" & i) = ws2.Range("E" & re.Row)
        End If
        i = i + 1
    Wend
    Set ws1 = Nothing
    Set ws2 = Nothing

End Sub

merci bien vous été incroyable

dsl de dérangement mais je besoin de ajouter cette formule dans le tableau suivant

ce vous avis crée la référence dans range A1 sheet1 est afichier les donner de chaque référence par ordre des numéro

merci

désolé,

mais j'ai rien compris de ce que tu demandes de faire avec référence ?

mettre un exemple dans le fichier, s'il te plait !

exemple reference 84J0112

Bonjour,

merci pour cet exemple, ai-je bien compris qu'il faut un tableau par référence ?

le fichier adapté en fonction de ce que j'ai compris

merci . vous été presque me je voudrai :

Chaque fois que vous tapez la référence dans range A1 sheet "modèle"

les donner de tableau en bas est changer suit les donnes de tableau dans sheet "reference"

et merci beaucoup et dsl une autre fois

Bonsoir,

une nouvelle version

bonjour

dsl mais j'ai pas encore arrivé a réaliser cette formule

j'ai tapez la référence dans A1 sheet "exemple" et j'ai pas trouve les donner de cette référence dans le tableau 1 en bas

merci

Bonjour,

Quand on a une référence non trouvée, la procédure ne fonctionne plus. l'erreur est corrigée.

cette fonction est m'aide à mon travail pour chercher les donner à chaque référence j'ai obligé de trier par 1 pour ce je besoin cette formule . je besoin .

Quand on a tape une référence valider les donner de cette référence et affiche dans le tableau en bas

vous trouver les donnes de touts les référence dans sheet "reference"

merci

désolé, j'ai rien compris.

if easier for you, you can write your message in english, but via private message (MP button)

exemple 2