Discussion :

[PaulineGUEDE]

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 :

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

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

[Menhir]

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 :

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

Res = WorksheetFunction.VLOOKUP(....

[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

[Menhir]

Ce n'est pas en enchainant une dizaine de fonctions et de méthodes que tu vas améliorer la vitesse.

[PaulineGUEDE]

Cette solution ne fait qu'écrire une fonction recherche v dans les cellules en question... ce n'est pas ce que je recherche

[Menhir]

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.

[Pierre Fauconnier]

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 :

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

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

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.

[Ewen91]

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

[rvtoulon]

Bonjour à tous,

voici ton code un peu corrigé:

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