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