Equivalent VBA des fonctions d'excel.

[andsim34]

Bonjour.

Je souhaite avoir l'équivalent vba pour mettre dans une macro la fonction excel ce dessous:

INDEX(Données!H4:J17;EQUIV(C104;Données!J4:J17;1);1)

Pouvez vous m'aider ? Merci 🙂

PS: Je risque d'avoir besoin d'autre formule, mais bon on va deja commencé par ça

 

[mromain]

Re : Equivalent VBA des fonctions d'excel.

bonjour,

tu peux passer par l'enregistreur de macro pour avoir le code équivalent.
si tu veux quelque chose de plus précis, envoie un petit fichier exemple.

a+

 

[ERIC S]

Re : Equivalent VBA des fonctions d'excel.

Bonjour

essai avec enregistreur de macro

ActiveCell.FormulaR1C1 = _
"=INDEX(Données!R[3]C[7]:R[16]C[9],MATCH(R[103]C[2],Données!R[3]C[9]:R[16]C[9],1), 1)"

sinon sous fenêtre vba : aide :

Utilisation des fonctions de feuille de calcul Microsoft Excel dans Visual Basic

 

[Raja]

Re : Equivalent VBA des fonctions d'excel.

Bonjour, Salut mromain, Salut ERIC S,

Ou bien tu mets comme ça pour la faire afficher dans la cellule A1 par exemple(version française de la formule en VBA) :

[A1].FormulaLocal = "=INDEX(Données!H4:J17;EQUIV(C104;Données!J4:J17;1);1)"

 

[andsim34]

Re : Equivalent VBA des fonctions d'excel.

Re. merci a tous de vos réponses 😀

j'ai réussi avec l'enregistreur, mais c'est un peu compliqué pour s'y retrouvé après je trouve.

Avec la methode de Raja me simplifirai la tache mais j'ai un probleme: "Erreur d'execution '424' Objet requis"

j'ai tapé ça:

[diam1].FormulaLocal = "=INDEX(Données!H4:J17;EQUIV(C104;Données!J4:J17;1);1)"

D'ou peut venir le pb ? J'ai défini dans ma feuille excel la cellule diam1.

 

[andsim34]

Re : Equivalent VBA des fonctions d'excel.

J'ai trouvé 😉
J'ai mis Range("diam1") a la pace de [diam1] et sa marche 😉
Merci encore

 

[Raja]

Re : Equivalent VBA des fonctions d'excel.

Re,

Je l'ai testé en nommant une cellule sous l'intitulé "diam1" et ça a marché. J'ai profité de mettre un test pour éviter la valeur d'erreur #N/A. Voici la formule qui marche bien au test :

[diam1].FormulaLocal = "=SI(ESTNA(EQUIV(C104;Données!J4:J17;1));0;INDEX(Données!H4:J17;EQUIV(C104;Données!J4:J17;1);1))"