Re-bonjour,
J'avais presque trouvé le code que vous me proposer. Merci ! (J'avais oublié le "derligne-ref")
Maintenant que la recherche est fonctionnelle, je voudrai copier les cellules qui sont sur la même ligne que colonne 2 en "Q:AH" et les coller a droite de colonne 3 en "AQ:BH" en fonction de la recherche.
Voila ce a quoi je pensais : Faire par rapport à la cellule active mais ce n'est pas terrible.. car si la cellule active n'est pas AQ2 ça ne marche pas
Sub essai()
derligne_doc = Range("B" & Rows.Count).End(xlUp).Row 'Grande Base
derligne_ref = Range("AI" & Rows.Count).End(xlUp).Row 'Petite Base
For i = 2 To derligne_ref
For Z = 2 To derligne_doc
If Range("B" & Z) = Range("AI" & i) Then
Range("AP" & Z) = Application.VLookup(Range("B" & Z), Range("AI2:AI" & derligne_ref), 1)
ActiveCell.Offset(0, -26).Resize(1, 19).Copy Destination:=ActiveCell.Offset(0, 1)
Z = derligne_doc
End If
Next Z
Next i
End Sub
Explication plus facile et plus claire sur le nouveau fichier Excel.
Mille merci