Bonjour à tous,
j'ai écris cette macro, qui fonctionne seulement elle est pas optimale vu qu'elle consomme un temps fou pour obtenir le résultat.
en fait j'ai deux feuilles "feuil1" et "feuil2" ---> ce que je cherche à faire c'est de chercher l'équivalent de chaque cellule de la colonne C de la feuille 1 dans la colonne B de la feuille 2 ---> une fois trouvé il doit m'afficher le contenu de la cellule de la colonne C de la feuille 2 dans la colonne CV de la feuille 1.
en fait une recherchev fait l'affaire seulement je veux pas faire du Recherchev.
ex:
feuille1......................feuille 2
colonne B...................colonne B...............colonne C
A...............................A.........................Toto
B...............................G.........................Tata
C...............................C .........................Titi
D...............................D..........................Bla
.................................B..........................Mami
mon résultat est:
feuille1
colonne B........................................colonne CV
A...................................................Toto
B....................................................Mami
C....................................................Titi
D....................................................Bla
je crois que le fait de boucler avec une boucle do...loop n'est pas optimal.
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 Sub Externe() For j = 0 To Cells(65536, 3).End(xlUp).Row - Cells(1, 3).Row k = 0 Do While Not (Worksheets("Feuil2").Cells(k + 2, 2) = Worksheets("Feuil1").Cells(j + 2, 3) _ Or IsEmpty(Worksheets("Feuil2").Cells(k + 2, 2))) k = k + 1 Loop Worksheets("Feuil1").Cells(j + 2, 100) = Worksheets("Feuil2").Cells(k + 2, 3) Next End Sub
peut être qu'il faut passer par des variables tableau???
Merci
Partager