Problème VBA - code pour équivalence rechercheV

Version imprimable

Bonjour,

Je souhaite effectuer une équivalence rechercheV dans mon code

Mais le code ne fonctionne visiblement pas au niveau ou je définis ma plage de recherche :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    ' equivalent recherche v pour remplir les données qui sont dans la base securisee
    Valeur_Cherchee = Provenance
    PlageDeRecherche = Sheets("Base sécurisée").Range("A1:A99999")
    Trouve = PlageDeRecherche.Find(what:=Provenance, LookAt:=xlWhole)
    oidSite = Trouve.Offset(0, 2).Value
    libelleSite = Trouve.Offset(0, 3).Value
    libelleProvenance = Trouve.Offset(0, 1)
    TauxCommissionMAP = Trouve.Offset(0, 15)
    Typedevente = Trouve.Offset(0, 7)
    PrivePublic = Trouve.Offset(0, 9)
    Responsabledecompte = Trouve.Offset(0, 5)
    PremiereSign = Trouve.Offset(0, 10)

Avez vous une idée du problème ?

Merci

30/09/2019, 11h09
Menhir

Citation:

Envoyé par PaulineGUEDE

Je souhaite effectuer une équivalence rechercheV dans mon code

Pourquoi ne pas tout simplement utiliser la fonction RECHERCHEV() dans ton code avec un Evalate ou un WorksheetFunction ?

Code:

Res = WorksheetFunction.VLOOKUP(....
30/09/2019, 11h11
PaulineGUEDE

Je cherche à éviter cette solution justement car vu le volume de mon fichier, elle ralentit considérablement la vitesse d’exécution de la macro
30/09/2019, 11h13
Menhir

Ce n'est pas en enchainant une dizaine de fonctions et de méthodes que tu vas améliorer la vitesse.
30/09/2019, 11h16
PaulineGUEDE

Cette solution ne fait qu'écrire une fonction recherche v dans les cellules en question... ce n'est pas ce que je recherche
30/09/2019, 11h56
Menhir

Citation:

Envoyé par PaulineGUEDE

Cette solution ne fait qu'écrire une fonction recherche v dans les cellules en question...

Non, cette solution n'écrit pas la fonction RECHERCHEV dans les cellules, elle transmets directement le résultat de cette fonction à une variable (ou n'importe quoi d'autre pouvant recevoir une valeur).

Pour mettre une fonction dans une cellule, on n'utilise pas WorksheetFunction mais la propriété Formula de la cellule.

1 pièce(s) jointe(s)

Salut.

L'utilisation de RECHERCHEV pour récupérer plusieurs colonnes n'est pas idéale car elle impose d'effectuer la recherche pour chaque colonne dont il faut récupérer la valeur. Si c'est acceptable sur des petits tableaux et pour peu de colonnes, c'est impossible pour de plus gros tableaux et/ou beaucoup de colonnes...

Tu pourrais, en Excel, travailler avec EQUIV qui renvoie la position (la ligne, en quelque sorte) de la valeur que tu cherches, puis utiliser Index pour renvoyer une valeur qui se trouve sur la même ligne dans une autre colonne. La colonne supplémentaire pour EQUIV permet de n'effectuer la recherche qu'une seule fois, là où RECHERCHEV va imposer d'effectuer la recherche pour chacune des colonnes dont il faut récupérer la valeur. Ca peut s'effectuer en Excel ou en VBA.

En VBA, tu pourrais utiliser MATCH (EQUIV) pour trouver la position, puis récupérer les valeurs des colonnes en utilisant la position comme index de la cellule pour chaque colonne concernée (ici sur base d'un tableau structuré appelé t_Contacts)
Code:

1 2 3 4 5 6 7 8 9 Sub RetrieveDatas() Dim id As Long Dim Pos As Long id = 48 Pos = Application.Match(id, Range("t_Contacts[ID]"), 0) Range("e1").Value = Range("t_Contacts[Prénom]")(Pos).Value Range("f1").Value = Range("t_Contacts[Nom]")(Pos).Value End Sub
Pièce jointe 506542

NB: En fonction de ta version d'Excel et si c'est pour récupérer dans Excel, tu pourrais avantageusement utiliser Power Query!

NB 2: J'utilise aussi peu que possible (c'est-à-dire jamais) FIND... J'ai de très gros doutes sur la fiabilité de ce machin.

30/09/2019, 13h22
Ewen91

Salut

Bonjour,
votre sujet m'intéresse car j'essaie de créer une macro qui selectionne une cellule, et essayes de chercher si le texte contenu dans cette cellule est également contenu dans un autre fichier dans une colonne spécifique,
et si oui, faire de même avec la ville pour ainsi trouver une ligne en commun. Je pense que je pourrais partir de ton code afin dde l'améliorer, mais n'ayant que des très faibles connaissances en VBA, je ne sais pas trop par où commencer.( Si correspondance il y a, il faudrait mettre une cellule choisis de la ligne en VERT, sinon Rouge)
J'imagine déjà la structure du code avec une boucle for ainsi que deux IF implémenter mais je ne connais pas le voc propre à VBA.
En esperant un petit peu d'aides,
bien cordialement

Bonjour à tous,

voici ton code un peu corrigé:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Dim PlageDeRecherche As Range, Trouve As Range
 
    ' equivalent recherche v pour remplir les données qui sont dans la base securisee
    Valeur_Cherchee = Provenance
 
    Set PlageDeRecherche = Sheets("Base sécurisée").Range("A1:A99999")
 
 
    Set Trouve = PlageDeRecherche.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
 
If Not Trouve Is Nothing Then
        oidSite = Trouve.Offset(0, 2).Value
        libelleSite = Trouve.Offset(0, 3).Value
        libelleProvenance = Trouve.Offset(0, 1)
        TauxCommissionMAP = Trouve.Offset(0, 15)
        Typedevente = Trouve.Offset(0, 7)
        PrivePublic = Trouve.Offset(0, 9)
        Responsabledecompte = Trouve.Offset(0, 5)
        PremiereSign = Trouve.Offset(0, 10)
    End If