Discussion :

[vivi4561]

Bonjour,

Je souhaiterai faire l'équivalent de la fonction Index sur VBA. Après quelques recherches, j'ai cru comprendre qu'il fallait utiliser utiliser la fonction Cells sur VBA.
J'ai codé

Code :

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

tarifBE = Worksheets("DATABASE").Range("D2:H60").Cells(prestation , prestataire)

Cela ne marche pas. Savez vous comment il faut coder ça ?


Merci d'avance,


Vince

[LouiMz]

Bonjour,

EDIT:

C'est ma faute j'ai mis une conner.... ^^

Soit

Code :

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

tarifBE = Application.Worksheets("DATABASE").WorksheetFunction.Index(Range("D2:H60"), prestation, prestataire)

Soit tu peux inclure directement la formule Excel dans une cellule (ou une variable)

Code :

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

1
2
ActiveCell.FormulaR1C1 = _
"=INDEX(DATABASE!D2:H60,MATCH(prestation,DATABASE!D2:H60,0),MATCH(prestataire,DATABASE!D2:H60,0))"

Je ne suis pas sur de la formule vu que je l'utilise très peu. j'espère que ca te donnera une piste. Desolé pour les idioties précédentes ^^

Cordialement

[vivi4561]

Merci pour ta réponse rapide.

ça marche toujours pas car il m'indique une erreur de type.
J'ai mis toutes les variables en Variant sachant que prestation et prestataire sont des chaines de caractères et que tarifBE est un nombre avec virgule.

L'erreur peut elle venir de là ?

[vivi4561]

Voici ce que j'ai et ça ne marche pas

Code :

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

tarifBE = Worksheets("DATABASE").WorksheetFunction.Index(Range("E2:E60"), Application.Match(prestation & detail & conditionnement, Range("D2:D60"), 0), 0)