Macro recherchev

Bonjour tout le monde,

J'ai crée une macro enregistrer me permettant de faire une RechercheV sur la colonne A de la feuille 1 (et l'afficher à partir de B2 en feuille2)

Malheuresment, si les lignes de la feuille 1 augmentent ma macro ne marche plus; je cherche donc une fonction me permettant de faire marcher ma macro peu importe le nombre de lignes présentes en feuille1

Voici ma macro enregistrée:

Sub CC()

Range("B2").Select

ActiveCell.FormulaR1C1 = _

"=VLOOKUP(Feuil1!RC[-1],Feuil1!RC[-1]:R[913]C[-1],1,FALSE)"

Range("B2").Select

Selection.AutoFill Destination:=Range("B2:B297")

Range("B2:B297").Select

Range("D3").Select

End Sub

Bonjour,

a tester :

Sub CC()

DerniereLigne = Range("A" & rows.count).end(xlup).row
Range("B2").FormulaR1C1 = _
"=VLOOKUP(Feuil1!RC[-1],Feuil1!RC[-1]:R[913]C[-1],1,FALSE)"
Range("B2")..AutoFill Destination:=Range("B2:B" & DerniereLigne )

Range("D3").Select

End Sub

RemBabar

Bonjour,

Non ça ne fonctionne pas

Si quelqu'un d''autre a une idee ?

Je sèche de mon côté

Merci

Avec ton fichier, la macro de Rembabar fonctionne chez moi pourtant

RemBabar a écrit :

Bonjour,

a tester :

Sub CC()

DerniereLigne = Range("A" & rows.count).end(xlup).row
Range("B2").FormulaR1C1 = _
"=VLOOKUP(Feuil1!RC[-1],Feuil1!RC[-1]:R[913]C[-1],1,FALSE)"
Range("B2")..AutoFill Destination:=Range("B2:B" & DerniereLigne )

Range("D3").Select

End Sub

RemBabar

Dis moi de quel ligne vient l'erreur si tu veux plus d'aide.. Un simple "ça ne marche pas" n'aide personne ..

Je viens de remarquer que j'ai oublier de supprimer un "." sur la ligne autofill, si le problème venait de cette ligne essaye :

Sub CC()
DerniereLigne = Range("A" & rows.count).end(xlup).row
Range("B2").FormulaR1C1 = _
"=VLOOKUP(Feuil1!RC[-1],Feuil1!RC[-1]:R[913]C[-1],1,FALSE)"
Range("B2").AutoFill Destination:=Range("B2:B" & DerniereLigne )
Range("D3").Select
End Sub

RemBabar

Bonjour,

J'avais remarqué ton oubli et lorsque je lance la macro j'ai uniquement le resultat de la rechercheV qui s'affiche en B2 mais je n'ai pas toute mes lignes de la colonne A en feuille1

Je souhaiterai visualiser d'un coup toutes mes lignes

En espérant avoir été clair

Merci

Re,

Excuse-moi, je crois que j'avais mal compris ta demande.. Test cela :

Sub CC()
DerniereLigne = Range("A" & rows.count).end(xlup).row
Range("B2").FormulaR1C1 ="=VLOOKUP(Feuil1!RC[-1],Feuil1!C[-1],1,FALSE)"
Range("B2").AutoFill Destination:=Range("B2:B" & DerniereLigne )
Range("D3").Select
End Sub

RemBabar

ton code marche. Le seul problème est qu'il me copie sur la feuill1, or je souhaietrai la copie sur la feuille2 (toujours à partir de colonne B2)

Essaye en rajoutant au début de ton code, un :

sheets("Feuil2").select

RemBabar

Merci beaucoup pour ton aide