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.

Bonjour,
si les lettres correspondent à leur numéros, essayes ce code

Code:

---

1 2 3 4 5 6

Sub essai() Dim x As Integer For x = 1 To Range("a" & Rows.Count).End(xlUp).Row Range("b" & x).Value = Range(Range("a" & x).Value & x).Column Next x End Sub

---

Bonjour,
Pas certain d'avoir compris ce que tu veux mais pour utiliser Vlookup dans VBA, voici un exemple:

Code:

---

i = Application.VLookup("B", Sheets("donnée").Range("A1:B7"), 2, False)

---

A+

Citation:

---

Envoyé par casefayere

Bonjour,
si les lettres correspondent à leur numéros, essayes ce code

Code:

---

1 2 3 4 5 6

Sub essai() Dim x As Integer For x = 1 To Range("a" & Rows.Count).End(xlUp).Row Range("b" & x).Value = Range(Range("a" & x).Value & x).Column Next x End Sub

---

---

merci pour ce code mais cela ne correspond pas exactement à ce que je recherche car si je modifie le chiffre correspondant à la lettre dans la feuille "donnée", la modification n'est pas prise en compte dans la macro.

Je ne sais pas trop comment m'en sortir.

Merci d'avance

essaies ce code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub essai() Dim plage As Range, ch As Range, x As Integer, dl As Integer With Sheets("donnée") dl = .Range("a" & .Rows.Count).End(xlUp).Row Set plage = .Range("a1:b" & dl) For x = 1 To Sheets("résultat").Range("a" & Sheets("résultat").Rows.Count).End(xlUp).Row Set ch = plage.Find(Sheets("résultat").Range("a" & x)) If Not ch Is Nothing Then Sheets("résultat").Range("b" & x) = .Range("b" & ch.Row) End If Next x End With End Sub

---

Merci pour vos réponses, c'est exactement ce que je voulais.

Bonne journée