WorksheetFunction.Vlookup : Choix variable de la plage (la feuille dépend du choix dans une cellule : H2)

Bonjour les amis,

J'ai un petit soucis sur lequel je creuse, je creuse... et maintenant que je n'ai plus de cheveux... j'ai regardé sur internet si je pouvais trouver la solution à mon problème, mais que nenni ...

Je dois faire une recherchev via la fonction VBA WorksheetFunction.Vlookup.

Ma base de données dépens d'un choix :
Pour le nom de la feuille : sur une liste variable en cellule H2
Le tableaux de données lui est toujours le même, G2:Z850

La valeur recherchée est sur la cellule "T2" de la feuille "Traitement_2"
La recherche doit se faire sur la feuille (choix) avec un range("G2:Z850"),
=> Choix = Sheets("Traitement-2").Range("H2").value (j'ai vérifié la valeur choix, correspondant bien au nom de la feuille où la recherchev doit aller)
Sur la 20 eme colonne
Valeur exacte

j'ai essayé avec Plage mais ca ne marche pas non plus

pouvez vous m'aidez s'il vous plait :)
par avance merci :)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Sub Trait() Sheets("Traitement_2").Select choix = Sheets("Traitement_2").Range("H2").Value Dim Plage as Range Set Plage = Sheets(Choix).Range("G3:Z853") If Range("AA2").Value = "FAUX" Then GoTo Choix_suivant Sheets("Traitement_2").Cells(2, "AB") = WorksheetFunction.VLookup(Range("T2"), Sheets(Choix).Range("G2:Z850"), 20, False) ' ne fonctionne pas Sheets("Traitement_2").Cells(2, "AB") = WorksheetFunction.VLookup(Range("T2"), Plage, 20, False) ' ne fonctionne pas Choix_suivant: ' ..... End Sub

Bonjour,

Votre principal problème vient du fait que vous cherchez à la colonne 20, alors que la plage de recherche va de la colonne G à Z, il faut compter le nombre de colonnes entre G et Z (G comprise), se qui fait un total de 14 et non 20.

Voici votre code réécrit,
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim Plage As Range Dim f1 As Worksheet, f2 As Worksheet Dim Choix As String Set f1 = Sheets("Traitement_2") Set f2 = Sheets("Choix") Choix = f1.Range("H2").Value Val_Cherchee = f1.Range("T2") Set Plage = f2.Range("G2:Z850") If f1.Range("AA2").Value = "FAUX" Then GoTo Choix_suivant f1.Cells(2, "AB") = WorksheetFunction.VLookup(Val_Cherchee, Plage, 14, 0) Choix_suivant:
Cdlt

Bonjour Arturo

Je te remercie pour ton idée, et je m'excuse pour mon erreur de débutant

Néanmoins

dans ta proposition excell m'indique une "erreur d'execution 9" sur

Code:

Set f2 = Sheets("Choix")

il n'y a pas de feuille "Choix"

"Choix" est une variable qui dépend d'un choix sur une liste (cellule H2 de la feuille Traitement_2) : Chacun de ces choix a une feuille dont le nom est parfaitement exact avec le choix
par exemple :
Prise_de_sang
Analyse_PdS
Scanner
Radio
Irm

pour mémoire , rappel de ton code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Dim Plage As Range Dim f1 As Worksheet, f2 As Worksheet Dim Choix As String Set f1 = Sheets("Traitement_2") Set f2 = Sheets("Choix") Choix = f1.Range("H2").Value Val_Cherchee = f1.Range("T2") Set Plage = f2.Range("G2:Z850") If f1.Range("AA2").Value = "FAUX" Then GoTo Choix_suivant f1.Cells(2, "AB") = WorksheetFunction.VLookup(Val_Cherchee, Plage, 14, 0)

Citation:

il n'y a pas de feuille "Choix"

Ah bon! et c'est quoi ça?

Code:

Set Plage = Sheets(Choix).Range("G3:Z853")

c'est bien vous qui l'avait mis dans la demande initiale, Non?

****************************************

Citation:

"Choix" est une variable qui dépend d'un choix sur une liste (cellule H2 de la feuille Traitement_2) : Chacun de ces choix a une feuille dont le nom est parfaitement exact avec le choix
par exemple :
Prise_de_sang
Analyse_PdS
Scanner
Radio
Irm

il fallait le préciser avant

Dans ce cas

Code:

set f2=sheets(range("H2").value)

Bonjour Arturo

