RechercheV

Bonjour à tous,

Je suis débutante sur vba et je rencontre un problème. En effet je souhaite réaliser une formule qui me permet de faire une recherchev. J'ai réaliser une recherche avec le code suivant :

Sub rechercher()

With ActiveSheet

.Range("B12").Value = Application.VLookup(.Range("A12").Value, Sheets("Catalogue").Range("A2:B100"), 2, False)

End With

End Sub

Ce dernier fonctionne mais je ne parviens pas à tirer la formule lorsque je rajoute de nouvelle référence.

Je serais ravie que quelqu'un puisse m'aider

Bonjour,

est ce que ça vaut le coup de créer une macro pour inscrire une formule dans une seule cellule ?

Le code telle qu'il est écrit va mettre en B12 le résultat du VlookUp et non une formule.

Pour inscrire une formule en B12 utiliser, par exemple:

With ActiveSheet
.Range("B12").Formula = "=VLookup(A12, Feuil4!A2:B100, 2, False)"
End With

Tant qu'à faire une macro pour écrire cette formule, on peut y incorporer le code pour "tirer" cette formule vers le bas

    .Range("B12").AutoFill Destination:=Range("B12:B45"), Type:=xlFillDefault

à rajouter avant le End With, et en adaptant la plage destination de la formule

A+

Merci beaucoup AlgoPlus c'est exactement ce que je souhaitais faire.