Est-il possible d'utiliser une formule comme recherchev directement dans
le VBA sans utiliser une cellule d'une feuille:
Imaginons une feuille client avec les colonnes Code et Nom
Je voudrais obtenir le résultat de la fonction recherchev à partir du
VBA sans utiliser cette formule écrite dans une cellule du classeur. Quelque
chose comme:
Evidement cette syntaxe ne fonctionne pas. D'où la question!
J'ai bien vu la fonction evaluate ou [], mais apparement dans ce cas il
faut que la formule soit associée à une cellule car des syntaxes comme
application.Evaluate("recherchev(3;Client!A1:B17;2;faux)") ou
application.Evaluate("recherchev(3,Client!A1:B17,2,faux)") renvoient une
erreur.
Est-il possible d'utiliser une formule comme recherchev directement dans le VBA sans utiliser une cellule d'une feuille:
Absolument ! La méthode "Evaluate" t'ouvre les bras ! ;-)
Pour ton exemple : codeClient = 100 strNomClient = Evaluate("VLOOKUP(" & codeClient & ",client!A1:B20,2,false)")
Pour beaucoup d'autres exemples : http://disciplus.simplex.free.fr/classeursxl/av-evaluate.zip
AV
Bonjour Rv, strNomClient = WorksheetFunction.VLookup(codeClient, Sheets("client").Range("A1:B20"), 2, 0) Philippe
"Rv" a écrit dans le message de news:OJ$
Bonjour,
Est-il possible d'utiliser une formule comme recherchev directement dans
le VBA sans utiliser une cellule d'une feuille: Imaginons une feuille client avec les colonnes Code et Nom Je voudrais obtenir le résultat de la fonction recherchev à partir du VBA sans utiliser cette formule écrite dans une cellule du classeur. Quelque
Evidement cette syntaxe ne fonctionne pas. D'où la question! J'ai bien vu la fonction evaluate ou [], mais apparement dans ce cas il
faut que la formule soit associée à une cellule car des syntaxes comme application.Evaluate("recherchev(3;Client!A1:B17;2;faux)") ou application.Evaluate("recherchev(3,Client!A1:B17,2,faux)") renvoient une erreur.
Merci d'avance pour vos réponses.
Rv
Bonjour Rv,
strNomClient = WorksheetFunction.VLookup(codeClient,
Sheets("client").Range("A1:B20"), 2, 0)
Philippe
"Rv" <paspubherve.pinard@free.fr> a écrit dans le message de
news:OJ$iMsjPEHA.2716@tk2msftngp13.phx.gbl...
Bonjour,
Est-il possible d'utiliser une formule comme recherchev directement
dans
le VBA sans utiliser une cellule d'une feuille:
Imaginons une feuille client avec les colonnes Code et Nom
Je voudrais obtenir le résultat de la fonction recherchev à partir du
VBA sans utiliser cette formule écrite dans une cellule du classeur.
Quelque
Evidement cette syntaxe ne fonctionne pas. D'où la question!
J'ai bien vu la fonction evaluate ou [], mais apparement dans ce cas
il
faut que la formule soit associée à une cellule car des syntaxes comme
application.Evaluate("recherchev(3;Client!A1:B17;2;faux)") ou
application.Evaluate("recherchev(3,Client!A1:B17,2,faux)") renvoient une
erreur.
Bonjour Rv, strNomClient = WorksheetFunction.VLookup(codeClient, Sheets("client").Range("A1:B20"), 2, 0) Philippe
"Rv" a écrit dans le message de news:OJ$
Bonjour,
Est-il possible d'utiliser une formule comme recherchev directement dans
le VBA sans utiliser une cellule d'une feuille: Imaginons une feuille client avec les colonnes Code et Nom Je voudrais obtenir le résultat de la fonction recherchev à partir du VBA sans utiliser cette formule écrite dans une cellule du classeur. Quelque
Evidement cette syntaxe ne fonctionne pas. D'où la question! J'ai bien vu la fonction evaluate ou [], mais apparement dans ce cas il
faut que la formule soit associée à une cellule car des syntaxes comme application.Evaluate("recherchev(3;Client!A1:B17;2;faux)") ou application.Evaluate("recherchev(3,Client!A1:B17,2,faux)") renvoient une erreur.
Merci d'avance pour vos réponses.
Rv
Rv
Magnifique! Tout était dans la traduction français anglais! J'y avais pensé étant un habitué d'access mais je n'avais pas trouvé la traduction. Un grand merci pour la réponse et pour le lien!
Rv
Magnifique! Tout était dans la traduction français anglais! J'y avais pensé
étant un habitué d'access mais je n'avais pas trouvé la traduction.
Un grand merci pour la réponse et pour le lien!
Magnifique! Tout était dans la traduction français anglais! J'y avais pensé étant un habitué d'access mais je n'avais pas trouvé la traduction. Un grand merci pour la réponse et pour le lien!