Bonjour!
 
J'ai un fichier avec 3 feuilles. je fais une boucle qui pour chaque cellules de la colonne 5 de la feuille 1, cherche une correspondance dans la colonne 5 de la feuille 2. Si on trouve une correspondance, on copie/colle la ligne de la feuille 1 dans la feuille 3.
 
Afin de faciliter les recherches des lignes après l'execution de la macro, j'ai rajouté deux colonnes à mon tableau qui contiennent le numéro de la ligne de la feuille 1, et le numéro de la ligne correspondante dans la feuille 2.
 
voici mon code :  

 
Le "Cells(k, 11).Value = i" fonctionne correctement, et m'indique bien le numéro de ma ligne de la feuille 1.
Par contre, le "Cells(k, 12).Value = j" ne marche pas, et m'indique constamment 768, qui correspond à la valeur de ligneMaxSh2 ...
 
une idée?
 
merci  

j'ai pourtant arreté ma macro en pleine exécution afin de vérifier dans le code les valeurs de mes variables, et dans mon If, le compteur j n'a pas pour valeur 768 ...

Juste comme ça sans avoir regardé en détail le code, pourquoi tu as pas utilisé la fonction Excel VLOOKUP (ou RECHERCHEV en français) ? J'ai l'impression que ça fait exactement ce que tu veux et ça t'aurait évité de coder.

euh... parce que je n'ai jamais utilisé cette fonction
je vais essayer

je dois faire dans ma boucle For i :  

 
?
 
mais comment je peux faire pour mes compteurs? pour vérifier s'il a trouvé quelquechose?

Si tu utilises cette fonction (regarde comment ça marche, ya pas mal de sites qui expliquent), elle renvoie la valeur #N/A dans le cas où aucune ligne n'a été trouvé.
Du coup pas besoin de compteur ni même de code en macro, t'aurais une formule du genre IF(ISNA(VLOOKUP(...))) dans ta Sheet3.
 
C'est une fonction extrêmement utile et très puissante d'Excel. Je recommanderais de regarder comment ça fonctionne.

ok merci je vais voir ça

Ca doit être une formule du genre :
=IF(ISNA(VLOOKUP(Sheet2!A1:A5;Sheet1!$A$1:$B$5;2;FALSE));"Pas trouvé !";"Trouvé !" )
à appliquer dans les cellules de ta Sheet3

 
je dois ajouter une référence pour utiliser VlookUp? (Excel 2002)

Ce que tu viens d'écrire renvoie Pas trouvé  ou trouvé c'est ça?  
est-ce que tu pourrais détailler ta ligne?
je comprends l'utilisation de VlookUp, mais les ; après je ne sais pas...

