OVH Cloud OVH Cloud

equivalent vba de index

2 réponses
Avatar
Gerard
Bonjour
est il possibe d'avoir l'equivalant VBA de cette formule
varPrix = INDEX(prix;EQUIV(C1;HAUTEUR;1);EQUIV(C2;longueur;1))
merci

2 réponses

Avatar
michdenis
Bonjour Gérard,

Essaie ceci pour obtenir la syntaxe en VBA

Tu places ta formule en B1
'------------------
Sub Formule()

MsgBox Range("B1").Formula
MsgBox Range("B1").FormulaLocal

End Sub
'------------------

Si ta formule n'a pas de variable, tu peux évaluer directement le contenu de ta formule en VBA
Tu place la formule entre cochet
Résultat = [LaSyntaxeDeRange("B1").Formula]

Avec variable, tu dois utiliser la fonction Evaluate(),
La syntaxe peut être un peu plus singulière à écrire !

Tu désires autre chose ?


Salutations!




"Gerard" a écrit dans le message de news: 435e8538$0$7821$
Bonjour
est il possibe d'avoir l'equivalant VBA de cette formule
varPrix = INDEX(prix;EQUIV(C1;HAUTEUR;1);EQUIV(C2;longueur;1))
merci
Avatar
jb
Avec cette fonction, on peut traduire toutes les exepressions en
anglais dans le tableur:

en A2: Anglais(A1) si la formule est en A1

Function Anglais(Français)
Anglais = Français.Formula
End Function

= INDEX(prix,MATCH(C1,HAUTEUR,1),MATCH(C2,longueur,1))

En VBA, il faut ajouter Application pour accéder à ces fonctions

x=
Application.INDEX(Range("prix",Application.MATCH(Range("C1"),Range("HAUTEUR ",1),Application.MATCH(C2,Range("longueur"),1))

Cordialement JB