VBA - FormulaLocal et recherchev

[jsalmon]

Bonjour,

Je suis assez novice en vba et recherche une solution concernant l'intégration d'une formule recherchev.Je bloque depuis plusieurs heures dessus..

La première formule recherchev fonctionne mais la deuxième ne fonctionne pas. La seule différence (visible) est le lien vers une autre feuille.. Je doute cependant que le problème vienne de la..

Merci d'avance aux pros d'EXCEL! 🙂

Voici mon code (extrait):

Dim a As Worksheet
Dim s As Worksheet
Set a = Worksheets("peuimporte")
Set s = Worksheets("sortie_s")
Set s2 = Worksheets("sortie_s_m-1")


Dim code_c, isinsupp, formule_rechv as string
Dim ligneA As Long


For Each ligne In s.Range("1:65535").Rows

If ligne.Cells(1, 1).Value <> "" Then


code_c = ligne.Cells(1, 9)
formule_rechv = "=recherchev(" + code_c + ";groupes_comptes!$B$4:$D$150;2;FAUX)& " + code_c

a.Cells(ligneA, 2).FormulaLocal = formule_rechv 'ICI CA FONCTIONNE

isinsupp = ligne.Cells(1, 6)

formule_rechv = "=recherchev(" + code_c + isinsupp + ";sortie_s_m-1!$A$1:$AY$5000;51;FAUX)"

a.Cells(ligneA, 4).Formula = formule_rechv 'ICI une erreur d'exécution 1004

End if
..

 

[tototiti2008]

Re : VBA - FormulaLocal et recherchev

Bonjour jsalmon,

As-tu essayé de remplacer le 2ème "Formula" en "FormulaLocal" (comme le 1er) ?
Formula attend des noms de fonctions en anglais ("VLOOKUP" à la place de "RECHERCHEV", virgules à la place de points-virgules)
FormulaLocal tient compte du langage de la version installée

 

[jsalmon]

Re : VBA - FormulaLocal et recherchev

oui, le formula était juste un test..
Ca ne fonctionne pas avec FORMULA LOCAL dans le deuxieme cas (similaire au premier qui lui fonctionne..)

 

[jsalmon]

Re : VBA - FormulaLocal et recherchev

Et ca ne fonctionne pas avec vlookup non plus en utilisant .Formula..

 

[tototiti2008]

Re : VBA - FormulaLocal et recherchev

Re,

Je viens de voir que si le nom de la feuille contient un "-", il veut des apostrophes autour du nom de la feuille

à tester

formule_rechv = "=recherchev(" + code_c + isinsupp + ";'sortie_s_m-1'!$A$1:$AY$5000;51;FAUX)"

 

[jsalmon]

Re : VBA - FormulaLocal et recherchev

Merci beaucoup pour ces retours mais j'avais aussi essayé et ca ne fonctionne pas..
c'est vraiment bizarre, je me demande s'il n'y a pas une histoire de feuilles a activer ou non. ?

Meme en mettant
formule_rechv = "=recherchev(nimportequoi;'sortie_s_m-1'!$A$1:$AY$5000;51;FAUX)" ca ne fonctionne pas..
En réalité peu importe le contenu du recherchev, il devrait afficher #NA au pire non?

 

[tototiti2008]

Re : VBA - FormulaLocal et recherchev

Re,

si le code recherché est du texte, il faut l'entourer de guillemets

formule_rechv = "=recherchev(""" + code_c + isinsupp + """;'sortie_s_m-1'!$A$1:$AY$5000;51;FAUX)"

la première formule doit fonctionner parce que ton code_c doit être numérique ?

 

[jsalmon]

Re : VBA - FormulaLocal et recherchev

Merci beaucoup tototiti ! ca fonctionne!! 🙂
Bonne journée.