VBA Excel : Cells.formula

Question

Bonjour tout le monde,
j'essaie, au corus d'une macro, d'inscrire une formule dans une cellule, puis de la repartir dans une range donnée. Je procède comme ceci :

ThisWorkbook.Sheets(2).Activate
    Cells(2, 2).Formula = "=SI(CHERCHE("permission";SUPPRESPACE(A2))>4;"";SUPPRESPACE(SUBSTITUE(SUBSTITUE(A2;"<permission name=";"");" />";"")))"
    Cells(2, 2).AutoFill Destination:=Range("B3:B999"), Type:=xlFillDefault

Or, il m'affiche une erreur : attente d'instruction.

Si quelqu'un peut m'aider à résoudre mon problème, je lui en serait très reconnaissant ^^ !

CIAnure · Accepted Answer

Sur quel ligne, l'erreur est levée?

L'erreur : attente d'instruction c'est pour signaler un manque de paramètre si mes souvenirs sont bons.
Vérifie quand même tes parenthèses aussi.
Merci, Amicalement, CIAnure

Bushinone · Answer

oui, c'est ce que j'ai pensé aussi. J'ai vérifié plusieurs fois et ce n'est pas les parenthèses. 
Le process s'arrête sur 'permission'

cbia · Answer

Essaie avec 2 double-côte avant permission au lieu de 1 seule:

Cells(2, 2).Formula = "=SI(CHERCHE(""permission"";SUPP..........

cbia · Answer

exemple de formule qui marche :

    Cells(2, 2).Formula = "=IF(SEARCH(""mi"",""permission"",1)=4,0,1)"

Quand tu cherches à coder une instruction en VBA je te recommande de "enregistrer une macro en automatique"
faire ta manip dans ton fichier, arrêter la macro 
puis regarder ce qu'il a écrit tout seul et de t'en inspirer dans ton propre code.
Ca aide beaucoup pour la syntaxe...

Bushinone · Answer

Merci beaucoup ! Ca fonctionne : 
ThisWorkbook.Sheets(2).Activate
    Range("B2:B999").FormulaR1C1 = _
        "=IF(SEARCH(""p"",TRIM(RC[-1]))>2,"""",TRIM(SUBSTITUTE(SUBSTITUTE(RC[-1],""<permission name="",""""),"" />"","""")))"

VBA Excel : Cells.formula

5 réponses

Votre réponse

Discussions similaires

Newsletters