"Erreur d'execution '1004' : Impossible de lire la propriété Vlookup de la classe WorksheetFunction"

sur la ligne :

Code:

f1.Cells(2, "AB") = WorksheetFunction.VLookup(Val_Cherchee, Plage, 14, 0)

voila le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
                    Sheets("Traitement_2").Select
'                    Choix = Sheets("Traitement_2").Range("H2").Value
 
                    Dim Plage As Range
                    Dim f1 As Worksheet, f2 As Worksheet
                    Dim Choix As String
 
                    Set f1 = Sheets("Traitement_2")
 
                    Choix = f1.Range("H2").Value
                    Set f2 = Sheets(Range("H2").Value)
 
 
                    Val_Cherchee = f1.Range("T2")
                    Set Plage = f2.Range("G2:Z850")
 
                    If f1.Range("AA2").Value = "FAUX" Then GoTo Choix_suivant
                    f1.Cells(2, "AB") = WorksheetFunction.VLookup(Val_Cherchee, Plage, 14, 0)
 
Choix_suivant:

les variables Val_Cherchee et Choix sont correctes

c'est pas simple.... merci pour ton aide

Bonjour,

Sachant qu'une formule est une chaîne de caractères, rien n'empêche une concaténation.
Ensuite, un collage spécial de valeur est toujours possible
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Option Explicit Public Sub essai_formule_a() With Worksheets("mafeuille") .Range("AB3").Formula = "=VLOOKUP(mafeuille!T2," & .Range("H2").Value & "!G2:Z850,14,FALSE)" With .Range("AB3") .Value = .Value End With End With End Sub
Mieux, la valeur peut directement, sans formulation, être retournée par la méthode Evaluate
Code:

1 2 3 4 5 6 7 8 9 Option Explicit Public Sub essai_formule_b() With Worksheets("mafeuille") .Range("AB3").Value = Evaluate("=VLOOKUP(mafeuille!T2," & .Range("H2").Value & "!G2:Z850,14,FALSE)") End With End Sub
Pour aboutir à ces codes.
Ecrire la formulation dans la feuille de travail Excel
Dans l'éditeur VBE, afficher la fenêtre Exécution (CTRL + G)
Dans celle-ci, écrire

Code:

?Worksheets("mafeuille").Range("AB2").Formula

(ne pas omettre "?")
Puis activer la touche "Entrée" du clavier
Ensuite, adapter la chaîne de caractères (formule) retournée

Citation:

=VLOOKUP(mafeuille!T2,lawks1!G2:Z850,14,FALSE)

Merci Marcel ,

je ne connaissais pas du tout la fonction Evaluation

Néanmoins

l'information sur H2 et les données du tableau sont sur deux feuilles totalement différentes.

j'ai la version 2019, je n'arrive pas à activer comme tu me le conseilles CTRL G depuis VBA

y'a t'il une option à installer s'il te plait ?

Bonjour,

Revoici le code, il fonctionne correctement

Code:

1
2
3
4
5
6
7
8
9
10
11
    Dim Plage As Range
    Dim f1 As Worksheet, f2 As Worksheet
    Dim Choix As String
    Set f1 = Sheets("Traitement_2")
    Choix = f1.Range("H2").Value
    Set f2 = Sheets(Choix)
    Val_Cherchee = f1.Range("T2")
    Set Plage = f2.Range("G2:Z850")
    If f1.Range("AA2").Value = "FAUX" Then GoTo Choix_suivant
    f1.Cells(2, "AB") = WorksheetFunction.VLookup(Val_Cherchee, Plage, 14, 0)
Choix_suivant:

Cdlt

Bonjour Barba,

Citation:

l'information sur H2 et les données du tableau sont sur deux feuilles totalement différentes.

Aucun problème. Il suffit d'adapter le code.
Dans mon exemple, le résultat est reporté dans la feuille "mafeuille" et les données sont issues des feuilles "lawks1" et "lawks2".
C'est l'un de ces 2 items qui est reporté en H2 de la feuille "mafeuille".
Autrement dit, la cellule "H2" retourne soit la valeur "lawks1", soit la valeur "lawks2".

Citation:

j'ai la version 2019, je n'arrive pas à activer comme tu me le conseilles CTRL G depuis VBA

y'a t'il une option à installer s'il te plait ?

A priori, non.
Je ne détiens pas la version 2019.
Dans l'éditeur VBE, tu peux sans doute activer le menu Affichage\Fenêtre Exécution.
Je ne peux que te conseiller ce processus pour pouvoir intégrer une formulation dans une procédure.