Aide sur VLOOKUP dans vba

Bonjour le forum,

Ma fonction VLOOKUP ci dessous ne fonctionne pas :

Code:

---

1 2 3

Dim zz As Range Set zz = activecell zz.Formula = "=VLookup(Range(Left(A2, 4)) , '[ETP 2010 (Nicole).xls]Juin 2010'!$A:$T, 6, False)"

---

Y comprenez-vous quelque chose?

Belle journée,

Magali

Salut.

Comme tu passes la fonction au sein d'une formule Excel, elle doit respecter la syntaxe Excel (en anglais) et pas la syntaxe VBA...

Donc, pas de Range et autre.

Une bonne manière de créer la formule pour le VBA est de la créer dans une cellule Excel puis de récupérer la formule dans la fenêtre d'exécution du VBE (Ctrl+G) via
? activecell.formula.

Il faut souvent recréer la formule par concaténation.

Mon tuto sur RechercheV contient un petit chapitre sur l'utilisation de RECHERCHEV en VBA.

Merci, je vais aller voir.

De la même manière, j'ai un problème avec la formule de division ci-dessous :

Code:

---

1 2 3

Dim activecell10 as range Set activecell10 = activecell activecell10.Formula = "= "& (activell10.Offset(0,8) &" / Q5"

---

Là encore, je pense que c'est simplement un problème de syntaxe ou lié au fait que j'utilise une référence à une cellule avec la référence d'une cellule active.

Comment y remédier?

C'est plus ou moins le même problème, en effet

Tu essaies de concaténer un objet Range avec des chaines de caractères dans l'expression de la formule, alors que celle-ci (ce qui se trouve entre parenthèses) doit être l'expression excel en anglais de la formule que tu saisirais sur ta feuille de calcul (donc avec l'adresse de la cellule).

Tu dois donc utiliser la propriété .Address et être attentif aux références relatives et absolues dans la création de la chaîne de caractères qui exprimera ta formule.

Vu le contexte, tu pourrais écrire

Code:

---

activecell10.Formula = "= "& activell10.Offset(0,8).address &" / Q5"

---

Note également que Q5 est relatif.

Attention que la propriété .Address renvoie l'adresse absolue (avec les $) et correspond donc à

Code:

---

activecell10.Formula = "= "& activell10.Offset(0,8).Address(True,True) &" / Q5"

---

Si tu veux du relatif, tu dois utiliser

Code:

---

activecell10.Formula = "= "& activell10.Offset(0,8).Address(False, False) &" / Q5"

---

En fait, tu dois recomposer la chaine de caractères qui correspond à la formule en anglais utilisée dans Excel.