concaténation en vba dans une formule de cellule Excel

Bonjour à tous !
J'aimerais modifier le contenu d'une formule de calcul d'une cellule Excel. J'ai rédigé ce code là :

Code:

---

1 2 3 4 5 6 7 8

Sub nouv() Dim adr As String adr = "A$15$" chaine_non_modif = ActiveCell.FormulaLocal chaine_modif = chaine_non_modif & "+" & adr ActiveCell.Clear ActiveCell.Formula = chaine_modif End Sub

---

Mais ca marche pas :cry:
Quelqu'un pourrait-il me souffler d'où proviens l'erreur ?
Merci

Bonjour,

il semblerait qu'un $ soit mal pacé

Code:

---

adr = "A$15$"

---

avec

Code:

---

adr = "$A$15"

---

ça a l'air de mieux fonctionner.

Oui effectivement le $ est mal placé
mais en dehors de cela j'ai un message d'erreur de type
Erreur définie par l'application ou par l'objet
Pas toi ?

En fait, j'ai #NOM? qui apparait sur la cellule active, mais quand je double clic dessus et que je tape Enter, le résultat apparaît.

Mais celà ne concatène les 2 formules, mais ça concatène la première avec le résultat de A15

Je vais voir avec autrechose

(mais je ne suis pas un pro)

J'ai trouver une solution à ton problème:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub nouv() Dim adr As String   chaineadr = Range("a15").FormulaLocal chaine_non_modif = ActiveCell.FormulaLocal chaine_modif = chaine_non_modif & "+" & Mid(chaineadr, 2) ActiveCell.Clear ActiveCell.FormulaLocal = chaine_modif   End Sub

---

chez moi, ça fonctionne, dis moi si ça te convient

A+

ok ca à l'air de fonctionner avec l'instruction mid, merci