Comment utiliser la fonction INDEX en language VBA ?

[Gisamark]

Comment utiliser la fonction INDEX en language VBA ? [RESOLU]

[RESOLU]

Bonsoir à tous,

J'arrive sans problème à utiliser INDEX directement dans les cellules excel.
En revanche, je n'y arrive pas en VBA...

J'ai utiliser l'enregistreur de macro pour voir ce que ça me donnait, et voilà le code obtenu :
("Fantôme" et "1. Importation" sont les noms de mes feuilles)

Sheets("Fantôme").Select
Range("K3").Select
ActiveCell.FormulaR1C1 = _
"=INDEX('1. Importation'!R[1]C[-5]:R[66]C[-5], Fantôme!R[-2]C)"

Ce code fonctionne sans problème.
Mais je ne veux pas du 66 entre crochet derrière le R.
A la place, je voudrais une variable Integer qui s'appelle DrnLigne.
Mais quand je remplace R[66] par R[DrnLigne], le code plante en disant :
"erreur d'execution 1004 : erreur définie par l'application ou par l'objet."

Merci d'avance.


PS : Si vous avez 5 minutes, pourriez-vous m'expliquer comment fonctionne INDEX en VBA ?
Je ne comprend rien à ces R[1]C[-5 ], FormulaR1C1, ...

 

[Compte Supprimé 979]

Re : Comment utiliser la fonction INDEX en language VBA ?

Salut Gisamark,

Tu peux remplacer FormulaR1C1 par FormulaLocal plus simple à utiliser et surtout plus lisible

Ce qui te donne :

Sheets("Fantôme").Range("K3").FormulaLocal = _
"=INDEX('1. Importation'!F4:F" & [COLOR=blue][B]DrnLigne[/B][/COLOR] & "; Fantôme!K1)"

Je ne suis pas certain des colonnes utilisées

Sinon :
FormulaR1C1 : créé une formule avec référence au format L1C1 (Ligne/Colonne) = R1C1 (Row/Column)

R[1]C[-5 ] : par rapport à la cellule ou tu as créées cette formule, tu as fais réfrence à la Row + 1 et la Column -5
Si on part de K3 cela devrait donner : C - 5 = K - 5 = F / R + 1 = 3 + 1 = 4

J'espère avoir été assez clair

A+

 

[Cousinhub]

Re : Comment utiliser la fonction INDEX en language VBA ?

Bonsoir,

Comme Bruno t'a donné l'explication sur les [ et autres ], je me contenterai de te donner l'équivalent VBA de cette formule...

With Sheets("1. Importation")
    derlig = .[F65000].End(xlUp).Row
End With
With Sheets("Fantôme")
    .Range("K3").Value = Application.Index(Sheets("1. Importation").Range("F4:F" & derlig), .Range("K1"))
End With

Ici, on calcule la dernière ligne de la colonne F de la feuille 1. Importation
et ensuite, on introduit cette variable dans le calcul

Bonne soirée

 

[Gisamark]

Re : Comment utiliser la fonction INDEX en language VBA ?

Merci à vous deux, mon problème est résolu.

Il y a juste une petite erreur dans ton code Bruno : il faut remplacer ta virgule par un point-virgule.
Donc INDEX( ; ) au lieu de INDEX ( , )
(Je le dis au cas où quelqu'un d'autre lirait ce thread)

Et merci pour tes explications, c'était très clair !
Mais FormulaLocal est effectivement bien plus simple et je crois que ça va bien m'aider à l'avenir.

Bonne journée et vive ce forum !