XL 2016 RECHERCHV VBA

[FURUKU]

Bonjour à tous,

J'aurais besoin d'aide pour écrire une recherchv en vba

Ma formule excel est celle ci:

=SIERREUR(RECHERCHEV(B1;Feuille - 1!A$1:AW$108;46;0);"0")

j'ai bien compris que pour faire référence à la feuille -1 on peut utiliser la fonction INDEX
j'aimerais afficher le résultat de la recherche en BG2

j'ai commencé cela dans VBA:

Sub recherchv()
Dim sht As Worksheet, rng As Range
Set sht = Worksheets(ActiveSheet.Index - 1)
Set rng = sht.Range("A1").CurrentRegion
ActiveSheet.Range("BG2").Formula = "=VLOOKUP( LA OU JE SÈCHE)
End Sub


quelqu’un pourrait il m'aider ?

 

[Dranreb]

Bonjour.
Essayez :

ActiveSheet.Range("BG2").Formula = "=IFERROR(VLOOKUP(B1," & Rng.Address(True, True, External:=True) & ",46,0);0)"

 

[FURUKU]

Bonjour,
Merci pour votre retour, malheureusement j'ai une erreur 1004 avec cette formule

 

[Dranreb]

Bonjour.
Oui ben déboguez, je ne peux pas le faire à votre place puisque vous n'avez pas joint de classeur.

 

[FURUKU]

Bonjour,
Merci après quelques test j'ai compris d’où venait le problème (range)

 

[Nébuleux]

Bonjour à tous,

J'aurais besoin d'aide pour écrire une recherchv en vba

Ma formule excel est celle ci:

=SIERREUR(RECHERCHEV(B1;Feuille - 1!A$1:AW$108;46;0);"0")

j'ai bien compris que pour faire référence à la feuille -1 on peut utiliser la fonction INDEX
j'aimerais afficher le résultat de la recherche en BG2

j'ai commencé cela dans VBA:

Sub recherchv()
Dim sht As Worksheet, rng As Range
Set sht = Worksheets(ActiveSheet.Index - 1)
Set rng = sht.Range("A1").CurrentRegion
ActiveSheet.Range("BG2").Formula = "=VLOOKUP( LA OU JE SÈCHE)
End Sub


quelqu’un pourrait il m'aider ?

Hello mets toi en mode enregistrement de macro tu auras la symntaxe Vba a améliorer ou coriiger eventuellement

 

[Nébuleux]

Hello mets toi en mode enregistrement de macro tu auras la syntaxe Vba a améliorer ou corriger éventuellement