Discussion :

[kernel57]

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

Code :

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

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
Quelqu'un pourrait-il me souffler d'où proviens l'erreur ?
Merci

[MrYoYo]

Bonjour,

il semblerait qu'un $ soit mal pacé

Code :

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

adr = "A$15$"

avec

Code :

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

adr = "$A$15"

ça a l'air de mieux fonctionner.

[kernel57]

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 ?

[MrYoYo]

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)

[MrYoYo]

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

Code :

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

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+

[kernel57]

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