Discussion :

[klowba]

Bonjour, mon 1er message sur ce forum, apresquelques recherches infructueuses j'ai décidé de poster.

Sur une macro excel qui s'execute au debut pas trop mal elle doit inserer une formule dans une cellule puis la dupliquer verticalement mais au lieu de me copier la formule au format excel et la calculer, ca me colle le texte de la macro et ça ne calcule rien!

LA formule qui est copiée:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=IF(RC[17]=""STOP"",CONCATENATE(""Nb de factures: "",RC[19]),RC[-1])

La formule qui doit etre copiée:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(U3="STOP";CONCATENATE("Nb de factures: ";W3);C3)

La commande de copie dans la macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("D3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[17]=""STOP"",CONCATENATE(""Nb de factures: "",RC[19]),RC[-1])"

Avez-vous des idées, je suis perdu !


Edit: les formules insérés avant avec cette macro se calculent bien et la syntaxe est la meme

[AlainTech]

Je viens de copier (et exécuter) ta formule telle quelle et je n'ai pas de problème.

[spouli]

Je dis un truc bête, mais as tu vérifier que la cellule dans laquelle tu veux écrire la formule est bien en "standard" et pas en "texte".

[ouskel'n'or]

Sinon, tu mets simplement Calculate sur la ligne suivant l'insertion de la formule. Tu as l'embarra du choix quant à son utilisation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
calculate 
application.Calculate
feuil1.calculate
worksheets(1).rows(1).Calculate
worksheets(4).range("A1").calculate
worksheets("feuil1").usedRange.columns("A:Z").calculate

Un coup d'oeil dans l'aide, peut-être
A+

[klowba]

PPfff' la colonne etait au format texte !

La personne qui ma donné le fichier source à traiter avait deja travaillé dessus donc en executant la macro avec un fichier source brut l'erreur apparaissait.

Donc c'esr RESOLU !