mettre une formule dans une cellule par macro

Version imprimable

12/03/2012, 16h01
jauffray.delteil

mettre une formule dans une cellule par macro

bonjour

je souhaite mettre une formule dans une cellule.
lorsque je tape :

Code:

Range("F5").FormulaR1C1 = "=somme(H5:M5)"

j'obtiens dans ma cellule F5 : #NOM?
dans la cellule, la formule est devenue : =somme('H5':'M5')

2 questions :
- pourquoi la cellule n'est pas exactement celle demandée ?
- quel est le bon code ?

merci
12/03/2012, 17h04
fring
Bonjour,

Il y a 4 méthodes pour insérer une formule dans une cellule via VBA
- Range("A1").Formula --> écrire la formule, en utilisant les références du style A1, dans la langue de VBA (anglais) et elle s'adaptera à la langue de l'application
- Range("A1").FormulaLocal --> écrire la formule, en utilisant les références de style A1, dans la langue de l'application, dans ton cas le français (va planter si on passe le fichier sur un Excel d'une autre langue)
- Range("A1").FormulaR1C1 --> écrire la formule, en utilisant les références du style R1C1, dans la langue de VBA
- Range("A1").FormulaR1C1Local --> écrire la formule, en utilisant les références du style R1C1, dans la langue de l'application
Tu devrais trouver la méthode qui s'applique à ta formule ;)
.

Code:

1
2
Range("F5").Select
    ActiveCell.FormulaR1C1 = "=SUM(RC[2]:RC[7])"

12/03/2012, 17h55
patricktoulon

heu

bonjour

il est vrai que traduire des fonctions en vba peut être un peu difficile parfois
néanmoins si tu avais essayé l'enregistreur de macro tu aurais eu ce que
silvestre09 t'a donné
et ensuite en netoyant le code :

Code:

Range("F5").FormulaR1C1 = "=SUM(RC[2]:RC[7])"

au plaisir
13/03/2012, 07h50
jauffray.delteil

bonjour et merci

en effet, j’oublie souvent d'utiliser l'enregistreur de macro... :oops:

Formule excel bug quand passe en macro

j'ai sensiblement le meme problème même en utilisant l''enregistreur qui donne le code suivant:

Code:

1
2
3
4
5
6
Range("A1:E1").Select
    ActiveCell.FormulaR1C1 = _
        "=""Quantitées cumulées pour le service "" & RIGHT(LEFT(CELL(""filename""),LEN(CELL(""filename""))-50),(LEN(LEFT(CELL(""filename""),LEN(CELL(""filename""))-50)))-(FIND(""_"",LEFT(CELL(""filename""),LEN(CELL(""filename""))-50)))-5) & "" du "" & TEXT(DATE(LEFT(LEFT(RIGHT(CELL(""filename""),49),8),4),MID(LEFT(RIGHT(CELL(""filename""),49),8),5,2),RIGHT(LEFT(RIGHT(CELL(""" & _
        """),49),8),2)),""JJ/MM/AA"") &  "" à "" & TEXT(LEFT(RIGHT(CELL(""filename""),41),4),""00\:00"") &"" au "" & TEXT(DATE(LEFT(LEFT(RIGHT(CELL(""filename""),36),8),4),MID(LEFT(RIGHT(CELL(""filename""),36),8),5,2),RIGHT(LEFT(RIGHT(CELL(""filename""),36),8),2)),""JJ/MM/AA"") & "" à "" & TEXT(LEFT(RIGHT(CELL(""filename""),28),4),""00\:00"") & CHAR(10)&"" (calculé le "" & T" & _
        "LEFT(LEFT(RIGHT(CELL(""filename""),23),8),4),MID(LEFT(RIGHT(CELL(""filename""),23),8),5,2),RIGHT(LEFT(RIGHT(CELL(""filename""),23),8),2)),""JJ/MM/AA"") & "" à "" & TEXT(LEFT(RIGHT(CELL(""filename""),15),4),""00\:00"")&"")"""
    Range("Tableau1[[#Headers],[Loc.]]").Select

Cette formule récupère des données dans le noms du fichier.
Merci