Aide sur VLOOKUP dans vba

[Mag555]

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

[Pierre Fauconnier]

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.

[Mag555]

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?

[Pierre Fauconnier]

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.