Discussion :

[Manou26]

Bonjour,

J'ai une série de cellule dans lesquelles j'ai des entiers et je voudrais y ajouter la valeur d'une cellule données.
En fait je voudrais remplacer dans beaucoup de cellule X par '=X+Entrees!I19'

J'ai essayé la macro suivante :

Code :

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

1
2
    Valeur = ActiveCell.Value
    ActiveCell.FormulaR1C1 = "=" & Valeur & "+Entrees!I19"

Mais il me met des ' ' autour de I19 et du coup ça ne marche pas et je ne sais pas pourquoi. Je ne suis pas experte en VBA donc il y a peut-être une solution plus simple.
Remarque : je voudrais que la formule reste pour pouvoir par la suite changer la valeur de la cellule I19

Merci d'avance

[le_dilem]

salut
c'est pas bien claire pour moi

Code :

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

ActiveCell.FormulaR1C1 = "=" & Valeur & "+Entrees!I19"

pour quoi tu n'utilise pas la fonction CONCATENER ?

[EmmanuelleC]

Tu peux utiliser un code du genre

Code :

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

ActiveCell.FormulaR1C1 = "=" & ActiveCell.Value & "+R19C9"

si tu veux avoir un résultat dans ta cellule du genre
="valeur de base" + $I$19

ou code du genre

Code :

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

ActiveCell.FormulaR1C1 = "=" & ActiveCell.Value & "+R[-10]C[-1]"

si tu veux avoir un résultat dans ta cellule du genre
="valeur de base" + I19
qui utilise la position relative de la cellule par rapport a I19

ou un code du genre

Code :

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

ActiveCell.FormulaR1C1 = "=" & ActiveCell.Value & "+INDIRECT(""I19"")"

qui va donner une cellule du genre
="valeur de base" + INDIRECT("I19")
qui te permet d'écrire I19 dans ton code VBA