Discussion :

[jauffray.delteil]

bonjour

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

Code :

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

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

[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
.

[sylvestre09]

Code :

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

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

[patricktoulon]

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 :

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

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

au plaisir

[jauffray.delteil]

bonjour et merci

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

[babilou]

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

Code :

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

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