[XL-2007] recherchev (vlookup) dans une autre sheet

[assiec]

Bonjour à tous,

j'utilise cette simple fonction de recherche verticale dans une worksheet (cellule H3).

ActiveSheet.Cells(3, 8).Value = WorksheetFunction.VLookup(ActiveSheet.Cells(3, 7).Value, Range("A1:B2"), 2, False)

Question 1: Pourquoi si je mets "G3" pour la valeur cherchée mon code ne fonctionne pas?

Code :

1
2
3
ActiveSheet.Cells(3, 8).Value --> retour de la vlookup
ActiveSheet.Cells(3, 7).Value--> valeur cherchée
Range("A1:B2")--> plage de recheche dans la feuille

Question 2: comment affecter la plage de recherche a une autre feuille ?

Code :

Worksheets("feuil1").range("A1:B2")

?

Merci par avance.

[jfontaine]

Bonjour,

Question 2: comment affecter la plage de recherche a une autre feuille ?
Worksheets("feuil1").range("A1:B2") ?

oui, c'est bien comme cela

Code :

ActiveSheet.Cells(3, 8).Value = WorksheetFunction.VLookup(ActiveSheet.Cells(3, 7).Value,Worksheets("feuil1").Range("A1:B2"), 2, False)

[assiec]

Ben ca ne fonctionne pas, je comprends pas:

Erreur d'exécution '-2147417848 (80010108)':

La méthode 'Range' de l'objet '_Worksheet' a échoué

[jfontaine]

Post la ligne complete

[assiec]

Code :

1
2
3
4
5
Sub worksheet_change(ByVal Target As Range)
 
ActiveSheet.Cells(3, 8).Value = WorksheetFunction.VLookup(ActiveSheet.Cells(3, 7).Value, Worksheets("Feuil2").Range("A1:B2"), 2, False)
 
End Sub

Je change la valeur G7, la macro trouve bien la valeur dans la feuille 2 car il rempli H7 mais desuite après j'ai le message d'erreur cité plus haut plus excel plante et se ferme.

Merci

[jfontaine]

Pourquoi parles tu de F7 et H7 alors que le code est sur la ligne 3?

Pourquoi mettre ce code dans l’évènement Change ? car dans ton cas, a chaque modif de n'importe quelle cellule, le vlookup tourne 2 fois

[assiec]

Pardon F3 et H3 autant pour moi.

Pourquoi le vlookup tourne 2 fois?

[jfontaine]

la première fois lors de la modification d'une cellule.
La deuxième fois alors de la modif e la cellule H3 lors de lu premier passage

Une solution est de faire le vlookup uniquement si la colonne du target est égal à G

[assiec]

J'ai résolu une problématique en rajoutant le If Target.Address("$G$3") <> "" Then

Code :

1
2
3
4
5
6
7
Private Sub worksheet_change(ByVal Target As Range)
If Target.Address("$G$3") <> "" Then
With ActiveSheet
    .Cells(3, 8).Value = Application.VLookup(.Cells(3, 7).Value, Worksheets("FA").Range("E4:F15"), 2, False)
End With
End If
End Sub

Puis-je faire ce vlookup dans d'autres sheets (avec le nom commencant par FA)?

Merci