Discussion :

[Max_Mer]

Hello à tous,

Je suis nouveau dans l'utilisation et la programmation en VBA.
Ma demande est claire:

Je souhaiterai appliquer une rechercheV via une macro en VBA.
Je pense que Application.worksheetfunction peut convenir mais je n'arrive pas à l'adapter ...

En pièce jointe un fichier excel avec le résultat que je souhaite obtenir.
Les données a rapatrier en feuil1 sont en feuil2.
Il est evident que j'ai plus de 3 lignes dans le tableau et le nombre de lignes variera.

Merci d'avance pour votre aide.
En attendant vos réponses, je continue à chercher ;-)
Bien à vous,
Max_Mer
Classeur1.xlsm

[gaet76]

Bonjour,

Il faut que tu utilise la fonction ".find"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set ValeurCherche = Feuil2.Range("A2:A" & Feuil2.Range("A" & Rows.Count).nd(xlup).Row).Find(Feuil1.Range("A1").Value)
 
If Not ValeurCherche Is Nothing Then
Feuil1.Range("A2").Value = Feuil2.Cells(ValeurCherche.Row,2).Value
End If

A adapter selon quand tu déclenche la recherche (évenement, click sur bouton, ...?)

[Max_Mer]

Merci pour cette réponse.

Pour ma culture et pour mon apprentissage,
quel serait le code si je souhaite utiliser Worksheetfunction.Vlookup ?

(j'ai cru comprendre que cela était utilize pour la plupart des fonctions Excel, donc, je pense à l'avenir que je serai amené à l'utiliser)

Bien à toi,
Max_Mer