P
Pierre
Guest
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
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