Variable égale à une fonction

Bonjour,

je débute dans la programmation de macro sous excel et j'ai un petit problème. Je me suis torturé durant deux jours, fait des recherches sur internet mais je n'ai pas trouvé ma solution.

je veux exprimer à l'aide d'une fonction. Mais excel n'accepte pas mon code.
Aurez vous une solution ?

Code:

---

1 2 3 4 5 6 7 8 9

Sub Macro5() ' ' Macro5 Macro ' Dim V As Byte V = Application.Evaluate("MATCH(VLOOKUP(R[-5]C[-11],R[-5]C[-12]:R[37]C[-12],1,FALSE),R[-10]C[-12]:R[39]C[-12],0)") Cells(V, 18).Select   End Sub

---

Merci d'avance.

Bonsoir,

Et si tu expliquais une peu ce que tu cherches à faire avec cette instruction et quelle erreur est renvoyée ?

Tu fais apparemment une recherche dans une table d'une seule colonne pour avoir ensuite la position. Que compte tu alors obtenir d'autre que la Pposition de la valeur que tu lui indiques ?

Autant faire un match directement sur la valeur.

Mais peut-être que je ne comprends pas !

Cordialement

Alors, j'ai une caractéristique d'un produit à rechercher dans une colonne. L'ordre des valeurs dans cette colonne varie en fonction des ingrédients que j'ai. La formule est bonne, je n'arrive juste pas à indiquer à excel que je veux que le calcul commence à cette ligne. La colonne dans laquelle commence le calcul est fixe (colonne 18), mais la ligne de départ varie.

Donc je pensais faire une variable contenant une formule qui elle va me donner le numéro de ligne. La formule marche parfaitement bien.

Merci. Je ne sait pas si j'ai réussi à me faire comprendre.

Bonsoir,

Exemple de recherche dans un champ nommé BD

Code:

---

1 2 3 4 5 6 7 8

Sub essai() x = "toto" result = Application.VLookup(x, [bd], 2, False) If Not IsError(result) Then MsgBox result End If End Sub

---

Recherche de la position de toto dans la première colonne d'un champ nommé BD

Code:

---

1 2 3 4 5 6 7 8

Sub Essai2() x = "toto" Position = Application.Match(x, Application.Index([bd], , 1), 0) If Not IsError(Position) Then MsgBox Position End If End Sub

---

Jacques Boisgontier

Bonjour,

merci de ton aide. Cependant la valeur de "toto" ne sera jamais la même, il me faut donc faire un recherchev et un equiv pour trouver le numéro de ligne. Grace à se numéro de ligne je pourrais indiquer à excel quelle cellule sélectionner.

Je voulais savoir si je pouvais faire une équation du type:
Variable = fonction

Cordialement.

Bonjour,

Il est normal que tu aies une erreur. Tu ne peux utiliser des références relatives que par rapport à une cellule. Si tu précises pas celle-ci, "R[-5]" fait référence à quelle ligne ? J'ai retranscrit ta formule :

Code:

---

1 2 3 4 5 6 7 8

Sub Macro5() Dim V As Variant With ActiveCell V = Application.Match(Application.VLookup(.Offset(-5, -11), Range(.Offset(-5, -12), .Offset(37, -12)), 1, 0), _ Range(.Offset(-10, -12).Offset(39, -12)), 0) If IsNumeric(V) Then Cells(V, 18).Select End With End Sub

---

Merci c'est parfait.

J'aurais besoin d'un petit conseil. Comment étirons nous un calcul d'un nombre de ligne défini ? Car mon point de départ n'est pas fixe.

Merci d'avance.

Le point de départ est la cellule active. Si tu expliquais le but de ta macro ? Une fois que la cellule est sélectionnée, qu'est-ce que tu veux faire ?