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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 '....