formule différente dans la cellule que dans la macro vba

Version imprimable

27/03/2018, 17h34
Truff_Truffe

formule différente dans la cellule que dans la macro vba

Bonjour a tous
sur mon classeur j'ai plusieurs feuilles comme la feuille "effectif" dans laquelle je recherche et la feuille "formation" dans laquelle j'écris
voila mon problème, je souhaite rentrer la formule : "=RECHERCHEV(A496;effectif;2;FAUX)" dans une cellule pour que celle-ci m'affiche de le résultat, j'ai mis du temps pour y parvenir et, après beaucoup de recherches, j'utilise le code suivant:
sheets("formation").Range("B496").Formula = "=RECHERCHEV(A496,effectif,2,FAUX)"

Le soucis c'est que dans la cellule j'obtient la réponse : #NOM? et quand je regarde la formule inscrite dans la cellule j'ai : =RECHERCHEV(A496;effectif;2;'FAUX').
Ce sont les deux apostrophes autours de FAUX qui gène et je ne sais pas d'ou elles viennent ni comment les éviter.

Si quelqu'un peut m'aider, merci a vous
27/03/2018, 17h37
Marc-L

Bonjour,

Formula est réservé au langage interne d'Excel (l'anglais)
et pour une formule dans une version étrangère (française) utiliser FormulaLocal …

___________________________________________________________________________________________________________

:arrow: Merci de cliquer sur :plusser: en bas à droite de chaque message ayant aidé puis sur :resolu: pour clore cette discussion …
27/03/2018, 17h41
Truff_Truffe

Bonjour Marc-L
Quand je change Formula par FormulaLocal j'obtiens une erreur 1004 qui me donne une erreur definie par l'application ou par l'objet
27/03/2018, 17h43
Marc-L

Faute d'orthographe dans la formule (vérifier avec celle entrée manuellement dans la cellule),
cellule protégée + feuille protégée, erreur d'objet, …
27/03/2018, 17h55
Menhir

Citation:

Envoyé par Truff_Truffe

Quand je change Formula par FormulaLocal j'obtiens une erreur 1004 qui me donne une erreur definie par l'application ou par l'objet

Quand on est en FormulaLocal, il faut appliquer TOUTES les règles locales.
Entre autre, avec Excel francophone, le séparateur de paramètres est ";" et non ",".

Mais ce n'est pas ça qui soldera ton erreur VBA.
Cependant, pour savoir où se trouve l'erreur, il faudrait que tu copies la VRAIE ligne de code telle qu'elle est dans VBE.
27/03/2018, 18h11
Pierre Fauconnier

Salut.

Perso, je préfère de loin le Formula au FormulaLocal car le Formula ne changera jamais de syntaxe, elle est interne à Excel. Alors que le FormulaLocal risque de varier d'un pc à l'autre, d'une config à l'autre, et sera de toute manière verrouillé à la langue utilisée lors de la création du code. Cela veut dire que si tu es en français et que tu écris une FormulaLocal, ta macro ne fonctionnera que sur un Excel utilisant le français ET les mêmes spécificités régionales de Windows/Excel que sur le pc de création du code, comme le fait remarquer Menhir :plusser: (séparateurs de liste, ...).
27/03/2018, 18h32
RyuAutodidacte

Bonjour,

Si tu n'est pas habitué à écrire une formule en vba, alors aide toi de la fenêtre d'exécution.
Sélectionne la cellule où se trouve la formule que tu veux utiliser en vba, puis dans la fenêtre d'exécution écris :

Code:

Debug.Print Selection.Formula

Valide avec la touche retour et tu obtiendras ta formule (à adapter si besoin)
Fais une recherche sur le site il y a 2 pages d'explications avec les formules en vba …

PS : n'oublie pas les guillemets etc …
27/03/2018, 18h34
Truff_Truffe

j'ai déjà fait un copier coller de la formule présente sur la feuille excel et j'ai bien placer des "," à la place des ";" mais je comprend pas pourquoi en utilisant la macro j'obtiens ces fameux apostrophes autours de FAUX, ni comment les supprimer
27/03/2018, 18h36
RyuAutodidacte

Ne fais pas de copier coller de la feuille Excel il y'a des différences
27/03/2018, 18h38
Truff_Truffe

cela expliquerai l'apparition des apostrophes autour de FAUX sur la feuille excel ? car j'ai bien remplacé les ";" par "," et le code fonctionne presque mis a part les apostrophes
27/03/2018, 18h55
Menhir

Citation:

Envoyé par Truff_Truffe

j'ai déjà fait un copier coller de la formule présente sur la feuille excel et j'ai bien placer des "," à la place des ";" mais je comprend pas pourquoi en utilisant la macro j'obtiens ces fameux apostrophes autours de FAUX, ni comment les supprimer

Est-ce que tu as choisi Formula ou FormulaLocal ?
27/03/2018, 18h57
Truff_Truffe

j'ai choisit Formula dans mon code
27/03/2018, 19h16
Menhir

Dans ce cas, il ne faut pas utiliser FAUX puisque d'est français mais FALSE.
De même, tu ne peux pas utiliser RECHERCHEV mais son équivalent anglophone.
27/03/2018, 19h26
Truff_Truffe

ça fonctionne, j'aurai pu chercher longtemps, merci beaucoup !! :D
27/03/2018, 19h52
RyuAutodidacte

si tu avais fait le Debug.print tu aurais eu, ex.:
• dans ma cellule A1 => =RECHERCHEV(1;G1:L35;2;FAUX)
• on selectionne la cellule (ici A1 pour obtenir la formule))
• dans la fenêtre d'exécution :

Code:

Debug.Print Selection.Formula

• on valide
• le résultat obtenu => =VLOOKUP(1,G1:L35,2,FALSE)

je n'ai pas l'impression que tu l'as fait ou j'ai raté un épisode …
27/03/2018, 19h55
Pierre Fauconnier

On peut faire plus court dans la fenêtre d'exécution (affichable avec CGTRL+G si non affichée)

Code:

? Selection.Formula

J'dis ça parce que je suis paresseux... :)
01/04/2018, 11h41
Promethee25

+1 et merci pour l'info Pierre, je la connaissais pas celle-la!
01/04/2018, 12h21
kiki29
Salut, toujours utiles
- Ecrire une formule dans Excel à l'aide d'une procédure VBA
- Ecrire une formule dans Excel à l'aide d'une procédure VBA (Part 2)