Discussion :

[polak7474]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[wilfried_42]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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