Problème avec les " dans une formule RechV à passer en variable

[corvelc]

Bonjour,

Voulant intégrer une formule RechercheV dans une variable afin de pouvoir automatiser la copier dans toutes des cellules de la colonne 42 du tableau via une macro, je recontre un problème de compil avec le nombre de " , du moins je pense que cela est du à cela.😡
Un peu d'aide me serait utile.🙂 car sur le sujet depuis + de 3h00 (mais je suis encore trop nul en VBA)

Ma formule qui fonctionne bien dans le tableau:
=SI(ESTERREUR(RECHERCHEV(O2;'Feuil RD'!$A:$B;2;FAUX));"RD pas défini";RECHERCHEV(O2;'Feuil RD'!$A:$B;2;FAUX))

Ma macro test pour automatiser la recopie sur chaque ligne colonne 42 de mon tableau :
Sub Macro1()
' ouverture de la feuille
Sheets("Extract Globale Artémis-ACT01").Select
' Passage formule dans une variable = erreur compil VBA
FormulRechV = "=SI(ESTERREUR(RECHERCHEV(O2;'Feuil RD'!$A:$B;2;FAUX));"RD pas défini";RECHERCHEV(O2;'Feuil RD'!$A:$B;2;FAUX))"' copie dans une cellule
Cells(2, 42) = FormulRechV
' selection pour controle test
Cells(2, 42).Select

End Sub

 

[antha]

Re : Problème avec les " dans une formule RechV à passer en variable

Bonjour 🙂

Je n'y connais pas beaucoup plus en VBA, mais les formules que j'ai réussi à insérer étaient en anglais.

Pour les retrouver, utilise l'enregistreur de macro, et tape ta formule (ou copié/collé). Tu pourras la retrouver dans le code généré.

Sinon tu peux esssayer de doubler les " qui sont en milieu de formule (ex. ""RD pas defini"")

Avoir..

 

[JCGL]

Re : Problème avec les " dans une formule RechV à passer en variable

Bonjour à tous,

Peux-tu essayer avec :

Cells(2, 42) = FormulaLocal(FormulRechV)

Pas testé... Mais ta formule étant une Local, il faut bien la définir quelque part.

A+

 

[tototiti2008]

Re : Problème avec les " dans une formule RechV à passer en variable

Bonjour à tous,

pense à doubler les " quand elles sont entre d'autres "...

FormulRechV = "=SI(ESTERREUR(RECHERCHEV(O2;'Feuil RD'!$A:$B;2;FAUX));""RD pas défini"";RECHERCHEV(O2;'Feuil RD'!$A:$B;2;FAUX))"

Edit : et prends en compte la remarque de JCGL : il faut également que tu utilises FormulaLocal 🙂

 

[corvelc]

Re : Problème avec les " dans une formule RechV à passer en variable

Mon problème de "" semble réglé, maintenant j'ai un probléme de 'erreur function non définie" au passage dans la variable. J'ai essayé la préco de JCGL avec FormulaLocal = tj prb 'erreur function non définie".

N'ayant jamais utilisé de fonction dans du VBA, dois-je definir la fonction avant et comment ?

merci à tous

 

[antha]

Re : Problème avec les " dans une formule RechV à passer en variable

A tout hasard, essaye avec cette formule :

"=IF(ISERROR(VLOOKUP(R[-23]C[9],'Feuil RD'!C1:C2,2,FALSE)),""RD pas défini"",VLOOKUP(R[-23]C[9],'Feuil RD'!C1:C2,2,FALSE))"

 

[tototiti2008]

Re : Problème avec les " dans une formule RechV à passer en variable

Bonjour à tous,

essaye :

Cells(2, 42).FormulaLocal = FormulRechV

 

[corvelc]

Re : Problème avec les " dans une formule RechV à passer en variable

😀 la solution de tototiti fonctionne, je vais pouvoir continuer à avancer sur mon developpement.
😀encore merci à vous tous

une journée ou ou j'aurai encore appris quelque chose de plus, donc ce sera une bonne journée.

 

[tototiti2008]

Re : Problème avec les " dans une formule RechV à passer en variable

oui, et la solution de antha fonctionne aussi :

FormulRechV ="=IF(ISERROR(VLOOKUP(R[-23]C[9],'Feuil RD'!C1:C2,2,FALSE)),""RD pas défini"",VLOOKUP(R[-23]C[9],'Feuil RD'!C1:C2,2,FALSE))"
Cells(2, 42).FormulaR1C1 = FormulRechV

l'intérêt c'est qu'écrit comme ça, ça devrait fonctionne quelle que soit la langue d'Excel....

 

[corvelc]

Re : Problème avec les " dans une formule RechV à passer en variable

Je vais aussi essayer la solution de antha pour le plaisir d'apprendre
merci encore

 

[corvelc]

Re : Problème avec les " dans une formule RechV à passer en variable

testé les deux solutions. Ok pas de différence = ça fonctionne bien
Bonne journée