Bonjour,
Je travaille sur un classeur Excel 2010 qui comporte 3 feuilles.
Dans la première (Feuil1) j'ai un tableau avec plus de 6000 lignes,
Dans la seconde (Feuil2) j'ai un tableau avec plus de 10000 contacts,
la dernière feuille (Feuil3) va me servir de tableau temporaire.
Pour chaque ligne de la feuille 1, je dois chercher le contact correspondant dans la feuille 2 (pour ça j'utilise la fonction VBA "Find" sur un code en commun entre les 2 feuilles sur la colonne 1).
Le problème c'est que j'ai plusieurs contacts possible, et j'aimerai prendre la dernière occurrence que l'on puisse trouver.
Cependant avec la fonction Find je n'ai que la première valeur trouvée dans ma feuille 2.
Voici mon code :
Comment je peux faire pour trouver la dernière occurrence de contact?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 ligneCourante = ThisWorkbook.Worksheets("Feuil1").Columns(1).Cells.Find(valSearch, LookIn:=xlValues) If Not ligneCourante Is Nothing Then lastIdFeuil3 = ThisWorkbook.Worksheets("Feuil3").Range("A" & Rows.Count).End(xlUp).Row - 1 Set tmp_rowDest = ThisWorkbook.Worksheets("Feuil1").Rows(lastIdFeuil3 + 1) tmp_rowSource.Copy tmp_rowDest ThisWorkbook.Worksheets("Feuil3").Range("Z" & lastIdFeuil3 + 1).Value = ThisWorkbook.Worksheets("Feuil2").Cells(ligneDUT.Row, 6) End If
Merci d'avance de vos réponses.
Partager