Discussion :

[choudoudou15]

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.

[casefayere]

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

Code :

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

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

[choudoudou15]

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

Code :

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

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

[casefayere]

essaies ce code

Code :

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

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

[Fvandermeulen]

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

Code :

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

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

A+

[choudoudou15]

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

Bonne journée