VB excel fusionner feuille

Bonjour,
j'ai deux feuilles excel que je veux traiter afin d'en avoir une seul...
je m'explique voila un exemple

Feuille 2

id valeur1 valeur2
1 5466 5464
2 546 456
3 5464 5464
4 87 456
5 45678 87654


Feuille 1

id valeur etat valeur1 valeur2

22 bleu bon
30 rouge tres bon
1 vert bon
45 violet moyen
2 gris pas bon
3 vert excellent
4 jaune
5 noir

je veux recuperer les deux valeurs valeur1 et valeur2 pour les rentrer dans la feuille 1 suivant les ID.

dc en reflechissant un peu j'ai pondu cela

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim toto As Variant Dim i As longer Dim p As longer   For i = 2 To 350000 toto = Feuil1.Cells(i, 1) For p = 2 To 35000 If toto = Feuil2.Cells(p, 1) Then Feuil1.Cells(i, 5) = Feuil2.Cells(p, 2) Feuil1.Cells(i, 6) = Feuil2.Cells(p, 3) End If Next p Next i

---

cela marche tres bien mais le probleme c'est que cala prend enormement de temps car j'ai 350000 enregistrements.

es ce qu'il ya aurai une methode plus rapide... car 35 min c long

merci d'avance

Bonjour

Tu fais exactement 35000 * 35000 traitements, j'ai bien une idee qui donnerait 35000 * 3 traitements, mais tes id doivent (comme dans l'exemple) etre des entiers numeriques et inferieurs à 65536 (nombre maxi de ligne) sauf sur 2007

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

' la premiere feuille For i = 2 to 35000 sheets("Feuil3").range("A" & sheets("Feuil1").range("A" & i)) = Sheets("Feuil1").range("A" & i) sheets("Feuil3").range("B" & sheets("Feuil1").range("A" & i)) = Sheets("Feuil1").range("B" & i) sheets("Feuil3").range("C" & sheets("Feuil1").range("A" & i)) = Sheets("Feuil1").range("A" & i) Next i 'la deuxieme feuille For i = 2 to 35000 sheets("Feuil3").range("A" & sheets("Feuil2").range("A" & i)) = Sheets("Feuil1").range("A" & i) sheets("Feuil3").range("D" & sheets("Feuil2").range("A" & i)) = Sheets("Feuil1").range("B" & i) sheets("Feuil3").range("E" & sheets("Feuil2").range("A" & i)) = Sheets("Feuil1").range("A" & i) next i ' Boucle inversée pour supprimer les lignes vides For i = 35000 to 1 step -1 if sheets("Feuil3").range("A" & i) = "" then sheets("Feuil3").rows(i).delete end if next i

---

le but est d'utiliser l'id comme n° de ligne donc plus de recherche, on met à jour la ligne de l'id correspondant

Bonne soirée