Fonction Recherche avec variables

[Pierre]

Bonjour à tous,

Je n'arrive pas à faire prendre en compte mes 2 variables dans la fonction recherche suivante:
Rech = '=LOOKUP(Varia,Plage)'
Varia = Valeur de la plage 'Ini'
Plage = Plage des données
Ci dessous ma procédure

Sub Recherche()

Dim Varia As Variant
Dim Plage As Range

'***********Nombre de ligne
L = Sheets('Table').Range('G65536').End(xlUp).Row 'définit la variable L
If L = 1 Then Exit Sub
NBRlign = L - 1

' *************Plage de données

Set Plage = Sheets('Table').Range('G5:G' & L)
Sheets('Feuil1').Select
Range('A13').Select
ActiveCell.FormulaR1C1 = NBRlign

'************Recherche Type
Varia = Range('Ini').Value

Range('A14').Select
ActiveCell.FormulaR1C1 = Varia

Rech = '=LOOKUP(Varia,Plage)'
Range('A11').Select
ActiveCell.FormulaR1C1 = Rech
End Sub

Merci d'avance pour vos solutions

Cordialement au Forum
Pierre

 

[MichelXld]

bonjour Pierre

j'espere que cette adaptation pourra t'aider

Sub Recherche_V02()
Dim Varia As Variant
Dim Plage As String, Rech As String
Dim L As Integer, NBRlign As Integer

'***********Nombre de ligne
L = Sheets('Table').Range('G65536').End(xlUp).Row 'définit la variable L
If L = 1 Then Exit Sub
NBRlign = L - 1

' *************Plage de données
Plage = Sheets('Table').Range('G5:G' & L).Address
Sheets('Feuil1').Range('A13') = NBRlign

'************Recherche Type
Varia = Sheets('Feuil1').Range('Ini').Value
Sheets('Feuil1').Range('A14') = Varia

Rech = '=LOOKUP(' & Varia & ',Table!' & Plage & ')'
Sheets('Feuil1').Range('A11').Formula = Rech
End Sub


bonne journée
MichelXld