et le IF(ISNA(vlookup) ...
ISNA correspond à ce qu'a renvoyé vlookup?
genre : Si la fonction vlookup n'a rien trouvé (ISNA) alors ...
 
?

 
Oui le N/A c'est le retour du VLOOKUP. Dans ton cas tu cherches en colonne 5 c'est ça ?
Du coup ça donnerait :
 
=IF(ISNA(VLOOKUP(Sheet2!E1:E65536;Sheet1!$A$1:$E$65536;5;FALSE));"Pas trouvé !";"Trouvé !" )  
 
(colonne 5 dans le tableau Sheet1!$A$1:$E$65536, colonne E dans la Sheet2).
 
Ensuite le ISNA, si vrai retourne "Pas trouvé", sinon retourne "Trouvé". Mais si tu veux tu peux retourner la ligne en question à la place.

 
Le code que je t'ai donné n'est pas un code de Macro. C'est une formule à appliquer directement aux cellules de ta Sheet3. Je pense que tu n'as pas besoin de code VB dans le cas présent.

 
En fait, mon but, est qu'à l'ouverture d'un certain fichier, ces actions s'effectuent automatiquement, afin de permettre un gain de temps non négligeable. C'est pour cela que je fais une macro. Mon programme principal est dans le Workbook_Open, afin de s'exéctuer lors de l'ouverture du fichier, puis il appelle cette fonction.

 
A ce moment là la partie importante c'est le VLookup. Le ISNA n'est là que pour pouvoir exploiter le résultat. Essaye de coder ta macro en utilisant VLookup seulement, pour voir si tu as aussi un problème de références.

En fait, si une donnée de la feuille 1 est également dans la feuille 2, c'est une donnée sensible, et je dois donc récupérer la ligne de cette donnée pour la mettre en feuille 3, et répertorier le numéro de la ligne de cette donnée en feuille 1 et en feuille 2 afin de les mettre en feuille 3...

Je vais essayer de modifier mon code

Essaye la fonction Match dans ce cas, ça permet de renvoyer le numéro de ligne.

pour Match, il me met le même message d'erreur que pour VlookUp, "sub ou function non définie" ...

Essaye de préfixer avec genre :
 
Application.Match  
Application.WorksheetFunction.Vlookup

j'ai mis  

 
et ça me donne :  
"Impossible de lire la propriété VLookUp de la classe WorkSheetFunction"  
 
...

Copie/colle l'erreur dans google ya plusieurs solutions, notamment une sur ce même forum :
 
http://forum.hardware.fr/hfr/Progr [...] 9417_1.htm
http://www.commentcamarche.net/for [...] p-vba-2003

le vlookup ne fonctionne que si la valeur à rechercher est dans la première colonne?

parce que moi c'est en colonne 5 dans les 2 feuilles

Non normalement tu passes l'index de la colonne à chercher en 3ème paramètre. En tout cas c'est comme ça que ça fonctionne en formule, en macro je ne sais pas mais j'imagine que c'est similaire.

Après, ma fonction initiale fonctionnait très bien, excepté le compteur j qui me retournait ligneMaxSh2, le copier/coller fonctionnait correctement, et ma macro trouvait les correspondances entre les 2 feuilles, et me les mettait en feuille 3... tu n'aurais pas une idée pour j?

http://forum.hardware.fr/hfr/Progr [...] 9417_1.htm
 
dans le lien que tu m'as donné, le problème était que la valeur qu'on recherchait n'était pas dans la première colonne.
ici, on recherche une valeur DE la 5ème colonne de la feuille 1 DANS la 5ème colonne de la feuille 2

 
Mmmh c'est assez difficile de débugger un cas comme ça en lisant le code. Essaye d'exécuter en pas-à-pas pour voir ce qui se passe dans ta boucle avec j.
Pour le VLookUp en VBA il doit y avoir moyen de le faire fonctionner, d'habitude je l'utilise en formule donc je sais pas. Tu peux ptet essayer avec Index(Match(,,0) si tu es bloqué sur ton premier code.

Merci beaucoup pour ton aide, je vais essayer

 
           Bonjour !   Comme cela à la louche (en ce moment je n'ai pas trop le temps), je crois bien déceler une erreur de conception
                           dans ton code de départ :   à quoi sert ta boucle j en ligne 22 ?
 
           Ensuite pour les lignes 25 à 32, c'est dommage (encore !) de travailler à coups d'horribles Activate / Select
           alors que c'est bien plus efficace de gérer directement les objets ‼
 

pour la boucle, effectivement, je me rends compte qu'elle est de trop merci
qu'entends-tu par "gérer directement les objets" ?
 
merci de m'accorder un peu de temps

et en fait, je viens de regarder un peu, la boucle j me permet de récupérer le numéro de la ligne de la feuille 2

 
ça, ça fonctionne

 
           Et oui avec un peu de réflexion !    
 
           Sinon en lisant l'aide par exemple de la méthode Copy (je n'invente rien …), avec l'existence de son argument Destination,
           tes six lignes n°4 à 9 de ton dernier code peuvent (doivent !) être remplacées par une seule, si si ‼

           En clair, voilà comment travailler efficacement avec les objets sans recourir aux affreux ralentisseurs  Activate  &  Select  !
 
           Quant aux lignes n°10 & 11, il faudrait alors y préciser leur feuille …

ok merci
je débute en vba, donc j'ai encore un peu de mal