Modifier formule récupérer

Juduno -  
phadeb Messages postés 91 Statut Membre -
Bonjour,
j'aurais voulu savoir comment faire pour modifier la formule ce trouvant dans une cellule, j'arrive a récupérer la formule comme ceci
Range("b356").FormulaR1C1Local

qui me donne comme résultat un truc du genre
"=SUM(R[-350]C,R[-336]C,R[-322]C,R[-308]C,R[-294]C,R[-280]C,R[-266]C,R[-252]C,R[-238]C,R[-224]C,R[-210]C,R[-196]C,R[-182]C,R[-168]C,R[-154]C,R[-140]C,R[-126]C,R[-112]C,R[-98]C,R[-84]C,R[-70]C,R[-56]C,R[-42]C,R[-28]C,R[-14]C,R[13]C,R[18]C)"

mais je comprend strictement rien comment rajouter un truc du genre B370 ?( qui augmentera a que fois que l'on ajoute un poste b ne changera jamais le numéro de ligne prend +14 a chaque fois)

Merci d'avance,

2 réponses

  1. phadeb Messages postés 91 Statut Membre 21
     
    Bonjour,

    Pour rajouter un élément, tu fais

    formule = Range("b356").FormulaR1C1Local
    formule = left(formule, len(formule)-1)
    formule = formule & ", R[14]C)"

    --
    1
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour
    Range("b356").FormulaLocal
    0
    1. Juduno
       
      salut avec plus de détail ca donne car ca c'est que je fais déjà pour récupéré la formule
      mois ce que je veux c'est récupérer cette formule et insérer a celle ci tu me rajout ,R[14]C
      mais je ne sais pas comment faire pour ajouter R[14]C a ma formule récupéré quand je fais Range("b356").FormulaLocal
      0