Adapter fonction index en VBA

Bonjour,

J'ai un fichier excel avec des cellules où il y a des formules utilisant les fonctions INDEX et MATCH imbriquées. Typiquement les formules sont:

Code:

---

=INDEX('Consolidated WIG'!$1:$65536,MATCH("Current",'Consolidated WIG'!$B:$B,0),MATCH('Chart (2)'!C14,'Consolidated WIG'!$2:$2,0))

---

A présent je voudrais faire la même chose en VBA. Voici donc ce que j'essaie de faire:

Code:

---

1 2 3 4 5 6 7 8

Dim ConsolSheet As Worksheet Dim ChartSheet As Worksheet Dim value As Variant   Set ConsolSheet = ThisWorkbook.Worksheets("Consolidated WIG") Set ChartSheet = ThisWorkbook.Worksheets("Chart(2)")   value = INDEX(ConsolSheet!$1:$65536,MATCH("Current",ConsolSheet!$B:$B,0),MATCH(ChartSheet!C14,ConsolSheet!$2:$2,0))

---

Mais cela ne fonctionne pas. Il semble qu'excel n'accepte pas la manière dont je sélectionne les lignes/colonnes.
L'utilisation de la fonction INDEX semble différente en VBA. Quelqu'un saurait-il comment l'utiliser correctement.

Merci d'avance.

PS: désolé pour les balises codes mais je n'arrive à les insérer dans mon message :-(

Bonjour,
il faut remplacer "value" par formulalocal.

@+

Merci pour ta réponse mais je ne comprends pas vraiment ce que tu veux dire.

Peut-être ma question n'est pas très clair: quand j'écris la ligne value = ... , le texte devient rouge et j'ai un message d'erreur "Charactère invalide", et excel me sélectionne $. Quand j'enlève les $, même erreur en me sélectionnant les !...

C'est bon je viens de comprendre (enfin je pense).
il faudrait que j'écrive:

Code:

---

1 2	value = "=Index(ConsolSheet!$1:$65536, MATCH(Current,ConsolSheet!$B:$B,0))"

---

Mais cela ne me retourne pas la valeur de la cellule.

Moi aussi j'ai rencontré le même problème, je ne comprends pas bien comment utiliser la fonction index en VBA.

David

Je n'ai pas la fonction MATCH ! mais je pense que la syntaxe devrait être ainsi

Code:

---

Range("D5").FormulaLocal = "=INDEX(ConsolSheet!$1:$65536;MATCH(""Current"";ConsolSheet1!$B:$B;0);MATCH(ChartSheet!C14;ChartSheet!$B:$B;0))"

---

Idéalement j'aimerais bien donner la valeur que me sort la fonction index à ma variable "value". Car c'est une valeur que je réutilise par la suite.

ça dépend de ce que tu veux en faire
explicite la suite de ton problème
il faut passer peut être par

Code:

---

Application.WorkSheetFunction.Index

---

Finalement je n'ai pas besoin d'utiliser la fonction index. Avec le code ci-dessous ça marche très bien:

Code:

---

1 2 3 4

Colon = Application.WorksheetFunction.Match(MainBox(i) & "Value", ConsolSheet.Range("A2", "IV2"), 0) Ligne = Application.WorksheetFunction.Match("Current", ConsolSheet.Range("B1", "B65530"), 0) value = ConsolSheet.Range("A1", "IV65530").Cells(Ligne, Colon)

---

Code:

---

1 2 3

Colon = Application.WorksheetFunction.Match(MainBox(i) & "Value", ConsolSheet.Range("A2:IV2"), 0) Ligne = Application.WorksheetFunction.Match("Current", ConsolSheet.Range("B1:B65530"), 0) value = ConsolSheet.Cells(Ligne, Colon)

---

pour simplifier