Pb macro modification formule dans cellule
Bonjour
J'ai créer une macro visant à copier des feuilles et à incrémenter une formule dans une cellule. Cela fonctionne plutôt pas mal, hormis un détail: lors de l'incrémentation d'une variable dans la formule, il est ajouté 2 apostrophes à la formule, ce qui provoque une erreur...forcément!
ci dessous le code:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Sub ajout_feuilles()
Dim nom, c
Dim f As Integer
f = 7
For Each c In Range("liste")
nom = c.Value
Sheets("1 MODELE").Copy AFTER:=Sheets(Sheets.Count)
ActiveSheet.Name = nom
ActiveCell.FormulaR1C1 = "=Tontes!d" & (f)
f = f + 3
Next c
End Sub |
le résultat est le suivant: =Tontes!'D13'
merci de vos contributions pour ne pas avoir ces 2 '....