Discussion :

[Zackiry]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[nibledispo]

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

[Zackiry]

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.

[boisgontierjacques]

Bonsoir,

Exemple de recherche dans un champ nommé BD

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Zackiry]

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.

[Daniel.C]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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