Comparaison 2 cellule

[Fred]

bonjour,

Apres 1/2h a essayer verbalement de de decrire ce que j'arrive pas a faire je vais le faire schematiquement :

J'ai deux onglet dans mon classeur :

1er Onglet :

/ A / B / C /
1 / 1 / 24 / popo /
2 / 2 / 48 / albert /
3 / 3 / 75 / vincent /
4 / 4 / 125/ fred /
5 / x / x / x /

2eme onglet :

/ A / B / C /
1 / 1 / / boite1 /
2 / 2 / / boite2 /
3 / 2 / / boite3 /
4 / 3 / / boite4 /
5 / 4 / / boite5 /
6 / 4 / / boite6 /
7 / 4 / / boite7 /
8 / 4 / / boite8 /
9 / 5 / / boite9 /
10/ etc / etc / boite(x) /

En fait je veux que dans la colonne B de mon 2eme onglet je retrouve le meme numéro associé a la colonne A de mon 1er onglet?

Toi me comprendre, moi pas beaucoup mais help me!!!!

Merci

 

[Robert]

Bonjour Fred, bonjour le forum,

Si j'ai bien compris ton problème et si tes onglets se nomme Feuil1 et Feuil2, cette macro devrait le résoudre (sinon adapte le nom des onglets dans le code) :

Sub Macro1()
Dim li1 As Long 'déclare la variable li1
Dim li2 As Long 'déclare la variable li2

'définit la variable li1 (dernière ligne éditée de la colonne A onglet 'Feuil1')
li1 = Sheets('Feuil1').Range('A65536').End(xlUp).Row

'définit la variable li2 (dernière ligne éditée de la colonne A onglet 'Feuil2')
li2 = Sheets('Feuil2').Range('A65536').End(xlUp).Row

'place en B1 la formule =Recherchev(A1;Feui1!A1:B_li1;2;Faux)
Range('B1').FormulaR1C1 = '=VLOOKUP(RC[-1],Feuil1!RC[-1]:R[' & li1 & ']C,2,FALSE)'
'recipie la formule de B1 à B_li2
Range('B1').AutoFill Destination:=Range('B1:B' & li2)
End Sub

En fait la formule En B1 =RECHERCHEV(A1;Feuil1!A:B;2;Faux) recopiée dans toute la colonne fonctionne aussi mais cette macro n'utilise que les cellules éditées.