RechercheV table access

Y compris Power BI, Power Query et toute autre question en lien avec Excel
n
naubin1
Membre fidèle
Membre fidèle
Messages : 325
Inscrit le : 3 avril 2018
Version d'Excel : 2010

Message par naubin1 » 23 mai 2019, 12:04

Bonjour, j'aimerai savoir si c'est possible de faire l'équivalent de ça

Application.VLookup(Range("A7"), Range("V6:AE13"), 2, False)

comme ça:

Application.VLookup(Range("A7"), Matableaccess, 1, False)

?

cordialement
:btres:
Avatar du membre
78chris
Passionné d'Excel
Passionné d'Excel
Messages : 5'011
Appréciations reçues : 379
Inscrit le : 9 juillet 2017
Version d'Excel : 2010 à 2019 + 365

Message par 78chris » 23 mai 2019, 12:42

Bonjour

Non

Ceci peut sans doute t'aider http://www.excel-formations.fr/Trucs_astuces/ACCESS01.php
Chris
Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson.
Confucius
n
naubin1
Membre fidèle
Membre fidèle
Messages : 325
Inscrit le : 3 avril 2018
Version d'Excel : 2010

Message par naubin1 » 23 mai 2019, 12:44

Bonjour,

c'est ce que je pensais faire, mais je ne suis pas forcément fan des requêtes de ce genre, car je doute de la fiabilité de fréquence de mise a jour de la requete
:btres:
Avatar du membre
78chris
Passionné d'Excel
Passionné d'Excel
Messages : 5'011
Appréciations reçues : 379
Inscrit le : 9 juillet 2017
Version d'Excel : 2010 à 2019 + 365

Message par 78chris » 23 mai 2019, 14:36

RE

Une requête paramétrée s'exécute en temps réel avec le paramètre qu'on lui passe...

Sinon VBA
Chris
Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson.
Confucius
n
naubin1
Membre fidèle
Membre fidèle
Messages : 325
Inscrit le : 3 avril 2018
Version d'Excel : 2010

Message par naubin1 » 23 mai 2019, 15:37

sinon j'avais pensé à ça avec un recordset:
.
.
.
    rst.Open txt, cnx
      While Not rst.EOF
             For x = 30 To .Range("WZ30").End(xlDown).Row - 1
                If .Cells(x, 624).Value = rst.Fields("Nom prénom") Then
               .Cells(x, 623).Value = rst.Fields("Identifiant salarié")
            Exit For
                End If
            Next x
        rst.MoveNext
        Wend
        ...
:btres:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message