Recherchev en langage VBA

Bonjour,

j'aimerais la manipulation pour transcrire un "recherchev" en macro VBA.

Je sais que l'on peut faire cela avec vlookup mais je n'arrive pas à écrire le code.

Idem en passant par une boucle.

Dans le fichier ci joint, il fait un recherchev sur la lettre et en fonction de la lettre, j'y affecte un chiffre.

J'aimerais traduire cette formule en macro VBA en utilisant la notion de vlookup ou en passant par une boucle.

je vous remercie par avance pour votre aide.

https://www.excel-pratique.com/~files/doc2/atUEuClasseur1.xls

Bonjour,

Voici le code VBA à mettre dans la feuille Feuil1 :

Private Sub Worksheet_Change(ByVal Target As Range)
    Range("B" & Target.Row).Formula = "=VLOOKUP(A" & Target.Row & ",donnée!A:B,2,0)"
End Sub

J'espère que cela correspond à ta demande.

merci readi,

Je pense que le code doit fonctionner mais je n'arrive pas à faire fonctionner la macro.

Excel me demande à chaque fois de creer une nouvelle macro.

J'ai du oublier une ligne de code car il m'indique "Objet requis". je ne sais pas ce que je dois ajouter comme code

merci d'avance

re,

Peux-tu joindre ton fichier pour que je regarde ?

Merci

Bonjour Readi,

J'ai joint le fichier en copiant le code que tu m'as donné hier.

Merci d'avance

https://www.excel-pratique.com/~files/doc2/DKbP3Classeur1.xls

Bonjour,

Chez moi, cela fnctionne parfaitement.

Peux-tu décrire ce que tu fais exactement comme manipulation pour avoir ce message ?

Merci

Bonjour,

Je fais un copier - coller du code dans "module1" de l'environnement "visual Basic" et lorsque que je lance la macro, j'ai une fenetre qui s'ouvre me demander de créer la macro.

IL y a quelque chose que je n'ai pas crompris peut être dans le collier coller.

Merci d'avance

re,

Ce code ne doit pas être mis dans un module mais dans la feuille Feuil1 (Résultar).

Il faut supprimer le code mis dans Module1 et le placer comme indiqué.

Peux-tu refaire un essai ?

Merci

J'ai essayé la manipulation que tu m'indiques ci dessous

Mais dès que je veux lencer la macro (F5) , j'ai la fenêtre des macros qui s'affiiche

https://www.excel-pratique.com/~files/doc2/Copie_de_DKbP3Classeur1.xls

Je t'ai remis le fichier avec le code que tu m'as indiqué dans la feuille Feuil1 (résultar)

Merci pour ton aide

re,

Tu n'as pas besoin d'appuyer sur la touche F5.

Dès que tu saisis une donnée dans la colonne A, la formule se met automatiquement dans la colonne B.

Par contre, je te redonne une version de la procédure pour que seule la saisie en colonne A enregistre la formule en colonne B.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Range("B" & Target.Row).Formula = "=VLOOKUP(A" & Target.Row & ",donnée!A:B,2,0)"
    End If
End Sub

OK d'accord j'ai compris

Désolé, je ne suis débutant en VBA et je ne connaissais pas cette manipulation.

Encore merci pour ton aide.