Discussion :

[Barba]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ARTURO83]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Barba]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

  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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[ARTURO83]

il n'y a pas de feuille "Choix"

Ah bon! et c'est quoi ça?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

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

"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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Barba]

Bonjour Arturo

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

sur la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

voila le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MarcelG]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

?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

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