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:
le résultat est le suivant: =Tontes!'D13'
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
merci de vos contributions pour ne pas avoir ces 2 '....
Partager